[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104052: * lisp/pcomplete.el (pcomple
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104052: * lisp/pcomplete.el (pcomplete-std-complete): Don't abuse |
Date: |
Fri, 29 Apr 2011 14:24:09 -0300 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104052
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-29 14:24:09 -0300
message:
* lisp/pcomplete.el (pcomplete-std-complete): Don't abuse
completion-at-point.
modified:
lisp/ChangeLog
lisp/pcomplete.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-04-28 23:08:37 +0000
+++ b/lisp/ChangeLog 2011-04-29 17:24:09 +0000
@@ -1,3 +1,8 @@
+2011-04-29 Stefan Monnier <address@hidden>
+
+ * pcomplete.el (pcomplete-std-complete): Don't abuse
+ completion-at-point.
+
2011-04-28 Juanma Barranquero <address@hidden>
* calc/calccomp.el (math-comp-to-string-flat-term): Simplify by
=== modified file 'lisp/pcomplete.el'
--- a/lisp/pcomplete.el 2011-04-28 19:39:11 +0000
+++ b/lisp/pcomplete.el 2011-04-29 17:24:09 +0000
@@ -545,8 +545,9 @@
;; variables to parse args, so there's no point autoloading it.
;; ;;;###autoload
(defun pcomplete-std-complete ()
- (let ((completion-at-point-functions '(pcomplete-completions-at-point)))
- (completion-at-point)))
+ (let ((data pcomplete-completions-at-point))
+ (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
+ (plist-get :predicate (nthcdr 3 data)))))
;;; Pcomplete's native UI.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104052: * lisp/pcomplete.el (pcomplete-std-complete): Don't abuse,
Stefan Monnier <=