Delete comment from: emacs-fu

thisirs said...

A quite complicated hack to have comma separated nickname list when replying to several people.
So
blahnick: fooni< TAB >
becomes
blahnick, foonick:

(defun pcomplete-erc-command-name ()
"Returns the command name of the first argument."
(let ((cmd (pcomplete-arg 'first)))
(cond
((member (substring cmd 0 -1)
(pcomplete-erc-nicks))
"NICKLIST")
((eq (elt cmd 0) ?/)
(upcase (substring cmd 1)))
(t "SAY"))))

(defun is-nick-p (nick)
(member (substring nick 0 -1)
(pcomplete-erc-nicks)))

(defun pcomplete/erc-mode/NICKLIST ()
(while (and (pcomplete-test 'is-nick-p)
(or (= pcomplete-index pcomplete-last) (pcomplete-test 'is-nick-p 0)))
(let ((start erc-input-marker))
(save-excursion
(goto-char (pcomplete-begin 0))
(while (re-search-backward ": " start t)
(replace-match ", "))))
(pcomplete-here (pcomplete-erc-nicks ": ")))
(while (pcomplete-here (pcomplete-erc-nicks))))

Feb 3, 2011, 3:30:48 AM

Posted to extending ERC with your own commands