Mercurial > emacs
changeset 95629:470520f9b596
(finder-compile-keywords): Use lm-keywords-list rather than lm-keywords.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 07 Jun 2008 02:42:43 +0000 |
| parents | 8bb6e8177f61 |
| children | eebbd7f32937 |
| files | lisp/finder.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/finder.el Sat Jun 07 02:42:21 2008 +0000 +++ b/lisp/finder.el Sat Jun 07 02:42:43 2008 +0000 @@ -138,7 +138,7 @@ 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 @@ (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 @@ 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