diff options
| author | Torsten Hilbrich <torsten.hilbrich@gmx.net> | 2013-07-03 05:19:18 +0200 |
|---|---|---|
| committer | Torsten Hilbrich <torsten.hilbrich@gmx.net> | 2013-07-05 18:16:35 +0200 |
| commit | a6cf022b5ac9395e31ebdc33b9b6c3b633fda665 (patch) | |
| tree | 2de14d411e6193962b3bd9aac0320919d1523c92 | |
| parent | d4353999beca25111a05173f9b57018fcb883d33 (diff) | |
dictionary: Use buffer-read-only variable
This fixes a warning about invalid use of interactive function
toggle-read-only.
| -rwxr-xr-x | dictionary.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dictionary.el b/dictionary.el index 889d30d..2e5bdda 100755 --- a/dictionary.el +++ b/dictionary.el @@ -680,7 +680,7 @@ This function knows about the special meaning of quotes (\")" (defun dictionary-pre-buffer () "These commands are executed at the begin of a new buffer" - (toggle-read-only 0) + (setq buffer-read-only nil) (erase-buffer) (if dictionary-create-buttons (progn @@ -723,7 +723,7 @@ This function knows about the special meaning of quotes (\")" (goto-char dictionary-marker) (set-buffer-modified-p nil) - (toggle-read-only 1)) + (setq buffer-read-only t)) (defun dictionary-display-search-result (reply) "This function starts displaying the result starting with the `reply'." |