procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/ibuffer.el (ibuffer-do-toggle-read-only):

Browse source 
* lisp/dired.el (dired-toggle-read-only):
* lisp/buff-menu.el (Buffer-menu-toggle-read-only):
* lisp/bindings.el (mode-line-toggle-read-only):
* lisp/bs.el (bs-toggle-readonly): Call toggle-read-only interactively.
This commit is contained in:
Stefan Monnier 2012-08-12 13:29:53 -04:00
parent 9229c65855
commit ba10c48cc6
6 changed files with 18 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2012-08-12 Stefan Monnier <monnier@iro.umontreal.ca>
* ibuffer.el (ibuffer-do-toggle-read-only):
* dired.el (dired-toggle-read-only):
* buff-menu.el (Buffer-menu-toggle-read-only):
* bindings.el (mode-line-toggle-read-only):
* bs.el (bs-toggle-readonly): Call toggle-read-only interactively.
2012-08-12 Andreas Schwab <schwab@linux-m68k.org> 2012-08-12 Andreas Schwab <schwab@linux-m68k.org>
* descr-text.el (describe-char): Put the overlays over the * descr-text.el (describe-char): Put the overlays over the

3
lisp/bindings.el
View file

@ -40,8 +40,7 @@ corresponding to the mode line clicked."
(interactive "e") (interactive "e")
(save-selected-window (save-selected-window
(select-window (posn-window (event-start event))) (select-window (posn-window (event-start event)))
(toggle-read-only nil t) (call-interactively 'toggle-read-only)))
(force-mode-line-update)))
(defun mode-line-toggle-modified (event) (defun mode-line-toggle-modified (event)
"Toggle the buffer-modified flag from the mode-line." "Toggle the buffer-modified flag from the mode-line."

2
lisp/bs.el
View file

@ -962,7 +962,7 @@ Default is `bs--current-sort-function'."
Uses function `toggle-read-only'." Uses function `toggle-read-only'."
(interactive) (interactive)
(with-current-buffer (bs--current-buffer) (with-current-buffer (bs--current-buffer)
(toggle-read-only)) (call-interactively 'toggle-read-only))
(bs--update-current-line)) (bs--update-current-line))
(defun bs-clear-modified () (defun bs-clear-modified ()

8
lisp/buff-menu.el
View file

@ -518,10 +518,10 @@ The current window remains selected."
"Toggle read-only status of buffer on this line. "Toggle read-only status of buffer on this line.
This behaves like invoking \\[toggle-read-only] in that buffer." This behaves like invoking \\[toggle-read-only] in that buffer."
(interactive) (interactive)
(let (read-only) (let ((read-only
(with-current-buffer (Buffer-menu-buffer t) (with-current-buffer (Buffer-menu-buffer t)
(toggle-read-only) (call-interactively 'toggle-read-only)
(setq read-only buffer-read-only)) buffer-read-only)))
(tabulated-list-set-col 1 (if read-only "%" " ") t))) (tabulated-list-set-col 1 (if read-only "%" " ") t)))
(defun Buffer-menu-bury () (defun Buffer-menu-bury ()

4
lisp/dired.el
View file

@ -1961,9 +1961,9 @@ If the current buffer can be edited with Wdired, (i.e. the major
mode is `dired-mode'), call `wdired-change-to-wdired-mode'. mode is `dired-mode'), call `wdired-change-to-wdired-mode'.
Otherwise, call `toggle-read-only'." Otherwise, call `toggle-read-only'."
(interactive) (interactive)
(if (eq major-mode 'dired-mode) (if (derived-mode-p 'dired-mode)
(wdired-change-to-wdired-mode) (wdired-change-to-wdired-mode)
(toggle-read-only nil t))) (call-interactively 'toggle-read-only)))
(defun dired-next-line (arg) (defun dired-next-line (arg)
"Move down lines then position at filename. "Move down lines then position at filename.

4
lisp/ibuffer.el
View file

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