Mercurial > emacs
comparison lisp/finder.el @ 30883:869204bacd5f
Add local-variable settings to the generated file.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Aug 2000 20:49:45 +0000 |
| parents | 7618c3801a21 |
| children | cc332f3565f2 |
comparison
equal
deleted
inserted
replaced
| 30882:e5b3af28990a | 30883:869204bacd5f |
|---|---|
| 157 ")\n") | 157 ")\n") |
| 158 (subst-char-in-region keystart (point) ?, ? ) | 158 (subst-char-in-region keystart (point) ?, ? ) |
| 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)))) |
| 166 | 174 |
| 167 (defun finder-compile-keywords-make-dist () | 175 (defun finder-compile-keywords-make-dist () |
| 331 (and (get-buffer "*Finder*") | 339 (and (get-buffer "*Finder*") |
| 332 (kill-buffer "*Finder*")) | 340 (kill-buffer "*Finder*")) |
| 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 |