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

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

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

revision 1.264 by lektu, Thu Jun 16 16:09:42 2005 UTC revision 1.265 by monnier, Wed Jun 29 08:19:17 2005 UTC
# Line 620  Major/minor modes can set this variable Line 620  Major/minor modes can set this variable
620    ;; We use this to preserve or protect things when modifying text properties.    ;; We use this to preserve or protect things when modifying text properties.
621    (defmacro save-buffer-state (varlist &rest body)    (defmacro save-buffer-state (varlist &rest body)
622      "Bind variables according to VARLIST and eval BODY restoring buffer state."      "Bind variables according to VARLIST and eval BODY restoring buffer state."
623        (declare (indent 1) (debug let))
624      (let ((modified (make-symbol "modified")))      (let ((modified (make-symbol "modified")))
625        `(let* ,(append varlist        `(let* ,(append varlist
626                        `((,modified (buffer-modified-p))                        `((,modified (buffer-modified-p))
# Line 634  Major/minor modes can set this variable Line 635  Major/minor modes can set this variable
635             ,@body)             ,@body)
636           (unless ,modified           (unless ,modified
637             (restore-buffer-modified-p nil)))))             (restore-buffer-modified-p nil)))))
   (put 'save-buffer-state 'lisp-indent-function 1)  
   (def-edebug-spec save-buffer-state let)  
638    ;;    ;;
639    ;; Shut up the byte compiler.    ;; Shut up the byte compiler.
640    (defvar font-lock-face-attributes))   ; Obsolete but respected if set.    (defvar font-lock-face-attributes))   ; Obsolete but respected if set.

Legend:
Removed from v.1.264  
changed lines
  Added in v.1.265

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