procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update for ERC 5.1.3.

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-348
Creator:  Michael Olson <mwolson@gnu.org>
This commit is contained in:
Miles Bader 2006-07-14 02:29:50 +00:00
parent b960286762
commit 0b6bb13008
16 changed files with 881 additions and 310 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/erc/erc-pcomplete.el
View file

@ -106,7 +106,7 @@ the most recent speakers are listed first."
(pcomplete-here
(append
(pcomplete-erc-commands)
(pcomplete-erc-nicks erc-pcomplete-nick-postfix))))
(pcomplete-erc-nicks erc-pcomplete-nick-postfix t))))
(defvar erc-pcomplete-ctcp-commands
'("ACTION" "CLIENTINFO" "ECHO" "FINGER" "PING" "TIME" "USERINFO" "VERSION"))
@ -212,14 +212,23 @@ the most recent speakers are listed first."
not-ops))
(defun pcomplete-erc-nicks (&optional postfix)
"Returns a list of nicks in the current channel."
(let ((users (erc-get-channel-user-list)))
(if erc-pcomplete-order-nickname-completions
(setq users (erc-sort-channel-users-by-activity users)))
(mapcar (lambda (x)
(concat (erc-server-user-nickname (car x)) postfix))
users)))
(defun pcomplete-erc-nicks (&optional postfix ignore-self)
"Returns a list of nicks in the current channel.
Optional argument POSTFIX is something to append to the nickname.
If optional argument IGNORE-SELF is non-nil, don't return the current nick."
(let ((users (if erc-pcomplete-order-nickname-completions
(erc-sort-channel-users-by-activity
(erc-get-channel-user-list))
(erc-get-channel-user-list)))
(nicks nil))
(dolist (user users)
(unless (and ignore-self
(string= (erc-server-user-nickname (car user))
(erc-current-nick)))
(setq nicks (cons (concat (erc-server-user-nickname (car user))
postfix)
nicks))))
(nreverse nicks)))
(defun pcomplete-erc-all-nicks (&optional postfix)
"Returns a list of all nicks on the current server."