[Emacs-diffs] emacs-24 r117394: Small fixes re toggle-read-only, mainly doc

[Glenn Morris]

------------------------------------------------------------
revno: 117394
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Mon 2014-07-21 01:38:17 -0400
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/bindings.el               
bindings.el-20091113204419-o5vbwnq5f7feedwu-1013
  lisp/bs.el                     bs.el-20091113204419-o5vbwnq5f7feedwu-1737
  lisp/buff-menu.el              buffmenu.el-20091113204419-o5vbwnq5f7feedwu-197
  lisp/dired.el                  dired.el-20091113204419-o5vbwnq5f7feedwu-482
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265
  lisp/progmodes/hideif.el       hideif.el-20091113204419-o5vbwnq5f7feedwu-39
  lisp/view.el                   view.el-20091113204419-o5vbwnq5f7feedwu-100

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-20 19:51:16 +0000
+++ b/lisp/ChangeLog    2014-07-21 05:38:17 +0000
@@ -1,3 +1,17 @@
+2014-07-21  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/python.el: Add comment about pipe buffering and

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2014-07-13 14:49:59 +0000
+++ b/lisp/bindings.el  2014-07-21 05:38:17 +0000
@@ -36,7 +36,7 @@
 
 
 (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)))

=== modified file 'lisp/bs.el'
--- a/lisp/bs.el        2014-01-01 07:43:34 +0000
+++ b/lisp/bs.el        2014-07-21 05:38:17 +0000
@@ -954,7 +954,7 @@
 
 (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))

=== modified file 'lisp/buff-menu.el'
--- a/lisp/buff-menu.el 2014-02-10 01:34:22 +0000
+++ b/lisp/buff-menu.el 2014-07-21 05:38:17 +0000
@@ -539,7 +539,7 @@
 
 (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)

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2014-06-18 07:57:27 +0000
+++ b/lisp/dired.el     2014-07-21 05:38:17 +0000
@@ -2015,7 +2015,7 @@
   "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)

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-06-08 07:41:27 +0000
+++ b/lisp/files.el     2014-07-21 05:38:17 +0000
@@ -572,7 +572,7 @@
 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 @@
 (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 @@
 (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 @@
 (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)))

=== modified file 'lisp/progmodes/hideif.el'
--- a/lisp/progmodes/hideif.el  2014-06-26 13:40:49 +0000
+++ b/lisp/progmodes/hideif.el  2014-07-21 05:38:17 +0000
@@ -150,6 +150,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)
   "Keymap used by `hide-ifdef-mode' under `hide-ifdef-mode-prefix-key'.")
@@ -1049,7 +1052,7 @@
   (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"

=== modified file 'lisp/view.el'
--- a/lisp/view.el      2014-01-01 07:43:34 +0000
+++ b/lisp/view.el      2014-07-21 05:38:17 +0000
@@ -491,12 +491,12 @@
 (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)