[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/finder.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/finder.el |
Date: |
Fri, 04 Apr 2003 01:22:08 -0500 |
Index: emacs/lisp/finder.el
diff -c emacs/lisp/finder.el:1.53 emacs/lisp/finder.el:1.54
*** emacs/lisp/finder.el:1.53 Thu Dec 5 19:39:16 2002
--- emacs/lisp/finder.el Sun Dec 29 12:59:00 2002
***************
*** 110,124 ****
(defvar finder-package-info nil
"Assoc list mapping file names to description & keyword lists.")
(defun finder-compile-keywords (&rest dirs)
! "Regenerate the keywords association list into the file `finder-inf.el'.
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")
(erase-buffer)
! (insert ";;; finder-inf.el --- 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")
--- 110,128 ----
(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
`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 generated-finder-keywords-file)
(erase-buffer)
! (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,179 ****
(directory-files (or d ".")))))
(or dirs load-path))
(insert "))\n
! \(provide 'finder-inf)
;;; Local Variables:
;;; version-control: never
;;; no-byte-compile: t
;;; no-update-autoloads: t
;;; End:
! ;;; finder-inf.el ends here\n")
(kill-buffer "*finder-scratch*")
(eval-current-buffer) ;; So we get the new keyword list immediately
(basic-save-buffer))))
--- 170,184 ----
(directory-files (or d ".")))))
(or dirs load-path))
(insert "))\n
! \(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:
! ;;; " (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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/finder.el,
Miles Bader <=