[Emacs-diffs] /srv/bzr/emacs/trunk r107965: Remove some `toggle-read-only' warnings.

[Juanma Barranquero]

------------------------------------------------------------
revno: 107965
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2012-04-19 18:50:07 +0200
message:
  Remove some `toggle-read-only' warnings.
  
  * lisp/bs.el (bs-toggle-readonly): Call `toggle-read-only' interactively.
  
  * lisp/descr-text.el (describe-char):
    lisp/progmodes/python.el (python-describe-symbol):
    Don't call `toggle-read-only', set `buffer-read-only'.
modified:
  lisp/bs.el
  lisp/descr-text.el
  lisp/progmodes/python.el

=== modified file 'lisp/bs.el'
--- a/lisp/bs.el        2012-02-28 08:17:21 +0000
+++ b/lisp/bs.el        2012-04-19 16:50:07 +0000
@@ -964,7 +964,7 @@
 Uses function `toggle-read-only'."
   (interactive)
   (with-current-buffer (bs--current-buffer)
-    (toggle-read-only))
+    (call-interactively 'toggle-read-only))
   (bs--update-current-line))
 
 (defun bs-clear-modified ()

=== modified file 'lisp/descr-text.el'
--- a/lisp/descr-text.el        2012-01-28 10:27:28 +0000
+++ b/lisp/descr-text.el        2012-04-19 16:50:07 +0000
@@ -806,7 +806,7 @@
                             (format "  %s: %s\n" elt val)))))))
 
           (if text-props-desc (insert text-props-desc))
-          (toggle-read-only 1))))))
+          (setq buffer-read-only t))))))
 
 (define-obsolete-function-alias 'describe-char-after 'describe-char "22.1")
 

=== modified file 'lisp/progmodes/python.el'
--- a/lisp/progmodes/python.el  2012-04-16 19:28:57 +0000
+++ b/lisp/progmodes/python.el  2012-04-19 16:50:07 +0000
@@ -1768,7 +1768,7 @@
   ;; allow C-c C-f in help buffer.
   (let ((temp-buffer-show-hook         ; avoid xref stuff
         (lambda ()
-          (toggle-read-only 1)
+          (setq buffer-read-only t)
           (setq view-return-to-alist
                 (list (cons (selected-window) help-return-method))))))
     (with-output-to-temp-buffer (help-buffer)