emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/simple.el


From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/simple.el
Date: Sat, 07 Aug 2004 12:49:24 -0400

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.651 emacs/lisp/simple.el:1.652
*** emacs/lisp/simple.el:1.651  Fri Jul 23 11:52:03 2004
--- emacs/lisp/simple.el        Sat Aug  7 16:45:24 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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]