Suppress some font-lock-fontify-buffer compiler warnings

* lisp/htmlfontify.el (hfy-force-fontification):
* lisp/progmodes/idlw-help.el (idlwave-help-fontify):
Suppress compiler warning from backwards compatibility branch.

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 799da86cd44db458f64e5a2faf7b91347a393274..23efcd1298a4b9a8d03222808ab87c5241f60859 100644 (file)
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -1830,10 +1830,11 @@ fontified.  This is a simple convenience wrapper around
    (noninteractive
     (message "hfy batch mode (%s:%S)"
              (or (buffer-file-name) (buffer-name)) major-mode)
-    (if (fboundp 'font-lock-ensure)
+    (if (fboundp 'font-lock-ensure)     ; Emacs >= 25.1
         (font-lock-ensure)
       (when font-lock-defaults
-        (font-lock-fontify-buffer))))
+        ; Silence "interactive use only" warning on Emacs >= 25.1.
+        (with-no-warnings (font-lock-fontify-buffer)))))
    ((fboundp #'jit-lock-fontify-now)
     (message "hfy jit-lock mode (%S %S)" window-system major-mode)
     (jit-lock-fontify-now))

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index cbdca015e93824d95460016d04fc40fda3fd0246..54e740be11f58a08b31c5338147a8e0ae848e191 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -1181,9 +1181,10 @@ Useful when source code is displayed as help.  See the option
        (with-syntax-table idlwave-mode-syntax-table
           (set (make-local-variable 'font-lock-defaults)
                idlwave-font-lock-defaults)
-          (if (fboundp 'font-lock-ensure)
+          (if (fboundp 'font-lock-ensure) ; Emacs >= 25.1
               (font-lock-ensure)
-            (font-lock-fontify-buffer))))))
+            ;; Silence "interactive use only" warning on Emacs >= 25.1.
+            (with-no-warnings (font-lock-fontify-buffer)))))))
 
 
 (defun idlwave-help-error (name type class keyword)