diff options
| author | John Wiegley <johnw@newartisans.com> | 2000-08-29 00:47:45 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2000-08-29 00:47:45 +0000 |
| commit | ca7aae916bab6783c5133d8432b61d97b8ffa923 (patch) | |
| tree | 1b36d8d391a6a0c166fd27a01acbc92a92020530 /lisp/pcomplete.el | |
| parent | b4bd214e74d885552fe38051253dbc2b362bfe67 (diff) | |
| download | emacs-ca7aae916bab6783c5133d8432b61d97b8ffa923.tar.gz | |
See ChangeLog
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 2b66b1d45b9..4f506212230 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -303,6 +303,14 @@ This function is used to generate completions for every argument." :type 'function :group 'pcomplete) +(defcustom pcomplete-use-paring t + "*If t, pare alternatives that have already been used. +If nil, you will always see the completion set of possible options, no +matter which of those options have already been used in previous +command arguments." + :type 'boolean + :group 'pcomplete) + ;;; Internal Variables: ;; for cycling completion support @@ -1017,7 +1025,7 @@ extra checking, and munging of the COMPLETIONS list." (message "No completions of %s" stub) (message "No completions"))) ;; pare it down, if applicable - (if pcomplete-seen + (if (and pcomplete-use-paring pcomplete-seen) (let* ((arg (pcomplete-arg)) (prefix (file-name-as-directory |