diff lisp/simple.el @ 89961:3fd4a5c21153

Revision: [e-mail]--gnu-2004/emacs--unicode--0--patch-29 Merge from [e-mail]--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 Patches applied: * [e-mail]--2004/emacs--multi-tty--0--patch-224 Added sorted-doc to backup regex in lib-src. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-479 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-482 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-483 Build-in-place tweak * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-484 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-485 Update from CVS

--- a/lisp/simple.el	Wed Aug 04 06:04:39 2004 +0000
+++ b/lisp/simple.el	Tue Aug 10 07:46:40 2004 +0000
@@ -4304,6 +4304,12 @@
 of the differing parts is, by contrast, slightly highlighted."
   :group 'completion)
 
+;; This is for packages that need to bind it to a non-default regexp
+;; in order to make the first-differing character highlight work
+;; to their liking
+(defvar completion-root-regexp "^/"
+  "Regexp to use in `completion-setup-function' to find the root directory.")
+
 (defun completion-setup-function ()
   (let ((mainbuf (current-buffer))
 	(mbuf-contents (minibuffer-contents)))
@@ -4332,7 +4338,7 @@
 		(with-current-buffer mainbuf
 		  (save-excursion
 		    (goto-char (point-max))
-		    (skip-chars-backward "^/")
+		    (skip-chars-backward completion-root-regexp)
 		    (- (point) (minibuffer-prompt-end)))))
 	;; Otherwise, in minibuffer, the whole input is being completed.
 	(if (minibufferp mainbuf)