Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove some `toggle-read-only' warnings.

Browse source 
* 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'.
This commit is contained in:
Juanma Barranquero 2012-04-19 18:50:07 +02:00
parent a6b92a4a56
commit 376cbaccd9
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/bs.el
View file

@ -964,7 +964,7 @@ Default is `bs--current-sort-function'."
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 ()

2
lisp/descr-text.el
View file

@ -806,7 +806,7 @@ relevant to POS."
(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")

2
lisp/progmodes/python.el
View file

@ -1768,7 +1768,7 @@ will."
;; 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)