# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1091897124 0
# Node ID 05c3cf703d593be28b0e83f67ee4ee1b6f62d52f
# Parent  f139a56bb0f0b0a2bee8e498a83bcf9943d127b8
(completion-root-regexp): New defvar.
(completion-setup-function): Use it instead of a literal string.

diff -r f139a56bb0f0 -r 05c3cf703d59 lisp/simple.el
--- a/lisp/simple.el	Sat Aug 07 12:03:54 2004 +0000
+++ b/lisp/simple.el	Sat Aug 07 16:45:24 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)