diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-06-07 02:42:43 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-06-07 02:42:43 +0000 |
| commit | 67f63a7a75bcf97a171510e8202ec59137616199 (patch) | |
| tree | e56eb5fd9a09a8120035f139cf3312f20d3bd64d /lisp/finder.el | |
| parent | 1fb07b5bb66b4355b0d8e4b5e3ec4f41d5e3a286 (diff) | |
| download | emacs-67f63a7a75bcf97a171510e8202ec59137616199.tar.gz | |
(finder-compile-keywords): Use lm-keywords-list rather than lm-keywords.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 2ff4dc9c30b..3db4cb6df51 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -138,7 +138,7 @@ finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)" Optional arguments DIRS are a list of Emacs Lisp directories to compile from; no arguments compiles from `load-path'." (save-excursion - (let (processed summary keystart keywords) + (let (processed summary keywords) (find-file generated-finder-keywords-file) (setq buffer-undo-list t) (erase-buffer) @@ -159,7 +159,7 @@ no arguments compiles from `load-path'." (with-temp-buffer (insert-file-contents (expand-file-name f d)) (setq summary (lm-synopsis) - keywords (lm-keywords))) + keywords (lm-keywords-list))) (insert (format " (\"%s\"\n " (if (string-match "\\.\\(gz\\|Z\\)$" f) @@ -167,10 +167,8 @@ no arguments compiles from `load-path'." f))) (prin1 summary (current-buffer)) (insert "\n ") - (setq keystart (point)) - (insert (if keywords (format "(%s)" keywords) "nil") - ")\n") - (subst-char-in-region keystart (point) ?, ? ))) + (princ keywords (current-buffer)) + (insert ")\n"))) (directory-files d nil ;; Allow compressed files also. FIXME: ;; generalize this, especially for |