Hi all,
On Mon, Jul 22, 2013 at 9:42 AM, Johann 'Myrkraverk' Oskarsson
<johann(a)myrkraverk.com> wrote:
I have uncovered at least two bugs in the erc package as of
xemacs-sumo-2010-07-27.tar.bz2.
I've fixed the latter bug. The function erc-make-read-only used
(point-max) instead of erc-insert-marker so parts of the input buffer
got set to read only when truncating happened. While fixing this I
also rewrote it to use extents directly instead of text-properties.
There is no reason to worry about the prompt in this code since it's
set read-only separately.
Replace the definition in erc-goodies.el with:
(defun erc-make-read-only ()
"Make all the text in the current buffer read-only.
Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'."
(let ((extent (car (extent-list nil nil nil nil 'name 'erc-read-only))))
(cond (extent
(set-extent-endpoints extent (point-min) erc-insert-marker))
(t
(setq extent (make-extent (point-min) erc-insert-marker))
(set-extent-property extent 'name 'erc-read-only)
(set-extent-property extent 'read-only t)))))
--
Johann
I'm not from the internet, I just work there.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta