From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 4 Nov 2013 19:35:37 +0000 (-0500)
Subject: * lisp/erc/erc-pcomplete.el (erc-pcomplete): Set this-command.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f851ea43b45f0e56689b8cca72b0ef3e084bb49;p=emacs.git

* lisp/erc/erc-pcomplete.el (erc-pcomplete): Set this-command.
---

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index ec154fb7efa..5856a592ebf 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* erc-pcomplete.el (erc-pcomplete): Set this-command.
+
 2013-09-21  Glenn Morris  <rgm@gnu.org>
 
 	* erc.el (erc-invite-only-mode, erc-toggle-channel-mode):
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index 410a3c6d04c..67eb381e75f 100644
--- a/lisp/erc/erc-pcomplete.el
+++ b/lisp/erc/erc-pcomplete.el
@@ -82,10 +82,8 @@ for use on `completion-at-point-function'."
   "Complete the nick before point."
   (interactive)
   (when (> (point) (erc-beg-of-input-line))
-    (let ((last-command (if (eq last-command 'erc-complete-word)
-                            'pcomplete
-                          last-command)))
-      (call-interactively 'pcomplete))
+    (setq this-command 'pcomplete)
+    (call-interactively 'pcomplete)
     t))
 
 ;;; Setup function