mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(global-font-lock-mode): Set up find-file-hooks.

Browse Source 
(font-lock-default-fontify-buffer, font-lock-fontify-block)
(font-lock-mode): Fix syntax of msgs such as Fontifying...done.
This commit is contained in:
Richard M. Stallman 1996-06-17 00:06:46 +00:00
parent a013d266d1
commit 6c0fc42885
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/font-lock.el
View File

@ -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)