procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(shell-pcomplete-setup-done): New variable.

Browse source 
(shell-pcomplete): Use it instead of shell-pcomplete-setup-p.
(shell-pcomplete-reverse): Ditto.
This commit is contained in:
Kim F. Storm 2002-02-25 21:04:00 +00:00
parent e4d03691de
commit 86078cf060
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/shell.el
View file

@ -858,13 +858,15 @@ See `shell-command-regexp'."
(progn (goto-char (match-beginning 1))
(skip-chars-forward ";&|")))))
(defvar shell-pcomplete-setup-done nil)
(defun shell-pcomplete ()
"Cycle forwards through completions at point, using `pcomplete'.
This function merely invokes `pcomplete', after ensuring this buffer
is set up for it."
(interactive)
(unless (prog1 shell-pcomplete-setup-p
(setq shell-pcomplete-setup-p t))
(unless shell-pcomplete-setup-done
(setq shell-pcomplete-setup-done t)
(pcomplete-comint-setup 'shell-dynamic-complete-functions))
;; Convince pcomplete we are calling it directly
(setq this-command 'pcomplete)
@ -875,8 +877,8 @@ is set up for it."
This function merely invokes `pcomplete-reverse', after ensuring this
buffer is set up for it."
(interactive)
(unless (prog1 shell-pcomplete-setup-p
(setq shell-pcomplete-setup-p t))
(unless shell-pcomplete-setup-done
(setq shell-pcomplete-setup-done t)
(pcomplete-comint-setup 'shell-dynamic-complete-functions))
;; Convince pcomplete we are calling it directly
(setq this-command 'pcomplete-reverse)