[Emacs-diffs] Changes to emacs/lisp/warnings.el

[Richard M. Stallman]

Index: emacs/lisp/warnings.el
diff -c emacs/lisp/warnings.el:1.9 emacs/lisp/warnings.el:1.10
*** emacs/lisp/warnings.el:1.9  Fri Sep  6 03:19:30 2002
--- emacs/lisp/warnings.el      Sat Sep 14 13:35:19 2002
***************
*** 257,263 ****
            ;; Do this unconditionally, since there is no way
            ;; to view logged messages unless we output them.
            (with-current-buffer buffer
!             (message "%s" (buffer-substring start end)))
          ;; Interactively, decide whether the warning merits
          ;; immediate display.
          (or (< (warning-numeric-level level)
--- 257,269 ----
            ;; Do this unconditionally, since there is no way
            ;; to view logged messages unless we output them.
            (with-current-buffer buffer
!             (save-excursion
!               ;; Don't include the final newline in the arg
!               ;; to `message', because it adds a newline.
!               (goto-char end)
!               (if (bolp)
!                   (forward-char -1))
!               (message "%s" (buffer-substring start (point)))))
          ;; Interactively, decide whether the warning merits
          ;; immediate display.
          (or (< (warning-numeric-level level)