erc-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erc-commit] [commit][emacs22] erc-match: Use inhibit-read-only.


From: mwolson
Subject: [Erc-commit] [commit][emacs22] erc-match: Use inhibit-read-only.
Date: Sun, 14 Oct 2007 00:48:20 -0400

commit 6b7055e3ad710a223501d0ead521615c6e13602c
Author: Michael Olson <address@hidden>
Date:   Thu Jul 13 01:08:12 2006 +0000

    erc-match: Use inhibit-read-only.
    
    * erc-match.el (erc-log-matches): Bind inhibit-read-only rather than call
      toggle-read-only.
    git-archimport-id: address@hidden/erc--main--0--patch-22

diff --git a/ChangeLog b/ChangeLog
index 749906c..38b0520 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-07-12  Michael Olson  <address@hidden>
 
+       * erc-match.el (erc-log-matches): Bind inhibit-read-only rather
+       than call toggle-read-only.
+
        * Makefile (debrelease-mwolson): Remove and consolidate with the
        `debrelease' target.
        (debrevision): Rename from `debrevision-mwolson'.
diff --git a/erc-match.el b/erc-match.el
index ad875ce..8d19099 100644
--- a/erc-match.el
+++ b/erc-match.el
@@ -553,10 +553,9 @@ deactivate/activate match logging in the latter. See
                    ?m message
                    ?u nickuserhost))))
        (with-current-buffer (erc-log-matches-make-buffer match-buffer-name)
-         (toggle-read-only -1)
-         (point-max)
-         (insert line)
-         (toggle-read-only 1))))))
+         (let ((inhibit-read-only t))
+           (goto-char (point-max))
+           (insert line)))))))
 
 (defun erc-log-matches-make-buffer (name)
   "Create or get a log-matches buffer named NAME and return it."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]