[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el [emacs-unicode-2] |
Date: |
Tue, 10 Aug 2004 04:09:48 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.616.2.6 emacs/lisp/simple.el:1.616.2.7
*** emacs/lisp/simple.el:1.616.2.6 Wed Jul 28 07:05:50 2004
--- emacs/lisp/simple.el Tue Aug 10 07:46:38 2004
***************
*** 4304,4309 ****
--- 4304,4315 ----
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,4338 ****
(with-current-buffer mainbuf
(save-excursion
(goto-char (point-max))
! (skip-chars-backward "^/")
(- (point) (minibuffer-prompt-end)))))
;; Otherwise, in minibuffer, the whole input is being completed.
(if (minibufferp mainbuf)
--- 4338,4344 ----
(with-current-buffer mainbuf
(save-excursion
(goto-char (point-max))
! (skip-chars-backward completion-root-regexp)
(- (point) (minibuffer-prompt-end)))))
;; Otherwise, in minibuffer, the whole input is being completed.
(if (minibufferp mainbuf)
- [Emacs-diffs] Changes to emacs/lisp/simple.el [emacs-unicode-2],
Miles Bader <=