From: John Paul Wallington Date: Wed, 4 Jun 2008 16:20:04 +0000 (+0000) Subject: (font-lock-turn-off-thing-lock, font-lock-after-fontify-buffer) X-Git-Tag: emacs-pretest-23.0.90~5110 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2124318ae30f32a42a59f2efe1d88b2ac51ab752;p=emacs.git (font-lock-turn-off-thing-lock, font-lock-after-fontify-buffer) (font-lock-after-unfontify-buffer): Use `bound-and-true-p'. (cpp-font-lock-keywords-source-directives, cpp-font-lock-keywords): Doc fixes. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 807e8668934..40c1eb4e7ef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -8,6 +8,12 @@ * echistory.el (electric-history-map): Define within defvar. Add docstring. + * font-lock.el (font-lock-turn-off-thing-lock) + (font-lock-after-fontify-buffer, font-lock-after-unfontify-buffer): + Use `bound-and-true-p'. + (cpp-font-lock-keywords-source-directives, cpp-font-lock-keywords): + Doc fixes. + * international/ccl.el (define-ccl-program): Add `doc-string' declaration. diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 2ddbe603cb1..e139b5975c7 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -916,26 +916,26 @@ The value of this variable is used when Font Lock mode is turned on." nil t))))) (defun font-lock-turn-off-thing-lock () - (cond ((and (boundp 'fast-lock-mode) fast-lock-mode) + (cond ((bound-and-true-p fast-lock-mode) (fast-lock-mode -1)) - ((and (boundp 'jit-lock-mode) jit-lock-mode) + ((bound-and-true-p jit-lock-mode) (jit-lock-unregister 'font-lock-fontify-region) ;; Reset local vars to the non-jit-lock case. (kill-local-variable 'font-lock-fontify-buffer-function)) - ((and (boundp 'lazy-lock-mode) lazy-lock-mode) + ((bound-and-true-p lazy-lock-mode) (lazy-lock-mode -1)))) (defun font-lock-after-fontify-buffer () - (cond ((and (boundp 'fast-lock-mode) fast-lock-mode) + (cond ((bound-and-true-p fast-lock-mode) (fast-lock-after-fontify-buffer)) ;; Useless now that jit-lock intercepts font-lock-fontify-buffer. -sm ;; (jit-lock-mode ;; (jit-lock-after-fontify-buffer)) - ((and (boundp 'lazy-lock-mode) lazy-lock-mode) + ((bound-and-true-p lazy-lock-mode) (lazy-lock-after-fontify-buffer)))) (defun font-lock-after-unfontify-buffer () - (cond ((and (boundp 'fast-lock-mode) fast-lock-mode) + (cond ((bound-and-true-p fast-lock-mode) (fast-lock-after-unfontify-buffer)) ;; Useless as well. It's only called when: ;; - turning off font-lock: it does not matter if we leave spurious @@ -945,7 +945,7 @@ The value of this variable is used when Font Lock mode is turned on." ;; ;; (jit-lock-mode ;; (jit-lock-after-unfontify-buffer)) - ((and (boundp 'lazy-lock-mode) lazy-lock-mode) + ((bound-and-true-p lazy-lock-mode) (lazy-lock-after-unfontify-buffer)))) ;;; End of Font Lock Support mode. @@ -2154,7 +2154,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item." ;; (defconst cpp-font-lock-keywords-source-directives "define\\|e\\(?:l\\(?:if\\|se\\)\\|ndif\\|rror\\)\\|file\\|i\\(?:f\\(?:n?def\\)?\\|mport\\|nclude\\)\\|line\\|pragma\\|undef\\|warning" - "Regular expressoin used in `cpp-font-lock-keywords'.") + "Regular expression used in `cpp-font-lock-keywords'.") ;; `cpp-font-lock-keywords-source-depth' is calculated from: ;; @@ -2203,10 +2203,10 @@ Used in `cpp-font-lock-keywords'.") '(1 font-lock-preprocessor-face prepend) (list (+ 2 directives-depth) 'font-lock-variable-name-face nil t)))) - "Font lock keyords for C preprocessor directives. -`c-mode', `c++-mode' and `objc-mode' have their own -font lock keyords for C preprocessor directives. This definition is for the -other modes in which C preprocessor directives are used. e.g. `asm-mode' and + "Font lock keywords for C preprocessor directives. +`c-mode', `c++-mode' and `objc-mode' have their own font lock keywords +for C preprocessor directives. This definition is for the other modes +in which C preprocessor directives are used. e.g. `asm-mode' and `ld-script-mode'.")