1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00

Add local-variable settings to the generated file.

This commit is contained in:
Stefan Monnier 2000-08-16 20:49:45 +00:00
parent 1e495fc764
commit 6a7ceddcab
2 changed files with 16 additions and 1 deletions

View File

@ -162,10 +162,16 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
\(provide 'cus-load) \(provide 'cus-load)
;;; Local Variables:
;;; version-control: never
;;; no-byte-compile: t
;;; no-update-autoloads: t
;;; End:
;;; cus-load.el ends here\n") ;;; cus-load.el ends here\n")
(let ((kept-new-versions 10000000)) (let ((kept-new-versions 10000000))
(save-buffer)) (save-buffer))
(message "Generating cus-load.el...done") (message "Generating cus-load.el...done")
(kill-emacs)) (kill-emacs))
;;; cus-dep.el ends here ;;; cus-dep.el ends here

View File

@ -159,7 +159,15 @@ no arguments compiles from `load-path'."
))) )))
(directory-files (or d "."))))) (directory-files (or d ".")))))
(or dirs load-path)) (or dirs load-path))
(insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n") (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*") (kill-buffer "*finder-scratch*")
(eval-current-buffer) ;; So we get the new keyword list immediately (eval-current-buffer) ;; So we get the new keyword list immediately
(basic-save-buffer)))) (basic-save-buffer))))
@ -333,6 +341,7 @@ finder directory, \\[finder-exit] = quit, \\[finder-summary] = help")))
(and (get-buffer "*Finder Category*") (and (get-buffer "*Finder Category*")
(kill-buffer "*Finder Category*"))) (kill-buffer "*Finder Category*")))
(provide 'finder) (provide 'finder)
;;; finder.el ends here ;;; finder.el ends here