Re: The *Warnings* buffer and undo

[Glenn Morris]

Richard Stallman wrote:

>     Does the *Warnings* buffer really need to save undo info? Why not set 
>     buffer-undo-list to t in this buffer?
>
> I agree completely.  Would someone please do that?

Do you mean this:


*** warnings.el 21 Jan 2007 02:44:23 -0000 1.11
--- warnings.el 28 Mar 2007 00:47:05 -0000
***************
*** 237,242 ****
--- 237,243 ----
         (level-info (assq level warning-levels))
              start end)
              (with-current-buffer buffer
+           (let ((buffer-undo-list t))
              (goto-char (point-max))
              (when (and warning-series (symbolp warning-series))
                (setq warning-series
***************
*** 260,266 ****
      (setq end (point))
        (when (and (markerp warning-series)
                   (eq (marker-buffer warning-series) buffer))
!                      (goto-char warning-series)))
                       (if (nth 2 level-info)
                           (funcall (nth 2 level-info)))
                           (if noninteractive
--- 261,267 ----
              (setq end (point))
              (when (and (markerp warning-series)
                         (eq (marker-buffer warning-series) buffer))
!               (goto-char warning-series))))
                (if (nth 2 level-info)
                    (funcall (nth 2 level-info)))
                    (if noninteractive



Maybe you want this too, I don't know:

*** bytecomp.el     26 Mar 2007 03:30:53 -0000 2.196
--- bytecomp.el     28 Mar 2007 00:48:18 -0000
***************
*** 1011,1016 ****
--- 1011,1017 ----
     (set-buffer (get-buffer-create "*Compile-Log*"))
      (goto-char (point-max))
       (let* ((inhibit-read-only t)
+                 (buffer-undo-list t)
                                    (dir (and
                                    byte-compile-current-file
                                        (file-name-directory
                                        byte-compile-current-file)))
                                         (was-same (equal
                                         default-directory dir))