master 2399541: Remove font-lock toggle from font-lock-update

[Paul W. Rankin]

branch: master
commit 23995414fec483287e7fb9c9a279483319f9fc54
Author: Paul W. Rankin <pwr@bydasein.com>
Commit: Paul W. Rankin <pwr@bydasein.com>

    Remove font-lock toggle from font-lock-update
    
    * lisp/font-lock.el (font-lock-update): Remove call to
    font-lock-unfontify-region and font-lock-mode toggle with ARG; this
    did not perform what original author intended
---
 lisp/font-lock.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 82915d8..3105242 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1120,17 +1120,13 @@ portion of the buffer."
     (funcall font-lock-ensure-function
              (or beg (point-min)) (or end (point-max)))))
 
-(defun font-lock-update (&optional arg)
-  "Updates the syntax highlighting in this buffer.
-Refontify the accessible portion of this buffer, or enable Font Lock mode
-in this buffer if it is currently disabled.  With prefix ARG, toggle Font
-Lock mode."
-  (interactive "P")
+(defun font-lock-update ()
+  "Refontify the accessible portion of the buffer.
+Unconditionally activate `font-lock-mode'."
+  (interactive)
+  (unless font-lock-mode (font-lock-mode 1))
   (save-excursion
-    (if (and (not arg) font-lock-mode)
-        (font-lock-fontify-region (point-min) (point-max))
-      (font-lock-unfontify-region (point-min) (point-max))
-      (font-lock-mode 'toggle))))
+    (font-lock-fontify-region (point-min) (point-max))))
 
 (defun font-lock-default-fontify-buffer ()
   "Fontify the whole buffer using `font-lock-fontify-region-function'."