[Emacs-diffs] /srv/bzr/emacs/trunk r104052: * lisp/pcomplete.el (pcomplete-std-complete): Don't abuse

[Stefan Monnier]

------------------------------------------------------------
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.