Small fixes re toggle-read-only, mainly doc

* progmodes/hideif.el (hide-ifdef-mode-submap): Also substitute 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):
* files.el (view-read-only, find-file-read-only)
(find-file-read-only-other-window)
(find-file-read-only-other-frame):
* progmodes/hideif.el (hide-ifdef-toggle-outside-read-only):
Doc fixes re toggle-read-only.

* view.el: Comment updates.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ee5ee808c1abd2f3f7d7d9ec4a8a48e4c7af6ef..6c6e7543c29533a300d674f575c4ab171f913bdf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2014-07-21  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/hideif.el (hide-ifdef-mode-submap):
+       Also substitute 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):
+       * files.el (view-read-only, find-file-read-only)
+       (find-file-read-only-other-window)
+       (find-file-read-only-other-frame):
+       * progmodes/hideif.el (hide-ifdef-toggle-outside-read-only):
+       Doc fixes re toggle-read-only.
+
 2014-07-20  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        * progmodes/python.el: Add comment about pipe buffering and

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 911ab63e8d05fa45b0c2fd276173619dfa4d0b4f..ac31723e02d083e1750cfbb20377c808341ec826 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -36,7 +36,7 @@ corresponding to the mode line clicked."
 
 
 (defun mode-line-toggle-read-only (event)
-  "Like `toggle-read-only', for the mode-line."
+  "Like toggling `read-only-mode', for the mode-line."
   (interactive "e")
   (with-selected-window (posn-window (event-start event))
     (read-only-mode 'toggle)))

diff --git a/lisp/bs.el b/lisp/bs.el
index f0f8b1dc35110d45fe9f795765e37cfaebe1144b..0348b95a1ef9542e84d71ae0f880517fe6c53ae0 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -954,7 +954,7 @@ Default is `bs--current-sort-function'."
 
 (defun bs-toggle-readonly ()
   "Toggle read-only status for buffer on current line.
-Uses function `toggle-read-only'."
+Uses function `read-only-mode'."
   (interactive)
   (with-current-buffer (bs--current-buffer)
     (read-only-mode 'toggle))

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index d85caca6216d09a35efb5e318b45b024bdad19ee..f1772b3d20c4e18a91103249cbe04ca0acaf1356 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -539,7 +539,7 @@ The current window remains selected."
 
 (defun Buffer-menu-toggle-read-only ()
   "Toggle read-only status of buffer on this line.
-This behaves like invoking \\[toggle-read-only] in that buffer."
+This behaves like invoking \\[read-only-mode] in that buffer."
   (interactive)
   (let ((read-only
          (with-current-buffer (Buffer-menu-buffer t)

diff --git a/lisp/dired.el b/lisp/dired.el
index e4f297e8cc80bc07fed04b6772e0f81b646a2724..60f8c1e9dfc6414c4c1efb12401de658a29878c9 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2015,7 +2015,7 @@ Actual changes in files cannot be undone by Emacs."))
   "Edit Dired buffer with Wdired, or make it read-only.
 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'."
+Otherwise, toggle `read-only-mode'."
   (interactive)
   (if (derived-mode-p 'dired-mode)
       (wdired-change-to-wdired-mode)

diff --git a/lisp/files.el b/lisp/files.el
index 718421b18998163cf0774879757ad699637fcb56..a5cee47ee8a73352d047240da86f7271917537ed 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -572,7 +572,7 @@ A value of nil means ignore them; anything else means query."
 In fact, this means that all read-only buffers normally have
 View mode enabled, including buffers that are read-only because
 you visit a file you cannot alter, and buffers you make read-only
-using \\[toggle-read-only]."
+using \\[read-only-mode]."
   :type 'boolean
   :group 'view)
 
@@ -1517,7 +1517,7 @@ file names with wildcards."
 (defun find-file-read-only (filename &optional wildcards)
   "Edit file FILENAME but don't allow changes.
 Like \\[find-file], but marks buffer as read-only.
-Use \\[toggle-read-only] to permit editing."
+Use \\[read-only-mode] to permit editing."
   (interactive
    (find-file-read-args "Find file read-only: "
                         (confirm-nonexistent-file-or-buffer)))
@@ -1526,7 +1526,7 @@ Use \\[toggle-read-only] to permit editing."
 (defun find-file-read-only-other-window (filename &optional wildcards)
   "Edit file FILENAME in another window but don't allow changes.
 Like \\[find-file-other-window], but marks buffer as read-only.
-Use \\[toggle-read-only] to permit editing."
+Use \\[read-only-mode] to permit editing."
   (interactive
    (find-file-read-args "Find file read-only other window: "
                         (confirm-nonexistent-file-or-buffer)))
@@ -1535,7 +1535,7 @@ Use \\[toggle-read-only] to permit editing."
 (defun find-file-read-only-other-frame (filename &optional wildcards)
   "Edit file FILENAME in another frame but don't allow changes.
 Like \\[find-file-other-frame], but marks buffer as read-only.
-Use \\[toggle-read-only] to permit editing."
+Use \\[read-only-mode] to permit editing."
   (interactive
    (find-file-read-args "Find file read-only other frame: "
                         (confirm-nonexistent-file-or-buffer)))

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 39ad676f5932f94f60d9578c811cf9997043326f..506f2c2364eafb362600a995e47e1f9e1bea1c4f 100644 (file)
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -149,6 +149,9 @@
 
     (define-key map "\C-q" 'hide-ifdef-toggle-read-only)
     (define-key map "\C-w" 'hide-ifdef-toggle-shadowing)
+    (substitute-key-definition
+     'read-only-mode 'hide-ifdef-toggle-outside-read-only map)
+    ;; `toggle-read-only' is obsoleted by `read-only-mode'.
     (substitute-key-definition
      'toggle-read-only 'hide-ifdef-toggle-outside-read-only map)
     map)
@@ -1049,7 +1052,7 @@ It does not do the work that's pointless to redo on a recursive entry."
   (force-mode-line-update))
 
 (defun hide-ifdef-toggle-outside-read-only ()
-  "Replacement for `toggle-read-only' within Hide-Ifdef mode."
+  "Replacement for `read-only-mode' within Hide-Ifdef mode."
   (interactive)
   (setq hif-outside-read-only (not hif-outside-read-only))
   (message "Read only %s"

diff --git a/lisp/view.el b/lisp/view.el
index a5992ccb62a7a6e2fbf22524fb77505c47587791..9f914b03f5648bec2ff1a53c1f5907e20754a385 100644 (file)
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -491,12 +491,12 @@ Entry to view-mode runs the normal hook `view-mode-hook'."
 (defun view--disable ()
   (remove-hook 'change-major-mode-hook 'view--disable t)
   (and view-overlay (delete-overlay view-overlay))
-  ;; Calling toggle-read-only while View mode is enabled
+  ;; Calling read-only-mode while View mode is enabled
   ;; sets view-read-only to t as a buffer-local variable
-  ;; after exiting View mode.  That arranges that the next toggle-read-only
+  ;; after exiting View mode.  That arranges that the next read-only-mode
   ;; will reenable View mode.
   ;; Canceling View mode in any other way should cancel that, too,
-  ;; so that View mode stays off if toggle-read-only is called.
+  ;; so that View mode stays off if read-only-mode is called.
   (if (local-variable-p 'view-read-only)
       (kill-local-variable 'view-read-only))
   (if (boundp 'Helper-return-blurb)