* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1f78c20bef147dd2e43f5fdf858891898f7ac3d..bcaf4a328f5bf595c7ad459a6acfab2959432cd1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
        * descr-text.el (describe-char): Put the overlays over the

diff --git a/lisp/bindings.el b/lisp/bindings.el
index e0555a17b15c7a3038ebb2f414291aa8ab47ca69..5d8fa261a21b4a0f500932af4273ac81a593a6ef 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -40,8 +40,7 @@ corresponding to the mode line clicked."
   (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."

diff --git a/lisp/bs.el b/lisp/bs.el
index 45a7e4d44401ba691e6e6d45ddc3f472554ba47f..09aefee416ed8495775b9a6cd14de7290ad2047f 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -962,7 +962,7 @@ Default is `bs--current-sort-function'."
 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 ()

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e9288d528ecbb90a6fb82b99bca3b40ae8dd6e47..490d59a92c0ce1d33246670f17acbcbb613eb43b 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -518,10 +518,10 @@ The current window remains selected."
   "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 ()

diff --git a/lisp/dired.el b/lisp/dired.el
index a80f48fa0c27e6a06034a9b2c0646835173eccfd..3aa0088a6993d3621c0a44fb62a9c7b428089746 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -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.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index d29653c41ae597b52babd3d495c3cf93a1f88c7f..648c4c3b0af30d6f28d86ceafa0ce61b9257bad4 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1279,11 +1279,11 @@ a new window in the current frame, splitting vertically."
 
 (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'."