From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 8 Feb 2002 16:50:05 +0000 (+0000)
Subject: (save-buffer-state): Use restore-buffer-modified-p.
X-Git-Tag: ttn-vms-21-2-B4~16771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba460008557668623a5fbcf92bb6c33abb86f144;p=emacs.git

(save-buffer-state): Use restore-buffer-modified-p.
(c-font-lock-syntactic-face-function): Accept doxygen-style comments.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 68acd5071c2..0883a086685 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -683,8 +683,8 @@ Major/minor modes can set this variable if they know which option applies.")
 		      (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 @@ See also `c-font-lock-extra-types'."))
 	      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.