[nongnu] elpa/cider cf91b01936 6/6: Remove legacy compatibility code

[ELPA Syncer]

branch: elpa/cider
commit cf91b01936b3b788efb5a1d50184a1687d16f87c
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Remove legacy compatibility code
---
 cider-browse-spec.el    |  2 +-
 cider-debug.el          |  2 +-
 cider-macroexpansion.el |  2 +-
 cider-mode.el           |  6 +++---
 cider-util.el           | 16 ----------------
 5 files changed, 6 insertions(+), 22 deletions(-)

diff --git a/cider-browse-spec.el b/cider-browse-spec.el
index 933ee39ef2..bacc7b67e1 100644
--- a/cider-browse-spec.el
+++ b/cider-browse-spec.el
@@ -256,7 +256,7 @@ Return the result as a string."
     (clojure-mode)
     (insert (cider-browse-spec--pprint spec-form))
     (indent-region (point-min) (point-max))
-    (cider--font-lock-ensure)
+    (font-lock-ensure)
     (buffer-string)))
 
 (defun cider-browse-spec--draw-spec-buffer (buffer spec spec-form)
diff --git a/cider-debug.el b/cider-debug.el
index 7aaa0ba046..e104182633 100644
--- a/cider-debug.el
+++ b/cider-debug.el
@@ -493,7 +493,7 @@ REASON is a keyword describing why this buffer was 
necessary."
                     reason
                     ".")
             (fill-paragraph))
-          (cider--font-lock-ensure)
+          (font-lock-ensure)
           (set-buffer-modified-p nil))))
     (switch-to-buffer buffer-name)
     (goto-char (point-min))))
diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el
index e2eabfeb69..efb19c0760 100644
--- a/cider-macroexpansion.el
+++ b/cider-macroexpansion.el
@@ -142,7 +142,7 @@ If invoked with a PREFIX argument, use \\=`macroexpand\\=` 
instead of
     (erase-buffer)
     (insert (format "%s" expansion))
     (goto-char (point-max))
-    (cider--font-lock-ensure)))
+    (font-lock-ensure)))
 
 (defun cider-redraw-macroexpansion-buffer (expansion buffer start end)
   "Redraw the macroexpansion with new EXPANSION.
diff --git a/cider-mode.el b/cider-mode.el
index 6dc71efe72..adf926c6a2 100644
--- a/cider-mode.el
+++ b/cider-mode.el
@@ -249,7 +249,7 @@ If EVAL is non-nil the form will also be evaluated.  Use
         (let ((beg (point)))
           (insert form)
           (indent-region beg (point))
-          (cider--font-lock-ensure beg (point)))
+          (font-lock-ensure beg (point)))
         (when (if cider-invert-insert-eval-p
                   (not eval)
                 eval)
@@ -853,7 +853,7 @@ namespace itself."
                   (cider--compile-font-lock-keywords
                    symbols (cider-resolve-ns-symbols (cider-resolve-core-ns))))
       (font-lock-add-keywords nil cider--dynamic-font-lock-keywords 'end))
-    (cider--font-lock-flush)))
+    (font-lock-flush)))
 
 
 ;;; Detecting local variables
@@ -1084,7 +1084,7 @@ property."
     (font-lock-add-keywords nil cider--reader-conditionals-font-lock-keywords)
     (font-lock-remove-keywords nil cider--dynamic-font-lock-keywords)
     (font-lock-remove-keywords nil cider--static-font-lock-keywords)
-    (cider--font-lock-flush)
+    (font-lock-flush)
     (remove-hook 'completion-at-point-functions #'cider-complete-at-point t)))
 
 (defun cider-set-buffer-ns (ns)
diff --git a/cider-util.el b/cider-util.el
index e8625c4075..dff1432cf0 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -275,22 +275,6 @@ return by the last called function."
 
 ;;; Font lock
 
-(defalias 'cider--font-lock-ensure
-  (if (fboundp 'font-lock-ensure)
-      #'font-lock-ensure
-    (with-no-warnings
-      (lambda (&optional _beg _end)
-        (when font-lock-mode
-          (font-lock-fontify-buffer))))))
-
-(defalias 'cider--font-lock-flush
-  (if (fboundp 'font-lock-flush)
-      #'font-lock-flush
-    (with-no-warnings
-      (lambda (&optional _beg _end)
-        (when font-lock-mode
-          (font-lock-fontify-buffer))))))
-
 (defvar cider--mode-buffers nil
   "A list of buffers for different major modes.")