mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(finder-compile-keywords): Use lm-keywords-list rather than lm-keywords.

Browse Source
This commit is contained in:
Glenn Morris 2008-06-07 02:42:43 +00:00
parent 1fb07b5bb6
commit 67f63a7a75
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/finder.el
View File

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