Re: Bugs in erc (package)

On Tue, Jul 23, 2013 at 4:49 AM, Johann 'Myrkraverk' Oskarsson <johann(a)myrkraverk.com&gt; wrote: Sorry, the was a bug in my first try. (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 ;; The buffer may be (or definitely is) rarrowed to the ;; recently inserted text, hence explicitly using 1 and not ;; (point-min). (set-extent-endpoints extent 1 erc-insert-marker)) (t (setq extent (make-extent 1 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