[Emacs-diffs] trunk r114874: Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761)

[Alp Aker]

------------------------------------------------------------
revno: 114874
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15761
committer: Alp Aker <address@hidden>
branch nick: trunk
timestamp: Wed 2013-10-30 14:35:19 -0400
message:
  Ensure unmarking in buffer menu clears 'S' marks.  (Bug#15761)
  * buff-menu.el (Buffer-menu--unmark): New function.
    (Buffer-menu-unmark, Buffer-menu-backup-unmark): Use it.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/buff-menu.el              buffmenu.el-20091113204419-o5vbwnq5f7feedwu-197

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-30 17:17:12 +0000
+++ b/lisp/ChangeLog    2013-10-30 18:35:19 +0000
@@ -1,3 +1,9 @@
+2013-10-30  Alp Aker  <address@hidden>
+
+       Ensure unmarking in buffer menu clears 'S' marks.  (Bug#15761)
+       * buff-menu.el (Buffer-menu--unmark): New function.
+       (Buffer-menu-unmark, Buffer-menu-backup-unmark): Use it.
+
 2013-10-30  Glenn Morris  <address@hidden>
 
        * Makefile.in (AUTOGENEL): Add org/org-loaddefs.el.

=== modified file 'lisp/buff-menu.el'
--- a/lisp/buff-menu.el 2013-08-05 14:26:57 +0000
+++ b/lisp/buff-menu.el 2013-10-30 18:35:19 +0000
@@ -353,14 +353,22 @@
   "Cancel all requested operations on buffer on this line and move down.
 Optional prefix arg means move up."
   (interactive "P")
-  (tabulated-list-set-col 0 " " t)
+  (Buffer-menu--unmark)
   (forward-line (if backup -1 1)))
 
 (defun Buffer-menu-backup-unmark ()
   "Move up and cancel all requested operations on buffer on line above."
   (interactive)
   (forward-line -1)
-  (tabulated-list-set-col 0 " " t))
+  (Buffer-menu--unmark))
+
+(defun Buffer-menu--unmark ()
+  (tabulated-list-set-col 0 " " t)
+  (let ((buf (Buffer-menu-buffer)))
+    (when buf
+      (if (buffer-modified-p buf)
+          (tabulated-list-set-col 2 "*" t)
+        (tabulated-list-set-col 2 " " t)))))
 
 (defun Buffer-menu-delete (&optional arg)
   "Mark the buffer on this Buffer Menu buffer line for deletion.