+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>
* descr-text.el (describe-char): Put the overlays over the
(interactive "e")
(save-selected-window
(select-window (posn-window (event-start event)))
- (toggle-read-only nil t)
- (force-mode-line-update)))
+ (call-interactively 'toggle-read-only)))
(defun mode-line-toggle-modified (event)
"Toggle the buffer-modified flag from the mode-line."
Uses function `toggle-read-only'."
(interactive)
(with-current-buffer (bs--current-buffer)
- (toggle-read-only))
+ (call-interactively 'toggle-read-only))
(bs--update-current-line))
(defun bs-clear-modified ()
"Toggle read-only status of buffer on this line.
This behaves like invoking \\[toggle-read-only] in that buffer."
(interactive)
- (let (read-only)
- (with-current-buffer (Buffer-menu-buffer t)
- (toggle-read-only)
- (setq read-only buffer-read-only))
+ (let ((read-only
+ (with-current-buffer (Buffer-menu-buffer t)
+ (call-interactively 'toggle-read-only)
+ buffer-read-only)))
(tabulated-list-set-col 1 (if read-only "%" " ") t)))
(defun Buffer-menu-bury ()
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.
(define-ibuffer-op ibuffer-do-toggle-read-only (&optional arg)
"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"
:interactive "P"
:modifier-p t)
- (toggle-read-only arg t))
+ (call-interactively 'toggle-read-only))
(define-ibuffer-op ibuffer-do-delete ()
"Kill marked buffers as with `kill-this-buffer'."