# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1212806563 0
# Node ID 470520f9b59675c98904ef65e47d548ff8e0ed34
# Parent  8bb6e8177f61e589971aabbe9a1e2b2098ac166b
(finder-compile-keywords): Use lm-keywords-list rather than lm-keywords.

diff -r 8bb6e8177f61 -r 470520f9b596 lisp/finder.el
--- 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