Navigation

erc-button.el

Timestamp:

04/07/07 15:49:28 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

r4190	r4200
57	57	((add-hook 'erc-insert-modify-hook 'erc-button-add-buttons 'append)
58	58	(add-hook 'erc-send-modify-hook 'erc-button-add-buttons 'append)
59		(add-hook 'erc-complete-functions 'erc-button-next))
	59	(add-hook 'erc-complete-functions 'erc-button-next)
	60	(add-hook 'erc-mode-hook 'erc-button-add-keys))
60	61	((remove-hook 'erc-insert-modify-hook 'erc-button-add-buttons)
61	62	(remove-hook 'erc-send-modify-hook 'erc-button-add-buttons)
62		(remove-hook 'erc-complete-functions 'erc-button-next)))
	63	(remove-hook 'erc-complete-functions 'erc-button-next)
	64	(remove-hook 'erc-mode-hook 'erc-button-add-keys)))
63	65
64	66	;; Make XEmacs use `erc-button-face'.
…	…
241	243	This syntax table should make all the legal nick characters word
242	244	constituents.")
	245
	246	(defvar erc-button-keys-added nil
	247	"Internal variable used to keep track of whether we've added the
	248	global-level ERC button keys yet.")
	249
	250	(defun erc-button-add-keys ()
	251	"Add ERC mode-level button movement keys. This is only done once."
	252	(unless erc-button-keys-added
	253	(define-key erc-mode-map (kbd "<backtab>") 'erc-button-previous)
	254	(setq erc-button-keys-added t)))
243	255
244	256	(defun erc-button-add-buttons ()