[Emacs-diffs] trunk r114948: * lisp/erc/erc-pcomplete.el (erc-pcomplete): Set this-command.

[Stefan Monnier]

------------------------------------------------------------
revno: 114948
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-04 14:35:37 -0500
message:
  * lisp/erc/erc-pcomplete.el (erc-pcomplete): Set this-command.
modified:
  lisp/erc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-4305
  lisp/erc/erc-pcomplete.el      
ercpcomplete.el-20091113204419-o5vbwnq5f7feedwu-4335

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2013-09-21 00:52:07 +0000
+++ b/lisp/erc/ChangeLog        2013-11-04 19:35:37 +0000
@@ -1,3 +1,7 @@
+2013-11-04  Stefan Monnier  <address@hidden>
+
+       * erc-pcomplete.el (erc-pcomplete): Set this-command.
+
 2013-09-21  Glenn Morris  <address@hidden>
 
        * erc.el (erc-invite-only-mode, erc-toggle-channel-mode):

=== modified file 'lisp/erc/erc-pcomplete.el'
--- a/lisp/erc/erc-pcomplete.el 2013-01-02 16:13:04 +0000
+++ b/lisp/erc/erc-pcomplete.el 2013-11-04 19:35:37 +0000
@@ -82,10 +82,8 @@
   "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