347 |
;;; User Functions: |
;;; User Functions: |
348 |
|
|
349 |
;;;###autoload |
;;;###autoload |
350 |
(defun pcomplete () |
(defun pcomplete (&optional interactively) |
351 |
"Support extensible programmable completion. |
"Support extensible programmable completion. |
352 |
To use this function, just bind the TAB key to it, or add it to your |
To use this function, just bind the TAB key to it, or add it to your |
353 |
completion functions list (it should occur fairly early in the list)." |
completion functions list (it should occur fairly early in the list)." |
354 |
(interactive) |
(interactive "p") |
355 |
(if (and (interactive-p) |
(if (and interactively |
356 |
pcomplete-cycle-completions |
pcomplete-cycle-completions |
357 |
pcomplete-current-completions |
pcomplete-current-completions |
358 |
(memq last-command '(pcomplete |
(memq last-command '(pcomplete |