[Top][All Lists]
[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'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110158: Convert toggle-read-only calls to read-only-mode.,
Chong Yidong <=