Commit 14a7fbd8 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/pcomplete.el (pcomplete-std-complete): Don't abuse

completion-at-point.
parent 38b3645a
2011-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
* pcomplete.el (pcomplete-std-complete): Don't abuse
completion-at-point.
2011-04-28 Juanma Barranquero <lekktu@gmail.com> 2011-04-28 Juanma Barranquero <lekktu@gmail.com>
* calc/calccomp.el (math-comp-to-string-flat-term): Simplify by * calc/calccomp.el (math-comp-to-string-flat-term): Simplify by
......
...@@ -545,8 +545,9 @@ Same as `pcomplete' but using the standard completion UI." ...@@ -545,8 +545,9 @@ Same as `pcomplete' but using the standard completion UI."
;; variables to parse args, so there's no point autoloading it. ;; variables to parse args, so there's no point autoloading it.
;; ;;;###autoload ;; ;;;###autoload
(defun pcomplete-std-complete () (defun pcomplete-std-complete ()
(let ((completion-at-point-functions '(pcomplete-completions-at-point))) (let ((data pcomplete-completions-at-point))
(completion-at-point))) (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
(plist-get :predicate (nthcdr 3 data)))))
;;; Pcomplete's native UI. ;;; Pcomplete's native UI.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment