From 23995414fec483287e7fb9c9a279483319f9fc54 Mon Sep 17 00:00:00 2001 From: "Paul W. Rankin" Date: Thu, 25 Mar 2021 00:26:59 +1000 Subject: [PATCH] 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 82915d8c8b0..3105242a1f8 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'." -- 2.39.2