diff options
| author | Stefan Monnier | 2000-08-16 20:49:45 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-08-16 20:49:45 +0000 |
| commit | 6a7ceddcab9071463e92d73e8dc16412ad776ad0 (patch) | |
| tree | 6f50c3ea59ea89133a0e82397f63d0d42fae9033 | |
| parent | 1e495fc7643d76017c7ae0bd062e623f286ac8df (diff) | |
| download | emacs-6a7ceddcab9071463e92d73e8dc16412ad776ad0.tar.gz emacs-6a7ceddcab9071463e92d73e8dc16412ad776ad0.zip | |
Add local-variable settings to the generated file.
| -rw-r--r-- | lisp/cus-dep.el | 6 | ||||
| -rw-r--r-- | lisp/finder.el | 11 |
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 |