diff options
| author | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-08-13 19:22:03 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-08-13 19:22:03 +0300 |
| commit | 5d2388a3083a4b6de9fc585d230db6e2b9bcde9b (patch) | |
| tree | 9ff76fbf9dc12dba3b34b9c94e0c154abfdc5d10 /cider-util.el | |
| parent | 3e5a73b1ffb631b5e4352c17d8ec4810a34a020a (diff) | |
Remove the unused alternative fontification functions
Diffstat (limited to 'cider-util.el')
| -rw-r--r-- | cider-util.el | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/cider-util.el b/cider-util.el index 19b5443e..eed0794b 100644 --- a/cider-util.el +++ b/cider-util.el @@ -117,43 +117,6 @@ Unless you specify a BUFFER it will default to the current one." "Font-lock STRING as Clojure code." (cider-font-lock-as 'clojure-mode string)) -;; More efficient way to fontify a region, without having to delete it -;; Unfortunately still needs work, since the font-locking code in clojure-mode -;; is pretty convoluted -(defun cider-fontify-region - (beg end keywords syntax-table syntactic-keywords syntax-propertize-fn) - "Fontify a region between BEG and END using another mode's fontification. - -KEYWORDS, SYNTAX-TABLE, SYNTACTIC-KEYWORDS and -SYNTAX-PROPERTIZE-FN are the values of that mode's -`font-lock-keywords', `font-lock-syntax-table', -`font-lock-syntactic-keywords', and `syntax-propertize-function' -respectively." - (save-excursion - (save-match-data - (let ((font-lock-keywords keywords) - (font-lock-syntax-table syntax-table) - (font-lock-syntactic-keywords syntactic-keywords) - (syntax-propertize-function syntax-propertize-fn) - (font-lock-multiline 'undecided) - (font-lock-dont-widen t) - font-lock-keywords-only - font-lock-extend-region-functions - font-lock-keywords-case-fold-search) - (save-restriction - (narrow-to-region (1- beg) end) - ;; font-lock-fontify-region apparently isn't inclusive, - ;; so we have to move the beginning back one char - (font-lock-fontify-region (1- beg) end)))))) - -(defun cider-fontify-region-as-clojure (beg end) - "Use Clojure's font-lock variables to fontify the region between BEG and END." - (cider-fontify-region beg end - clojure-font-lock-keywords - clojure-mode-syntax-table - nil - nil)) - ;;; Colors (defun cider-scale-color (color scale) |