Mercurial > emacs
comparison lisp/finder.el @ 62459:b89461946700
Replace `eval-current-buffer' by `eval-buffer'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 18 May 2005 10:17:59 +0000 |
| parents | 23533546bb38 |
| children | 6fb026ad601f f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62458:2c228409c44d | 62459:b89461946700 |
|---|---|
| 180 ;;; no-byte-compile: t | 180 ;;; no-byte-compile: t |
| 181 ;;; no-update-autoloads: t | 181 ;;; no-update-autoloads: t |
| 182 ;;; End: | 182 ;;; End: |
| 183 ;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n") | 183 ;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n") |
| 184 (kill-buffer "*finder-scratch*") | 184 (kill-buffer "*finder-scratch*") |
| 185 (eval-current-buffer) ;; So we get the new keyword list immediately | 185 (eval-buffer) ;; So we get the new keyword list immediately |
| 186 (basic-save-buffer)))) | 186 (basic-save-buffer)))) |
| 187 | 187 |
| 188 (defun finder-compile-keywords-make-dist () | 188 (defun finder-compile-keywords-make-dist () |
| 189 "Regenerate `finder-inf.el' for the Emacs distribution." | 189 "Regenerate `finder-inf.el' for the Emacs distribution." |
| 190 (apply 'finder-compile-keywords command-line-args-left) | 190 (apply 'finder-compile-keywords command-line-args-left) |