diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-18 10:17:59 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-18 10:17:59 +0000 |
| commit | 887195ac8398ff3569c5fc45c4566f3c6bce2e3a (patch) | |
| tree | cf38d5b779f4a714ccdd7118ab741b297e510815 /lisp | |
| parent | 3981e5b5f52b39554131132e5e3a428d8508f546 (diff) | |
| download | emacs-887195ac8398ff3569c5fc45c4566f3c6bce2e3a.tar.gz | |
Replace `eval-current-buffer' by `eval-buffer'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/finder.el | 2 | ||||
| -rw-r--r-- | lisp/forms.el | 4 | ||||
| -rw-r--r-- | lisp/shadowfile.el | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 7a886e5480f..fb327524793 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -182,7 +182,7 @@ no arguments compiles from `load-path'." ;;; 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 () diff --git a/lisp/forms.el b/lisp/forms.el index aa0582c918a..61d2441a9ea 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -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 @@ Commands: Equivalent keys in read-only mode: (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. diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index b3149500ae5..653c1e7f042 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -675,7 +675,7 @@ Returns t unless files were locked; then returns nil." (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 @@ Returns t unless files were locked; then returns nil." (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)) |