Commit e2cd29bd authored by John Paul Wallington's avatar John Paul Wallington

* font-lock.el (lisp-font-lock-keywords-1): Match `deftheme'.

* emacs-lisp/lisp-mode.el (toplevel): Define docstring offset for
`deftheme'.  Fix docstring offsets for `define-ibuffer-filter' and
`define-ibuffer-sorter'.
(lisp-imenu-generic-expression): Add `deftheme' to types.

* custom.el (customize-mark-to-save, customize-mark-as-set)
(custom-remove-theme): Doc fixes.
parent ee1f522d
2003-01-29 John Paul Wallington <jpw@gnu.org>
* font-lock.el (lisp-font-lock-keywords-1): Match `deftheme'.
* emacs-lisp/lisp-mode.el (toplevel): Define docstring offset for
`deftheme'. Fix docstring offsets for `define-ibuffer-filter' and
`define-ibuffer-sorter'.
(lisp-imenu-generic-expression): Add `deftheme' to types.
* custom.el (customize-mark-to-save, customize-mark-as-set)
(custom-remove-theme): Doc fixes.
2003-01-29 Didier Verna <didier@xemacs.org>
* cus-edit.el (custom-save-variables): also save non theme'd ones.
* cus-edit.el (custom-save-faces): ditto.
2003-01-29 Juanma Barranquero <lektu@terra.es> 2003-01-29 Juanma Barranquero <lektu@terra.es>
* composite.el (decompose-composite-char): Fix docstring. * composite.el (decompose-composite-char): Fix docstring.
......
...@@ -817,7 +817,7 @@ this sets the local binding in that buffer instead." ...@@ -817,7 +817,7 @@ this sets the local binding in that buffer instead."
If the default value of SYMBOL is different from the standard value, If the default value of SYMBOL is different from the standard value,
set the `saved-value' property to a list whose car evaluates to the set the `saved-value' property to a list whose car evaluates to the
default value. Otherwise, set it til nil. default value. Otherwise, set it to nil.
To actually save the value, call `custom-save-all'. To actually save the value, call `custom-save-all'.
...@@ -847,7 +847,7 @@ Return non-nil iff the `saved-value' property actually changed." ...@@ -847,7 +847,7 @@ Return non-nil iff the `saved-value' property actually changed."
If the default value of SYMBOL is different from the saved value if any, If the default value of SYMBOL is different from the saved value if any,
or else if it is different from the standard value, set the or else if it is different from the standard value, set the
`customized-value' property to a list whose car evaluates to the `customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it til nil. default value. Otherwise, set it to nil.
Return non-nil iff the `customized-value' property actually changed." Return non-nil iff the `customized-value' property actually changed."
(let* ((get (or (get symbol 'custom-get) 'default-value)) (let* ((get (or (get symbol 'custom-get) 'default-value))
...@@ -896,7 +896,7 @@ by `custom-make-theme-feature'." ...@@ -896,7 +896,7 @@ by `custom-make-theme-feature'."
(custom-make-theme-feature theme)))) (custom-make-theme-feature theme))))
(defun custom-remove-theme (spec-alist theme) (defun custom-remove-theme (spec-alist theme)
"Detelete all elements from SPEC-ALIST whose car is THEME." "Delete all elements from SPEC-ALIST whose car is THEME."
(let ((elt (assoc theme spec-alist))) (let ((elt (assoc theme spec-alist)))
(while elt (while elt
(setq spec-alist (delete elt spec-alist) (setq spec-alist (delete elt spec-alist)
......
...@@ -107,9 +107,9 @@ ...@@ -107,9 +107,9 @@
(purecopy (concat "^\\s-*(" (purecopy (concat "^\\s-*("
(eval-when-compile (eval-when-compile
(regexp-opt (regexp-opt
'("defgroup" "deftype" "defstruct" "defclass" '("defgroup" "deftheme" "deftype" "defstruct"
"define-condition" "define-widget" "defface" "defclass" "define-condition" "define-widget"
"defpackage") t)) "defface" "defpackage") t))
"\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
2)) 2))
...@@ -121,6 +121,7 @@ ...@@ -121,6 +121,7 @@
(put 'defun* 'doc-string-elt 3) (put 'defun* 'doc-string-elt 3)
(put 'defvar 'doc-string-elt 3) (put 'defvar 'doc-string-elt 3)
(put 'defcustom 'doc-string-elt 3) (put 'defcustom 'doc-string-elt 3)
(put 'deftheme 'doc-string-elt 2)
(put 'defconst 'doc-string-elt 3) (put 'defconst 'doc-string-elt 3)
(put 'defmacro 'doc-string-elt 3) (put 'defmacro 'doc-string-elt 3)
(put 'defmacro* 'doc-string-elt 3) (put 'defmacro* 'doc-string-elt 3)
...@@ -132,9 +133,9 @@ ...@@ -132,9 +133,9 @@
(put 'define-generic-mode 'doc-string-elt 7) (put 'define-generic-mode 'doc-string-elt 7)
;; define-global-mode has no explicit docstring. ;; define-global-mode has no explicit docstring.
(put 'easy-mmode-define-global-mode 'doc-string-elt 0) (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
(put 'define-ibuffer-filter 'doc-string-elt 3) (put 'define-ibuffer-filter 'doc-string-elt 2)
(put 'define-ibuffer-op 'doc-string-elt 3) (put 'define-ibuffer-op 'doc-string-elt 3)
(put 'define-ibuffer-sorter 'doc-string-elt 3) (put 'define-ibuffer-sorter 'doc-string-elt 2)
(defun lisp-font-lock-syntactic-face-function (state) (defun lisp-font-lock-syntactic-face-function (state)
(if (nth 3 state) (if (nth 3 state)
......
...@@ -1793,7 +1793,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item." ...@@ -1793,7 +1793,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
;; Variable declarations. ;; Variable declarations.
"\\(const\\(ant\\)?\\|custom\\|face\\|parameter\\|var\\)\\|" "\\(const\\(ant\\)?\\|custom\\|face\\|parameter\\|var\\)\\|"
;; Structure declarations. ;; Structure declarations.
"\\(class\\|group\\|package\\|struct\\|type\\)" "\\(class\\|group\\|theme\\|package\\|struct\\|type\\)"
"\\)\\)\\>" "\\)\\)\\>"
;; Any whitespace and defined object. ;; Any whitespace and defined object.
"[ \t'\(]*" "[ \t'\(]*"
...@@ -2003,6 +2003,7 @@ The value of this variable is used when Font Lock mode is turned on." ...@@ -2003,6 +2003,7 @@ The value of this variable is used when Font Lock mode is turned on."
"ifndef" "include" "line" "pragma" "undef")))) "ifndef" "include" "line" "pragma" "undef"))))
(c-preprocessor-directives-depth (c-preprocessor-directives-depth
(regexp-opt-depth c-preprocessor-directives))) (regexp-opt-depth c-preprocessor-directives)))
(defconst c-font-lock-keywords-1 (defconst c-font-lock-keywords-1
(list (list
;; ;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment