mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(font-lock-change-mode): Just turn off font-lock-mode.

Browse source 
(font-lock-default-function): Change arg name.
This commit is contained in:
Stefan Monnier 2002-09-09 23:22:49 +00:00
parent 08be15d860
commit 40e2bbe904
1 changed files with 4 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/font-core.el
View file

@ -218,26 +218,11 @@ your own function which is called when `font-lock-mode' is toggled via
;; Get rid of fontification for the old major mode.
;; We do this when changing major modes.
(defun font-lock-change-mode ()
(let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(inhibit-modification-hooks t)
(deactivate-mark nil)
(buffer-file-name nil)
(buffer-file-truename nil)
(buffer-undo-list t)
(modified (buffer-modified-p)))
(save-restriction
(widen)
(remove-list-of-text-properties
(point-min) (point-max) '(font-lock-face)))
(unless modified
(restore-buffer-modified-p nil)))
(when font-lock-defaults
(font-lock-unfontify-buffer)))
(font-lock-mode -1))
(defun font-lock-default-function (font-lock-mode)
(defun font-lock-default-function (mode)
;; Turn on Font Lock mode.
(when font-lock-mode
(when mode
(font-lock-set-defaults)
(set (make-local-variable 'char-property-alias-alist)
(copy-tree char-property-alias-alist))
@ -262,7 +247,7 @@ your own function which is called when `font-lock-mode' is toggled via
(message "Fontifying %s...buffer size greater than font-lock-maximum-size"
(buffer-name)))))))
;; Turn off Font Lock mode.
(unless font-lock-mode
(unless mode
;; Remove `font-lock-face' as an alias for the `face' property.
(set (make-local-variable 'char-property-alias-alist)
(copy-tree char-property-alias-alist))