From abaf2e77e7ba11af0daa8989b2b0a2eb136d649b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 Aug 2004 16:47:41 +0000 Subject: [PATCH] (completion-root-regexp): New defvar. (completion-setup-function): Use it instead of a literal string. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eaaf7b35c3d..c59e0003f94 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-08-07 Satyaki Das (tiny change) + + * simple.el (completion-root-regexp): New defvar. + (completion-setup-function): Use it instead of a literal string. + 2004-08-07 John Paul Wallington * emacs-lisp/re-builder.el (reb-re-syntax): Add `rx' syntax. diff --git a/lisp/simple.el b/lisp/simple.el index 1e112b1be74..b52220d542b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4304,6 +4304,12 @@ make the common parts less visible than normal, so that the rest 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 @@ of the differing parts is, by contrast, slightly highlighted." (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) -- 2.39.2