/[emacs]/emacs/lisp/generic.el
ViewVC logotype

Diff of /emacs/lisp/generic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by lute, Wed Mar 23 10:27:15 2005 UTC revision 1.30 by lute, Thu Mar 24 09:01:37 2005 UTC
# Line 125  Line 125 
125  ;; Internal Variables  ;; Internal Variables
126  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
127    
128  (defvar generic-font-lock-defaults nil  (defvar generic-font-lock-keywords nil
129    "Global defaults for font-lock in a generic mode.")    "Keywords for `font-lock-defaults' in a generic mode.")
130  (make-variable-buffer-local 'generic-font-lock-defaults)  (make-variable-buffer-local 'generic-font-lock-keywords)
131    (defvaralias 'generic-font-lock-defaults 'generic-font-lock-keywords)
132    (make-obsolete-variable 'generic-font-lock-defaults 'generic-font-lock-keywords "22.1")
133    
134  ;;;###autoload  ;;;###autoload
135  (defvar generic-mode-list nil  (defvar generic-mode-list nil
# Line 253  See the file generic-x.el for some examp Line 255  See the file generic-x.el for some examp
255    
256      (generic-mode-set-comments comments)      (generic-mode-set-comments comments)
257    
258      ;; Font-lock functionality      ;; Font-lock functionality.
259      ;; Font-lock-defaults are always set even if there are no keywords      ;; Font-lock-defaults is always set even if there are no keywords
260      ;; or font-lock expressions, so comments can be highlighted.      ;; or font-lock expressions, so comments can be highlighted.
261      (setq generic-font-lock-defaults nil)      (setq generic-font-lock-keywords
262      (generic-mode-set-font-lock  keywords font-lock-list)            (append
263      (make-local-variable 'font-lock-defaults)             (when keywords
264      (setq font-lock-defaults (list 'generic-font-lock-defaults nil))               (list (generic-make-keywords-list keywords font-lock-keyword-face)))
265               font-lock-list))
266        (setq font-lock-defaults '(generic-font-lock-keywords nil))
267    
268      ;; Call a list of functions      ;; Call a list of functions
269      (mapcar 'funcall funs)      (mapcar 'funcall funs)
# Line 348  Some generic modes are defined in `gener Line 352  Some generic modes are defined in `gener
352                             st))                             st))
353      (set-syntax-table st)))      (set-syntax-table st)))
354    
 (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  
355  (defun generic-bracket-support ()  (defun generic-bracket-support ()
356      "Imenu support for [KEYWORD] constructs found in INF, INI and Samba files."
357    (setq imenu-generic-expression    (setq imenu-generic-expression
358          '((nil "^\\[\\(.*\\)\\]" 1))          '((nil "^\\[\\(.*\\)\\]" 1))
359          imenu-case-fold-search t))          imenu-case-fold-search t))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26