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