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:
parent
1e495fc764
commit
6a7ceddcab
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user