aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-08-16 20:49:45 +0000
committerStefan Monnier2000-08-16 20:49:45 +0000
commit6a7ceddcab9071463e92d73e8dc16412ad776ad0 (patch)
tree6f50c3ea59ea89133a0e82397f63d0d42fae9033
parent1e495fc7643d76017c7ae0bd062e623f286ac8df (diff)
downloademacs-6a7ceddcab9071463e92d73e8dc16412ad776ad0.tar.gz
emacs-6a7ceddcab9071463e92d73e8dc16412ad776ad0.zip
Add local-variable settings to the generated file.
-rw-r--r--lisp/cus-dep.el6
-rw-r--r--lisp/finder.el11
2 files changed, 16 insertions, 1 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 180d6679b3e..4ce2932ab72 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -162,10 +162,16 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
162 162
163\(provide 'cus-load) 163\(provide 'cus-load)
164 164
165;;; Local Variables:
166;;; version-control: never
167;;; no-byte-compile: t
168;;; no-update-autoloads: t
169;;; End:
165;;; cus-load.el ends here\n") 170;;; cus-load.el ends here\n")
166 (let ((kept-new-versions 10000000)) 171 (let ((kept-new-versions 10000000))
167 (save-buffer)) 172 (save-buffer))
168 (message "Generating cus-load.el...done") 173 (message "Generating cus-load.el...done")
169 (kill-emacs)) 174 (kill-emacs))
170 175
176
171;;; cus-dep.el ends here 177;;; cus-dep.el ends here
diff --git a/lisp/finder.el b/lisp/finder.el
index 4eb7d9949e9..037083e20b5 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -159,7 +159,15 @@ no arguments compiles from `load-path'."
159 ))) 159 )))
160 (directory-files (or d "."))))) 160 (directory-files (or d ".")))))
161 (or dirs load-path)) 161 (or dirs load-path))
162 (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n") 162 (insert "))\n
163\(provide 'finder-inf)
164
165;;; Local Variables:
166;;; version-control: never
167;;; no-byte-compile: t
168;;; no-update-autoloads: t
169;;; End:
170;;; finder-inf.el ends here\n")
163 (kill-buffer "*finder-scratch*") 171 (kill-buffer "*finder-scratch*")
164 (eval-current-buffer) ;; So we get the new keyword list immediately 172 (eval-current-buffer) ;; So we get the new keyword list immediately
165 (basic-save-buffer)))) 173 (basic-save-buffer))))
@@ -333,6 +341,7 @@ finder directory, \\[finder-exit] = quit, \\[finder-summary] = help")))
333 (and (get-buffer "*Finder Category*") 341 (and (get-buffer "*Finder Category*")
334 (kill-buffer "*Finder Category*"))) 342 (kill-buffer "*Finder Category*")))
335 343
344
336(provide 'finder) 345(provide 'finder)
337 346
338;;; finder.el ends here 347;;; finder.el ends here