emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 183952e: * lisp/erc/erc-pcomplete.el (erc-pcomplete


From: Stefan Monnier
Subject: [Emacs-diffs] master 183952e: * lisp/erc/erc-pcomplete.el (erc-pcomplete): Don't use `pcomplete' any more.
Date: Fri, 17 Apr 2015 02:55:45 +0000

branch: master
commit 183952e518f98b0ac97d9815be85a6f3dd6634a4
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/erc/erc-pcomplete.el (erc-pcomplete): Don't use `pcomplete' any more.
---
 lisp/erc/erc-pcomplete.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index f1e912c..7f901ed 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]