diff options
author | Lute Kamstra <[email protected]> | 2005-03-24 09:02:55 +0000 |
---|---|---|
committer | Lute Kamstra <[email protected]> | 2005-03-24 09:02:55 +0000 |
commit | fbc5e35941d61b93ca736f14e5a1ba73f01d3167 (patch) | |
tree | 847eac7cd86ad0b6c2428980bd2a1cdcbb436f70 /lisp | |
parent | c29749e73120925796d8c741f5e12388091d6691 (diff) |
(generic-font-lock-defaults): Make it obsolete.
(generic-font-lock-keywords): New variable to replace
generic-font-lock-defaults.
(generic-mode-set-font-lock): Delete it.
(generic-mode-internal): Don't call generic-mode-set-font-lock.
(generic-bracket-support): Add docstring.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 11 | ||||
-rw-r--r-- | lisp/generic.el | 32 |
2 files changed, 24 insertions, 19 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 18df764692..86ad00017f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,15 @@ +2005-03-24 Lute Kamstra <[email protected]> + + * generic.el (generic-font-lock-defaults): Make it obsolete. + (generic-font-lock-keywords): New variable to replace + generic-font-lock-defaults. + (generic-mode-set-font-lock): Delete it. + (generic-mode-internal): Don't call generic-mode-set-font-lock. + (generic-bracket-support): Add docstring. + 2005-03-23 Miles Bader <[email protected]> - * progmodes/gdb-ui.el (breakpoint-enabled, breakpoint-disabled): + * progmodes/gdb-ui.el (breakpoint-enabled, breakpoint-disabled): Remove tty-specific variants, as they're no longer needed. 2005-03-23 Lute Kamstra <[email protected]> diff --git a/lisp/generic.el b/lisp/generic.el index 4db830eafb..ffd44d8762 100644 --- a/lisp/generic.el +++ b/lisp/generic.el @@ -125,9 +125,11 @@ ;; Internal Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defvar generic-font-lock-defaults nil - "Global defaults for font-lock in a generic mode.") -(make-variable-buffer-local 'generic-font-lock-defaults) +(defvar generic-font-lock-keywords nil + "Keywords for `font-lock-defaults' in a generic mode.") +(make-variable-buffer-local 'generic-font-lock-keywords) +(defvaralias 'generic-font-lock-defaults 'generic-font-lock-keywords) +(make-obsolete-variable 'generic-font-lock-defaults 'generic-font-lock-keywords "22.1") ;;;###autoload (defvar generic-mode-list nil @@ -253,13 +255,15 @@ See the file generic-x.el for some examples of `define-generic-mode'." (generic-mode-set-comments comments) - ;; Font-lock functionality - ;; Font-lock-defaults are always set even if there are no keywords + ;; Font-lock functionality. + ;; Font-lock-defaults is always set even if there are no keywords ;; or font-lock expressions, so comments can be highlighted. - (setq generic-font-lock-defaults nil) - (generic-mode-set-font-lock keywords font-lock-list) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults (list 'generic-font-lock-defaults nil)) + (setq generic-font-lock-keywords + (append + (when keywords + (list (generic-make-keywords-list keywords font-lock-keyword-face))) + font-lock-list)) + (setq font-lock-defaults '(generic-font-lock-keywords nil)) ;; Call a list of functions (mapcar 'funcall funs) @@ -348,16 +352,8 @@ Some generic modes are defined in `generic-x.el'." st)) (set-syntax-table st))) -(defun generic-mode-set-font-lock (keywords font-lock-expressions) - "Set up font-lock functionality for generic mode." - (setq generic-font-lock-defaults - (append - (when keywords - (list (generic-make-keywords-list keywords font-lock-keyword-face))) - font-lock-expressions))) - -;; Support for [KEYWORD] constructs found in INF, INI and Samba files (defun generic-bracket-support () + "Imenu support for [KEYWORD] constructs found in INF, INI and Samba files." (setq imenu-generic-expression '((nil "^\\[\\(.*\\)\\]" 1)) imenu-case-fold-search t)) |