(byte-compile-save-excursion): Make message consistent with others (no

final period).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff79d3b3469ac50c2ed549e04783656a18be7437..5d9edfb78c2580882fbfd09c63b5925b01db2f18 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-12-01  Glenn Morris  <rgm@gnu.org>
 
+       * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Make message
+       consistent with others (no final period).
+
        * mail/rmailmm.el (rmail-mime-handle): Doc fix.
        (rmail-mime-show): Downcase the encoding.  (Bug#5070)
 

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index bf7c2c113f0a96c44e2458e55d025843b191c4a9..c633f7f65676da69638235a2261c81fc65d2ba01 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3714,7 +3714,7 @@ 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 "`save-excursion' defeated by `set-buffer'"))
   (byte-compile-out 'byte-save-excursion 0)
   (byte-compile-body-do-effect (cdr form))
   (byte-compile-out 'byte-unbind 1))