Mercurial > emacs
changeset 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 | 2c228409c44d |
| children | 5bdce92e5771 |
| files | lisp/finder.el lisp/forms.el lisp/shadowfile.el |
| diffstat | 3 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/finder.el Wed May 18 10:17:18 2005 +0000 +++ b/lisp/finder.el Wed May 18 10:17:59 2005 +0000 @@ -182,7 +182,7 @@ ;;; End: ;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n") (kill-buffer "*finder-scratch*") - (eval-current-buffer) ;; So we get the new keyword list immediately + (eval-buffer) ;; So we get the new keyword list immediately (basic-save-buffer)))) (defun finder-compile-keywords-make-dist ()
--- a/lisp/forms.el Wed May 18 10:17:18 2005 +0000 +++ b/lisp/forms.el Wed May 18 10:17:59 2005 +0000 @@ -63,7 +63,7 @@ ;; Automatic mode switching is supported if you specify ;; "-*- forms -*-" in the first line of the control file. ;; -;; The control file is visited, evaluated using `eval-current-buffer', +;; The control file is visited, evaluated using `eval-buffer', ;; and should set at least the following variables: ;; ;; forms-file [string] @@ -519,7 +519,7 @@ (yes-or-no-p (concat "Evaluate lisp code in buffer " (buffer-name) " to display forms "))) - (eval-current-buffer) + (eval-buffer) (error "`enable-local-eval' inhibits buffer evaluation")) ;; Check if the mandatory variables make sense.
--- a/lisp/shadowfile.el Wed May 18 10:17:18 2005 +0000 +++ b/lisp/shadowfile.el Wed May 18 10:17:59 2005 +0000 @@ -675,7 +675,7 @@ (message "Data recovered from %s." (car (insert-file-contents (make-auto-save-file-name)))) (sit-for 1)) - (eval-current-buffer)) + (eval-buffer)) (when shadow-todo-file (set-buffer (setq shadow-todo-buffer (find-file-noselect shadow-todo-file))) @@ -686,7 +686,7 @@ (message "Data recovered from %s." (car (insert-file-contents (make-auto-save-file-name)))) (sit-for 1)) - (eval-current-buffer nil)) + (eval-buffer nil)) (shadow-invalidate-hashtable)) t))