/[emacs]/emacs/lisp/font-core.el
ViewVC logotype

Diff of /emacs/lisp/font-core.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by lektu, Fri Aug 30 11:00:46 2002 UTC revision 1.15 by schwab, Sat Aug 31 17:22:29 2002 UTC
# Line 218  your own function which is called when ` Line 218  your own function which is called when `
218  ;; Get rid of fontification for the old major mode.  ;; Get rid of fontification for the old major mode.
219  ;; We do this when changing major modes.  ;; We do this when changing major modes.
220  (defun font-lock-change-mode ()  (defun font-lock-change-mode ()
221    (let ((inhibit-read-only t))    (let ((inhibit-read-only t)
222            (inhibit-point-motion-hooks t)
223            (inhibit-modification-hooks t)
224            (deactivate-mark nil)
225            (buffer-file-name nil)
226            (buffer-file-truename nil)
227            (buffer-undo-list t)
228            (modified (buffer-modified-p)))
229      (save-restriction      (save-restriction
230        (widen)        (widen)
231        (remove-list-of-text-properties        (remove-list-of-text-properties
232         (point-min) (point-max) '(font-lock-face))))         (point-min) (point-max) '(font-lock-face)))
233        (unless modified
234          (restore-buffer-modified-p nil)))
235    (when font-lock-defaults    (when font-lock-defaults
236      (font-lock-unfontify-buffer)))      (font-lock-unfontify-buffer)))
237    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26