diff options
| author |   Ulrich Müller <ulm@gentoo.org> | 2022-05-01 19:32:10 +0200 |
|---|---|---|
| committer | Ulrich Müller <ulm@gentoo.org> | 2022-05-01 19:32:10 +0200 |
| commit | 03dd0b50c278ae49bfcae50fb53eb7fb42ca3829 (patch) | |
| tree | 512d86f7c5ff33264bd1e1fdd0919760caa6bb02 /misc/eselect-mode.el | |
| parent | Drop XEmacs compatibility code in eselect-mode (diff) | |
| download | eselect-03dd0b50c278ae49bfcae50fb53eb7fb42ca3829.tar.gz eselect-03dd0b50c278ae49bfcae50fb53eb7fb42ca3829.tar.bz2 eselect-03dd0b50c278ae49bfcae50fb53eb7fb42ca3829.zip | |
eselect-mode: Remove eselect-mode-make-keywords-list function
* misc/eselect-mode.el (eselect-mode-make-keywords-list): Remove.
(eselect-mode-font-lock-keywords): Inline its code. \< \> around
a regexp can be obtained via the paren option of regexp-opt.
Signed-off-by: Ulrich Müller <ulm@gentoo.org>
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 |