mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 03:11:09 -08:00
Code Issues Projects Releases Wiki Activity

(ibuffer-do-toggle-read-only): New optional arg as in

Browse source 
toggle-read-only.
This commit is contained in:
Roland Winkler 2008-02-25 20:07:28 +00:00
parent 56741510ef
commit 92be491c25
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-02-25 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
* ibuffer.el (ibuffer-do-toggle-read-only): New optional arg as in
toggle-read-only.
2008-02-25 Stefan Monnier <monnier@iro.umontreal.ca>
* doc-view.el (doc-view-conversion-buffer): Give it an internal name.

8
lisp/ibuffer.el
View file

@ -1257,11 +1257,13 @@ a new window in the current frame, splitting vertically."
:modifier-p t)
(set-buffer-modified-p (not (buffer-modified-p))))
(define-ibuffer-op ibuffer-do-toggle-read-only ()
"Toggle read only status in marked buffers."
(define-ibuffer-op ibuffer-do-toggle-read-only (&optional arg)
"Toggle read only status in marked buffers.
With ARG, set read-only iff arg is positive."
(:opstring "toggled read only status in"
:interactive "P"
:modifier-p t)
(toggle-read-only))
(toggle-read-only arg))
(define-ibuffer-op ibuffer-do-delete ()
"Kill marked buffers as with `kill-this-buffer'."