Convert toggle-read-only calls to read-only-mode.

* bindings.el (mode-line-toggle-read-only):
* bs.el (bs-toggle-readonly):
* buff-menu.el (Buffer-menu-toggle-read-only):
* dired.el (dired-toggle-read-only):
* ibuffer.el (ibuffer-do-toggle-read-only): Use read-only-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0c1c50a6ddcf5bd220905bd99b5991c4d1e1379..40c9f6c2c51bf9cfabb841d254a21f56a7e62d8f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2012-09-23  Chong Yidong  <cyd@gnu.org>
+
+       * bindings.el (mode-line-toggle-read-only):
+       * bs.el (bs-toggle-readonly):
+       * buff-menu.el (Buffer-menu-toggle-read-only):
+       * dired.el (dired-toggle-read-only):
+       * ibuffer.el (ibuffer-do-toggle-read-only): Use read-only-mode.
+
 2012-09-23  Chong Yidong  <cyd@gnu.org>
 
        * image.el (image-type-available-p): Adapt to init-image-library

diff --git a/lisp/bindings.el b/lisp/bindings.el
index c20a7f30eea041e8951364a62f4693aeb973d384..7ca1bf4719f6b3ca8a977a65332a938c3fbf7ec0 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -40,7 +40,7 @@ corresponding to the mode line clicked."
   (interactive "e")
   (save-selected-window
     (select-window (posn-window (event-start event)))
-    (call-interactively 'toggle-read-only)))
+    (read-only-mode 'toggle)))
 
 (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 09aefee416ed8495775b9a6cd14de7290ad2047f..a84c951acfee67790f1f821c422ec0fa3c052161 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)
-    (call-interactively 'toggle-read-only))
+    (read-only-mode 'toggle))
   (bs--update-current-line))
 
 (defun bs-clear-modified ()

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 589b6ebc47ab7376d3544cd34ef0d0cc208f8abb..1823b07917d53d3bb302f332ec6904fb133562ad 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -520,7 +520,7 @@ This behaves like invoking \\[toggle-read-only] in that buffer."
   (interactive)
   (let ((read-only
          (with-current-buffer (Buffer-menu-buffer t)
-           (call-interactively 'toggle-read-only)
+           (read-only-mode 'toggle)
            buffer-read-only)))
     (tabulated-list-set-col 1 (if read-only "%" " ") t)))
 

diff --git a/lisp/dired.el b/lisp/dired.el
index 6defd6c4877b8924815d5d20bae5b8b1dc3c731e..ed7e6b0ddc8b991ce9724a159849f7690a5d8cc2 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1964,7 +1964,7 @@ Otherwise, call `toggle-read-only'."
   (interactive)
   (if (derived-mode-p 'dired-mode)
       (wdired-change-to-wdired-mode)
-    (call-interactively 'toggle-read-only)))
+    (read-only-mode 'toggle)))
 
 (defun dired-next-line (arg)
   "Move down lines then position at filename.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 77461469044c653400726d699035d9e748d3e4be..b067c2b639b7e1dac7cbae49893d7c9493dca03d 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1283,7 +1283,7 @@ With optional ARG, make read-only only if ARG is not negative."
   (:opstring "toggled read only status in"
    :interactive "P"
    :modifier-p t)
-  (call-interactively 'toggle-read-only))
+  (read-only-mode 'toggle))
 
 (define-ibuffer-op ibuffer-do-delete ()
   "Kill marked buffers as with `kill-this-buffer'."