From 9bd0d71aa9fff59f19fdef0bd0092d371d0297ca Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 29 Dec 2002 17:59:00 +0000 Subject: [PATCH] * finder.el (generated-finder-keywords-file): New variable. (finder-compile-keywords): Use it instead of hardcoding finder-inf.el. --- lisp/finder.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/finder.el b/lisp/finder.el index 6c6d386dfdb..21ff1c91063 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -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 @@ no arguments compiles from `load-path'." (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)))) -- 2.39.2