[Emacs-diffs] /srv/bzr/emacs/trunk r103655: * lisp/emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the

[Stefan Monnier]

------------------------------------------------------------
revno: 103655
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-03-14 21:12:54 -0400
message:
  * lisp/emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
  warning message.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-14 09:53:13 +0000
+++ b/lisp/ChangeLog    2011-03-15 01:12:54 +0000
@@ -1,3 +1,8 @@
+2011-03-15  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
+       warning message.
+
 2011-03-14  Michael Albinus  <address@hidden>
 
        * shell.el (shell): When called interactively, offer to change the

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2011-03-12 02:59:24 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2011-03-15 01:12:54 +0000
@@ -3776,7 +3776,8 @@
 (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))