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

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index ec154fb7efabe6909dc205cb784975e1a373f603..5856a592ebf2c3f19db659855c9b431bd55d77cc 100644 (file)
--- 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 410a3c6d04cdf12db58c4a6b29ecbab8f72bea43..67eb381e75f62630e87363285f6e62b4ed023fde 100644 (file)
--- 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