From 6c0fc42885a344c35482f402f849a008b960c2ad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 17 Jun 1996 00:06:46 +0000 Subject: [PATCH] (global-font-lock-mode): Set up find-file-hooks. (font-lock-default-fontify-buffer, font-lock-fontify-block) (font-lock-mode): Fix syntax of msgs such as Fontifying...done. --- lisp/font-lock.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 33ba04dc41a..388efef6d6c 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -457,7 +457,7 @@ syntactic change on other lines, you can use \\[font-lock-fontify-block]." 'font-lock-fontify-buffer-function)))) (font-lock-fontify-buffer)) (font-lock-verbose - (message "Fontifying %s... buffer too big." (buffer-name))))) + (message "Fontifying %s...buffer too big" (buffer-name))))) (font-lock-fontified (font-lock-unfontify-buffer) (remove-hook 'before-revert-hook 'font-lock-revert-setup t) @@ -546,6 +546,9 @@ turned on in a buffer if its major mode is one of `font-lock-global-modes'." (remove-hook 'change-major-mode-hook 'font-lock-change-major-mode) (add-hook 'change-major-mode-hook 'font-lock-change-major-mode) (add-hook 'post-command-hook 'turn-on-font-lock-if-enabled) + ;; This is to make sure we fontify immediately + ;; when process filters (such as GUD) find files. + (add-hook 'find-file-hooks 'turn-on-font-lock-if-enabled) (setq font-lock-buffers (buffer-list))) (if message (message "Global Font Lock mode is now %s." (if off-p "OFF" "ON"))) @@ -611,7 +614,7 @@ turned on in a buffer if its major mode is one of `font-lock-global-modes'." (setq font-lock-fontified t))) ;; We don't restore the old fontification, so it's best to unfontify. (quit (font-lock-unfontify-buffer)))) - (if verbose (message "Fontifying %s... %s." (buffer-name) + (if verbose (message "Fontifying %s...%s" (buffer-name) (if font-lock-fontified "done" "aborted"))))) (defun font-lock-default-unfontify-buffer () @@ -690,7 +693,7 @@ delimit the region to fontify." (save-excursion (forward-line lines) (point)))) (funcall font-lock-mark-block-function) (font-lock-fontify-region (point) (mark))) - ((error quit) (message "Fontifying block... %s" error-data))))))) + ((error quit) (message "Fontifying block...%s" error-data))))))) (define-key facemenu-keymap "\M-g" 'font-lock-fontify-block) -- 2.39.5