Commit 9c7b2dd3 authored by Johan Bockgård's avatar Johan Bockgård
Browse files

(erc-button-add-button): Only call `widget-convert-button' in XEmacs.

For Emacs (at least), it doesn't seem to have any purpose except
creating lots of overlays, slowing everything down.
parent 416ac2f1
2009-09-26 Johan Bockgård <bojohan@gnu.org>
* erc-button.el (erc-button-add-button): Only call
`widget-convert-button' in XEmacs. For Emacs (at least), it
doesn't seem to have any purpose except creating lots of overlays,
slowing everything down.
2009-09-19 Glenn Morris <rgm@gnu.org>
* erc-lang.el (line): Define for compiler.
......
......@@ -367,16 +367,17 @@ REGEXP is the regular expression which matched for this button."
(list 'keymap erc-button-keymap)
(list 'rear-nonsticky t)
(and data (list 'erc-data data))))
(widget-convert-button 'link from to :action 'erc-button-press-button
:suppress-face t
;; Make XEmacs use our faces.
:button-face (if nick-p
erc-button-nickname-face
erc-button-face)
;; Make XEmacs behave with mouse-clicks, for
;; some reason, widget stuff overrides the
;; 'keymap text-property.
:mouse-down-action 'erc-button-click-button))
(when (featurep 'xemacs)
(widget-convert-button 'link from to :action 'erc-button-press-button
:suppress-face t
;; Make XEmacs use our faces.
:button-face (if nick-p
erc-button-nickname-face
erc-button-face)
;; Make XEmacs behave with mouse-clicks, for
;; some reason, widget stuff overrides the
;; 'keymap text-property.
:mouse-down-action 'erc-button-click-button)))
(defun erc-button-add-face (from to face)
"Add FACE to the region between FROM and TO."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment