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

* 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

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'.
Otherwise, call `toggle-read-only'."
(interactive)
(if (eq major-mode 'dired-mode)
(if (derived-mode-p 'dired-mode)
(wdired-change-to-wdired-mode)
(toggle-read-only nil t)))
(call-interactively 'toggle-read-only)))
(defun dired-next-line (arg)
"Move down lines then position at filename.