HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace "Maintainer: FSF" with the emacs-devel mailing address
[bpt/emacs.git]
/
lisp
/
erc
/
erc-pcomplete.el
diff --git
a/lisp/erc/erc-pcomplete.el
b/lisp/erc/erc-pcomplete.el
index
410a3c6
..
57e1bb1
100644
(file)
--- a/
lisp/erc/erc-pcomplete.el
+++ b/
lisp/erc/erc-pcomplete.el
@@
-1,9
+1,9
@@
;;; erc-pcomplete.el --- Provides programmable completion for ERC
;;; erc-pcomplete.el --- Provides programmable completion for ERC
-;; Copyright (C) 2002-2004, 2006-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 2002-2004, 2006-201
4
Free Software Foundation, Inc.
;; Author: Sacha Chua <sacha@free.net.ph>
;; Author: Sacha Chua <sacha@free.net.ph>
-;; Maintainer:
FSF
+;; Maintainer:
emacs-devel@gnu.org
;; Keywords: comm, convenience
;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion
;; Keywords: comm, convenience
;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion
@@
-82,10
+82,8
@@
for use on `completion-at-point-function'."
"Complete the nick before point."
(interactive)
(when (> (point) (erc-beg-of-input-line))
"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
t))
;;; Setup function