[Emacs-diffs] Changes to emacs/lisp/finder.el

[Miles Bader]

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))))