[Top][All Lists]
[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][emacs22] erc-match: Use inhibit-read-only.,
mwolson <=