diff options
Diffstat (limited to 'misc/eselect-mode.el')
-rw-r--r-- | misc/eselect-mode.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/misc/eselect-mode.el b/misc/eselect-mode.el index 3bdac81..d7ea649 100644 --- a/misc/eselect-mode.el +++ b/misc/eselect-mode.el @@ -69,20 +69,11 @@ "get_repo_news_dir" "env_update") font-lock-type-face)) -(defun eselect-mode-make-keywords-list (keywords-list face - &optional prefix suffix) - ;; based on `generic-make-keywords-list' from generic.el - ;; Note: XEmacs doesn't have generic.el - (unless (listp keywords-list) - (error "Keywords argument must be a list of strings")) - (cons (concat prefix "\\<" - (regexp-opt keywords-list t) - "\\>" suffix) - face)) - (defvar eselect-mode-font-lock-keywords (mapcar - (lambda (x) (apply 'eselect-mode-make-keywords-list x)) + (lambda (x) + (cons (regexp-opt (car x) 'words) + (cadr x))) (list eselect-mode-keywords-warn eselect-mode-keywords-core |