emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r110158: Convert toggle-read-only cal


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r110158: Convert toggle-read-only calls to read-only-mode.
Date: Sun, 23 Sep 2012 18:21:34 +0800
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 110158
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-23 18:21:34 +0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/bindings.el
  lisp/bs.el
  lisp/buff-menu.el
  lisp/dired.el
  lisp/ibuffer.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-23 09:16:57 +0000
+++ b/lisp/ChangeLog    2012-09-23 10:21:34 +0000
@@ -1,5 +1,13 @@
 2012-09-23  Chong Yidong  <address@hidden>
 
+       * 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  <address@hidden>
+
        * image.el (image-type-available-p): Adapt to init-image-library
        argument changes.
 

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2012-08-15 16:29:11 +0000
+++ b/lisp/bindings.el  2012-09-23 10:21:34 +0000
@@ -40,7 +40,7 @@
   (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."

=== modified file 'lisp/bs.el'
--- a/lisp/bs.el        2012-08-12 17:29:53 +0000
+++ b/lisp/bs.el        2012-09-23 10:21:34 +0000
@@ -962,7 +962,7 @@
 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 ()

=== modified file 'lisp/buff-menu.el'
--- a/lisp/buff-menu.el 2012-08-15 16:29:11 +0000
+++ b/lisp/buff-menu.el 2012-09-23 10:21:34 +0000
@@ -520,7 +520,7 @@
   (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)))
 

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2012-09-22 22:57:11 +0000
+++ b/lisp/dired.el     2012-09-23 10:21:34 +0000
@@ -1964,7 +1964,7 @@
   (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.

=== modified file 'lisp/ibuffer.el'
--- a/lisp/ibuffer.el   2012-09-17 05:41:04 +0000
+++ b/lisp/ibuffer.el   2012-09-23 10:21:34 +0000
@@ -1283,7 +1283,7 @@
   (: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'."


reply via email to

[Prev in Thread] Current Thread [Next in Thread]