[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114874: Ensure unmarking in buffer menu clears 'S'
From: |
Alp Aker |
Subject: |
[Emacs-diffs] trunk r114874: Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761) |
Date: |
Wed, 30 Oct 2013 18:35:41 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114874: Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761),
Alp Aker <=