Mercurial > emacs
changeset 49131:c814bafa1987
(pcomplete-termination-string): Added a variable for modifying the
string which is inserted after a completion or expansion using
pcomplete.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Fri, 10 Jan 2003 07:01:14 +0000 |
| parents | 9313ae7d2d5b |
| children | 99f9777a831b |
| files | lisp/pcomplete.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcomplete.el Fri Jan 10 07:00:59 2003 +0000 +++ b/lisp/pcomplete.el Fri Jan 10 07:01:14 2003 +0000 @@ -311,6 +311,16 @@ :type 'boolean :group 'pcomplete) +(defcustom pcomplete-termination-string " " + "*A string that is inserted after any completion or expansion. +This is usually a space character, useful when completing lists of +words separated by spaces. However, if your list uses a different +separator character, or if the completion occurs in a word that is +already terminated by a character, this variable should be locally +modified to be an empty string, or the desired separation string." + :type 'string + :group 'pcomplete) + ;;; Internal Variables: ;; for cycling completion support @@ -418,7 +428,7 @@ (unless (pcomplete-insert-entry "" (car pcomplete-current-completions) t pcomplete-last-completion-raw) - (insert-and-inherit " ")) + (insert-and-inherit pcomplete-termination-string)) (setq pcomplete-current-completions (cdr pcomplete-current-completions)))))) @@ -1006,7 +1016,7 @@ (let (space-added) (when (and (not (memq (char-before) pcomplete-suffix-list)) addsuffix) - (insert-and-inherit " ") + (insert-and-inherit pcomplete-termination-string) (setq space-added t)) (setq pcomplete-last-completion-length (- (point) here) pcomplete-last-completion-stub stub)