Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(completion-root-regexp): New defvar.

Browse source 
(completion-setup-function): Use it instead of a literal string.
This commit is contained in:
Eli Zaretskii 2004-08-07 16:47:41 +00:00
parent 8bd6323a8f
commit abaf2e77e7
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-08-07 Satyaki Das <satyaki@theforce.stanford.edu> (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 <jpw@gnu.org>
* emacs-lisp/re-builder.el (reb-re-syntax): Add `rx' syntax.

8
lisp/simple.el
View file

@ -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)