[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 183952e: * lisp/erc/erc-pcomplete.el (erc-pcomplete): Don't use `pcomplete' any more.,
Stefan Monnier <=