comparison lisp/simple.el @ 56613:05c3cf703d59

(completion-root-regexp): New defvar. (completion-setup-function): Use it instead of a literal string.

56612:f139a56bb0f0

The idea of `completions-common-part' is that you can use it to
make the common parts less visible than normal, so that the rest
of the differing parts is, by contrast, slightly highlighted."
  :group 'completion)

(defun completion-setup-function ()
  (let ((mainbuf (current-buffer))
	(mbuf-contents (minibuffer-contents)))
    ;; When reading a file name in the minibuffer,
    ;; set default-directory in the minibuffer

	  ;; last file name component.
	  (setq completion-base-size
		(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)
	    (setq completion-base-size 0)))
      ;; Put faces on first uncommon characters and common parts.

56613:05c3cf703d59

The idea of `completions-common-part' is that you can use it to
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)))
    ;; When reading a file name in the minibuffer,
    ;; set default-directory in the minibuffer

	  ;; last file name component.
	  (setq completion-base-size
		(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)
	    (setq completion-base-size 0)))
      ;; Put faces on first uncommon characters and common parts.