From: Glenn Morris <rgm@gnu.org>
Date: Sat, 7 Jun 2008 02:42:43 +0000 (+0000)
Subject: (finder-compile-keywords): Use lm-keywords-list rather than lm-keywords.
X-Git-Tag: emacs-pretest-23.0.90~5039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67f63a7a75bcf97a171510e8202ec59137616199;p=emacs.git

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

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