diff options
| author | Stefan Monnier | 2002-02-08 16:50:05 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-02-08 16:50:05 +0000 |
| commit | ba460008557668623a5fbcf92bb6c33abb86f144 (patch) | |
| tree | 1fcf149bf712c40b782cc0d8aa9838a38bbe46e7 | |
| parent | b735b2abe048d703be54f0c76fcd11fac9b1f67b (diff) | |
| download | emacs-ba460008557668623a5fbcf92bb6c33abb86f144.tar.gz emacs-ba460008557668623a5fbcf92bb6c33abb86f144.zip | |
(save-buffer-state): Use restore-buffer-modified-p.
(c-font-lock-syntactic-face-function): Accept doxygen-style comments.
| -rw-r--r-- | lisp/font-lock.el | 8 |
1 files changed, 5 insertions, 3 deletions
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.") | |||
| 683 | (inhibit-modification-hooks t) | 683 | (inhibit-modification-hooks t) |
| 684 | deactivate-mark buffer-file-name buffer-file-truename)) | 684 | deactivate-mark buffer-file-name buffer-file-truename)) |
| 685 | ,@body | 685 | ,@body |
| 686 | (when (and (not modified) (buffer-modified-p)) | 686 | (unless modified |
| 687 | (set-buffer-modified-p nil)))) | 687 | (restore-buffer-modified-p nil)))) |
| 688 | (put 'save-buffer-state 'lisp-indent-function 1) | 688 | (put 'save-buffer-state 'lisp-indent-function 1) |
| 689 | (def-edebug-spec save-buffer-state let) | 689 | (def-edebug-spec save-buffer-state let) |
| 690 | ;; | 690 | ;; |
| @@ -2405,7 +2405,9 @@ See also `c-font-lock-extra-types'.")) | |||
| 2405 | font-lock-warning-face | 2405 | font-lock-warning-face |
| 2406 | font-lock-string-face)) | 2406 | font-lock-string-face)) |
| 2407 | (goto-char (nth 8 state)) | 2407 | (goto-char (nth 8 state)) |
| 2408 | (if (looking-at "/\\*\\*\n") font-lock-doc-face font-lock-comment-face)))) | 2408 | ;; `doxygen' uses /*! while others use /**. |
| 2409 | (if (looking-at "/\\*[*!]\n") | ||
| 2410 | font-lock-doc-face font-lock-comment-face)))) | ||
| 2409 | 2411 | ||
| 2410 | (defvar c-font-lock-keywords c-font-lock-keywords-1 | 2412 | (defvar c-font-lock-keywords c-font-lock-keywords-1 |
| 2411 | "Default expressions to highlight in C mode. | 2413 | "Default expressions to highlight in C mode. |