diff options
| author | F. Jason Park | 2022-09-02 21:57:57 -0700 |
|---|---|---|
| committer | F. Jason Park | 2022-09-19 17:54:46 -0700 |
| commit | 7df5b4deb8b13a25e0708bb5339540cea0683e2e (patch) | |
| tree | 7726d6193ff76ef9676f8dbec83ba8ae9ca6a83c | |
| parent | e98465e5418497a925e795c358231a4d70d6e5ff (diff) | |
| download | emacs-7df5b4deb8b13a25e0708bb5339540cea0683e2e.tar.gz emacs-7df5b4deb8b13a25e0708bb5339540cea0683e2e.zip | |
Don't record undo history in erc-protocol buffers
* lisp/erc/erc.el (erc-log-irc-protocol): Disable undo history.
| -rw-r--r-- | lisp/erc/erc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 151d75e7ce1..84c58503617 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -2571,7 +2571,8 @@ workaround." | |||
| 2571 | (with-current-buffer (get-buffer-create "*erc-protocol*") | 2571 | (with-current-buffer (get-buffer-create "*erc-protocol*") |
| 2572 | (save-excursion | 2572 | (save-excursion |
| 2573 | (goto-char (point-max)) | 2573 | (goto-char (point-max)) |
| 2574 | (let ((inhibit-read-only t)) | 2574 | (let ((buffer-undo-list t) |
| 2575 | (inhibit-read-only t)) | ||
| 2575 | (insert (if outbound | 2576 | (insert (if outbound |
| 2576 | (concat ts esid " >> " string) | 2577 | (concat ts esid " >> " string) |
| 2577 | ;; Cope with multi-line messages | 2578 | ;; Cope with multi-line messages |