# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1041184740 0
# Node ID d3a44c8bd8d27191be5c353b4fb3a521cf1beb85
# Parent  dfea5194194ffcae892331008a1a58f52093ff9f
* finder.el (generated-finder-keywords-file): New variable.
(finder-compile-keywords): Use it instead of hardcoding
finder-inf.el.

diff -r dfea5194194f -r d3a44c8bd8d2 lisp/finder.el
--- a/lisp/finder.el	Sun Dec 29 07:34:48 2002 +0000
+++ b/lisp/finder.el	Sun Dec 29 17:59:00 2002 +0000
@@ -110,15 +110,19 @@
 (defvar finder-package-info nil
   "Assoc list mapping file names to description & keyword lists.")
 
+(defvar generated-finder-keywords-file "finder-inf.el"
+  "File \\[finder-compile-keywords] puts finder keywords into.")
+
 (defun finder-compile-keywords (&rest dirs)
-  "Regenerate the keywords association list into the file `finder-inf.el'.
+  "Regenerate the keywords association list into `generated-finder-keywords-file'.
 Optional arguments DIRS are a list of Emacs Lisp directories to compile from;
 no arguments compiles from `load-path'."
   (save-excursion
     (let ((processed nil))
-      (find-file "finder-inf.el")
+      (find-file generated-finder-keywords-file)
       (erase-buffer)
-      (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
+      (insert ";;; " (file-name-nondirectory generated-finder-keywords-file)
+	      " --- keyword-to-package mapping\n")
       (insert ";; This file is part of GNU Emacs.\n")
       (insert ";;; Commentary:\n")
       (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
@@ -166,14 +170,15 @@
 	    (directory-files (or d ".")))))
        (or dirs load-path))
       (insert "))\n
-\(provide 'finder-inf)
+\(provide '" (file-name-sans-extension
+	      (file-name-nondirectory generated-finder-keywords-file)) ")
 
 ;;; Local Variables:
 ;;; version-control: never
 ;;; no-byte-compile: t
 ;;; no-update-autoloads: t
 ;;; End:
-;;; finder-inf.el ends here\n")
+;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n")
       (kill-buffer "*finder-scratch*")
       (eval-current-buffer) ;; So we get the new keyword list immediately
       (basic-save-buffer))))