From: Shitikanth Kashyap <shitikanth1@gmail.com>
Date: Wed, 25 Aug 2021 11:34:45 +0000 (+0200)
Subject: tabulated-list-print delete excess lines
X-Git-Tag: emacs-28.0.90~1319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f09ee98e6877a1b8b33bd9ec976d71f1b2d6d2da;p=emacs.git

tabulated-list-print delete excess lines

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print): Ensure
that we delete remaining lines if the list has gotten shorter
(bug#50194).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index f0ee78745ac..fecfa91147e 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -481,6 +481,8 @@ changing `tabulated-list-sort-key'."
               (forward-line 1)
               (delete-region old (point))))))
       (setq entries (cdr entries)))
+    (when update
+      (delete-region (point) (point-max)))
     (set-buffer-modified-p nil)
     ;; If REMEMBER-POS was specified, move to the "old" location.
     (if saved-pt