Mercurial > emacs
changeset 15442:b4c8360e450e
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 17 Jun 1996 00:06:46 +0000 |
| parents | 4b82998394ae |
| children | 7a3398850d94 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Sun Jun 16 23:30:31 1996 +0000 +++ b/lisp/font-lock.el Mon Jun 17 00:06:46 1996 +0000 @@ -457,7 +457,7 @@ '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 @@ (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 @@ (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 @@ (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)