diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2012-04-19 18:50:07 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2012-04-19 18:50:07 +0200 |
| commit | 376cbaccd90fe54837eb452f5d6c1cda42e0e8fc (patch) | |
| tree | 9a3e9686d588842965c9440cbed91ef05a1106c1 | |
| parent | a6b92a4a56a8afec8d91882611c1e17d18d55572 (diff) | |
| download | emacs-376cbaccd90fe54837eb452f5d6c1cda42e0e8fc.tar.gz | |
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'.
| -rw-r--r-- | lisp/bs.el | 2 | ||||
| -rw-r--r-- | lisp/descr-text.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bs.el b/lisp/bs.el index 64c1183b64d..08d05a946e3 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -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 () diff --git a/lisp/descr-text.el b/lisp/descr-text.el index d2995ab790d..50b32fc8f2e 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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") diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 6f8758ebec1..2922330e6f9 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -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) |