From a6cf022b5ac9395e31ebdc33b9b6c3b633fda665 Mon Sep 17 00:00:00 2001 From: Torsten Hilbrich Date: Wed, 3 Jul 2013 05:19:18 +0200 Subject: dictionary: Use buffer-read-only variable This fixes a warning about invalid use of interactive function toggle-read-only. --- dictionary.el | 4 ++-- 1 file 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'." -- cgit v1.2.3