From 150158c498e76704f603b2da26e6cbe30d1fa012 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 10 Jan 2003 07:01:14 +0000 Subject: [PATCH] (pcomplete-termination-string): Added a variable for modifying the string which is inserted after a completion or expansion using pcomplete. --- lisp/pcomplete.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index cde0f07064f..7a3f7aaae3a 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -311,6 +311,16 @@ command arguments." :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 @@ This will modify the current buffer." (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 @@ Returns non-nil if a space was appended at the end." (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) -- 2.39.2