diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-03-14 21:12:54 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-03-14 21:12:54 -0400 |
| commit | 0a57d256afbca59f9432c8b7c9f2c58bca8ff562 (patch) | |
| tree | d5ab2d93224f305589c42b42f3518c10ebeeda56 | |
| parent | c96bbc66c6ce2554a0c5336110d5fd9a72ae371a (diff) | |
| download | emacs-0a57d256afbca59f9432c8b7c9f2c58bca8ff562.tar.gz | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
warning message.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b36be6f3a09..e41e948ef29 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-15 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the + warning message. + 2011-03-14 Michael Albinus <michael.albinus@gmx.de> * shell.el (shell): When called interactively, offer to change the diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 5e24b80ac5a..5c845e59c85 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3776,7 +3776,8 @@ that suppresses all warnings during execution of BODY." (defun byte-compile-save-excursion (form) (if (and (eq 'set-buffer (car-safe (car-safe (cdr form)))) (byte-compile-warning-enabled-p 'suspicious)) - (byte-compile-warn "`save-excursion' defeated by `set-buffer'")) + (byte-compile-warn + "Use `with-current-buffer' rather than save-excursion+set-buffer")) (byte-compile-out 'byte-save-excursion 0) (byte-compile-body-do-effect (cdr form)) (byte-compile-out 'byte-unbind 1)) |