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

[Luc Teirlinck]

Index: emacs/lisp/buff-menu.el
diff -c emacs/lisp/buff-menu.el:1.78 emacs/lisp/buff-menu.el:1.79
*** emacs/lisp/buff-menu.el:1.78        Tue Dec 14 02:33:36 2004
--- emacs/lisp/buff-menu.el     Mon Dec 27 05:17:09 2004
***************
*** 198,208 ****
    (revert-buffer))
  
  (defun Buffer-menu-revert-function (ignore1 ignore2)
    ;; We can not use save-excursion here.  The buffer gets erased.
    (let ((ocol (current-column))
        (oline (progn (move-to-column 4)
                      (get-text-property (point) 'buffer)))
!       (prop (point-min)))
      (list-buffers-noselect Buffer-menu-files-only)
      (while (setq prop (next-single-property-change prop 'buffer))
        (when (eq (get-text-property prop 'buffer) oline)
--- 198,212 ----
    (revert-buffer))
  
  (defun Buffer-menu-revert-function (ignore1 ignore2)
+   (or (eq buffer-undo-list t)
+       (setq buffer-undo-list nil))
    ;; We can not use save-excursion here.  The buffer gets erased.
    (let ((ocol (current-column))
        (oline (progn (move-to-column 4)
                      (get-text-property (point) 'buffer)))
!       (prop (point-min))
!       ;; do not make undo records for the reversion.
!       (buffer-undo-list t))
      (list-buffers-noselect Buffer-menu-files-only)
      (while (setq prop (next-single-property-change prop 'buffer))
        (when (eq (get-text-property prop 'buffer) oline)