:type '(choice regexp (const :tag "None" nil))
:group 'pcomplete)
-(defcustom pcomplete-ignore-case (memq system-type '(ms-dos windows-nt))
+(defcustom pcomplete-ignore-case (memq system-type '(ms-dos windows-nt cygwin))
"*If non-nil, ignore case when doing filename completion."
:type 'boolean
:group 'pcomplete)
: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
(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))))))
(string-match pcomplete-dir-ignore file))
(and pcomplete-file-ignore
(string-match pcomplete-file-ignore file))))))))
- (setq above-cutoff (> (length completions)
- pcomplete-cycle-cutoff-length))
+ (setq above-cutoff (and pcomplete-cycle-cutoff-length
+ (> (length completions)
+ pcomplete-cycle-cutoff-length)))
(sort completions
(function
(lambda (l r)
(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)
; (defalias 'pc-match-beginning 'pcomplete-match-beginning)
; (defalias 'pc-match-end 'pcomplete-match-end)
+;;; arch-tag: ae32ef2d-dbed-4244-8b0f-cf5a2a3b07a4
;;; pcomplete.el ends here