Mercurial > emacs

changeset 43193:448551584591

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-buffer-state): Use restore-buffer-modified-p. (c-font-lock-syntactic-face-function): Accept doxygen-style comments.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 08 Feb 2002 16:50:05 +0000
parents cb0f03cc4b81
children 8caf2a2ccf88
files lisp/font-lock.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Fri Feb 08 14:11:56 2002 +0000
+++ b/lisp/font-lock.el	Fri Feb 08 16:50:05 2002 +0000
@@ -683,8 +683,8 @@
 		      (inhibit-modification-hooks t)
 		      deactivate-mark buffer-file-name buffer-file-truename))
        ,@body
-       (when (and (not modified) (buffer-modified-p))
-	 (set-buffer-modified-p nil))))
+       (unless modified
+	 (restore-buffer-modified-p nil))))
   (put 'save-buffer-state 'lisp-indent-function 1)
   (def-edebug-spec save-buffer-state let)
   ;;
@@ -2405,7 +2405,9 @@
 	      font-lock-warning-face
 	    font-lock-string-face))
       (goto-char (nth 8 state))
-      (if (looking-at "/\\*\\*\n") font-lock-doc-face font-lock-comment-face))))
+      ;; `doxygen' uses /*! while others use /**.
+      (if (looking-at "/\\*[*!]\n")
+	  font-lock-doc-face font-lock-comment-face))))
 
 (defvar c-font-lock-keywords c-font-lock-keywords-1
   "Default expressions to highlight in C mode.