Commit 9bd0d71a authored by Andreas Schwab's avatar Andreas Schwab
Browse files

* finder.el (generated-finder-keywords-file): New variable.

(finder-compile-keywords): Use it instead of hardcoding
finder-inf.el.
parent 52efaffc
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment