mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761)

Browse Source 
* buff-menu.el (Buffer-menu--unmark): New function.
  (Buffer-menu-unmark, Buffer-menu-backup-unmark): Use it.
This commit is contained in:
Alp Aker 2013-10-30 14:35:19 -04:00
parent 26fb3b30ea
commit cf59e41cd4
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2013-10-30 Alp Aker <alp.tekin.aker@gmail.com>
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 <rgm@gnu.org>
* Makefile.in (AUTOGENEL): Add org/org-loaddefs.el.

12
lisp/buff-menu.el
View File

@ -353,14 +353,22 @@ It will be displayed by the \\<Buffer-menu-mode-map>\\[Buffer-menu-select] comma
"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.