]> git.eshelyaron.com Git - emacs.git/commitdiff
(font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
authorRichard M. Stallman <rms@gnu.org>
Wed, 25 Jan 1995 00:43:25 +0000 (00:43 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 25 Jan 1995 00:43:25 +0000 (00:43 +0000)
(font-lock-hack-keywords, font-lock-unfontify-region): Likewise.

lisp/font-lock.el

index a737e0452f27cc0d97cace39b2de045b4d2accc1..ac36725aa775ec48b5a82cd8b187a546c75dffed 100644 (file)
@@ -334,7 +334,9 @@ the face is also set; its value is the face name."
       (goto-char start)
       (beginning-of-line)
       (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name)))
-      (let ((buffer-read-only nil)
+      (let ((inhibit-read-only t)
+           ;; Prevent warnings if the disk file has been altered.
+           (buffer-file-name)
            ;; Suppress all undo activity.
            (buffer-undo-list t)
            (modified (buffer-modified-p))
@@ -452,7 +454,9 @@ the face is also set; its value is the face name."
 (defun font-lock-unfontify-region (beg end)
   (let ((modified (buffer-modified-p))
        (buffer-undo-list t)
-       (buffer-read-only nil))
+       (inhibit-read-only t)
+       ;; Prevent warnings if the disk file has been altered.
+       (buffer-file-name))
     (remove-text-properties beg end '(face nil))
     (set-buffer-modified-p modified)))
 
@@ -493,7 +497,9 @@ the face is also set; its value is the face name."
   (let ((case-fold-search font-lock-keywords-case-fold-search)
        (keywords font-lock-keywords)
        (count 0)
-       (buffer-read-only nil)
+       ;; Prevent warnings if the disk file has been altered.
+       (buffer-file-name)
+       (inhibit-read-only t)
        (buffer-undo-list t)
        (modified (buffer-modified-p))
        (old-syntax (syntax-table))