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 |
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) |
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)) |