From 183952e518f98b0ac97d9815be85a6f3dd6634a4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 16 Apr 2015 22:55:41 -0400 Subject: [PATCH] * lisp/erc/erc-pcomplete.el (erc-pcomplete): Don't use `pcomplete' any more. --- lisp/erc/erc-pcomplete.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el index f1e912c3d7c..7f901edfb8f 100644 --- a/lisp/erc/erc-pcomplete.el +++ b/lisp/erc/erc-pcomplete.el @@ -80,11 +80,11 @@ for use on `completion-at-point-function'." (defun erc-pcomplete () "Complete the nick before point." + (declare (obsolete completion-at-point "25.1")) (interactive) (when (> (point) (erc-beg-of-input-line)) - (setq this-command 'pcomplete) - (call-interactively 'pcomplete) - t)) + (let ((completion-at-point-functions '(erc-pcompletions-at-point))) + (completion-at-point)))) ;;; Setup function @@ -237,7 +237,7 @@ If optional argument IGNORE-SELF is non-nil, don't return the current nick." "Returns a list of all nicks on the current server." (let (nicks) (erc-with-server-buffer - (maphash (lambda (nick user) + (maphash (lambda (nick _user) (setq nicks (cons (concat nick postfix) nicks))) erc-server-users)) nicks)) -- 2.39.5