Lines Matching defs:minibuffer
29 ;; Extended completion for the Emacs minibuffer.
50 ;; Usage: M-x partial-completion-mode. During completable minibuffer entry,
93 :group 'minibuffer
146 (let ((completion-map minibuffer-local-completion-map)
147 (must-match-map minibuffer-local-must-match-map))
153 (define-key completion-map "\t" 'minibuffer-complete)
154 (define-key completion-map " " 'minibuffer-complete-word)
155 (define-key completion-map "?" 'minibuffer-completion-help)
157 (define-key must-match-map "\t" 'minibuffer-complete)
158 (define-key must-match-map " " 'minibuffer-complete-word)
159 (define-key must-match-map "\r" 'minibuffer-complete-and-exit)
160 (define-key must-match-map "\n" 'minibuffer-complete-and-exit)
161 (define-key must-match-map "?" 'minibuffer-completion-help)
243 ;; we work. The default minibuffer completion code only completes the
248 ;; to trick choose-completion into replacing the whole minibuffer text
259 ;; Need a similar hack for the non-minibuffer-case -- gm.
277 "Like minibuffer-complete, but allows \"b--di\"-style abbreviations.
290 (minibuffer-complete)
294 (setq minibuffer-scroll-window nil))
295 (let ((window minibuffer-scroll-window))
308 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations.
314 (minibuffer-complete-word)
322 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations.
327 (minibuffer-complete-word)
334 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations.
338 (minibuffer-complete-and-exit)
342 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations.
345 (let ((minibuffer-completion-confirm nil))
349 (if (= (point-max) (minibuffer-prompt-end)) ; Duplicate the "bug" that Info-menu relies on...
350 (exit-minibuffer)
354 (not minibuffer-completion-confirm))
355 (exit-minibuffer)
356 (PC-temp-minibuffer-message " [Confirm]"))))))
360 "Like `minibuffer-completion-help', but allows \"b--di\"-style abbreviations.
364 (minibuffer-completion-help)
384 (lambda () minibuffer-completing-file-name)
385 "A function testing whether a minibuffer completion now will work filename-style.
387 of `minibuffer-completion-table' and the minibuffer contents.")
439 replacing text in the minibuffer, this function replaces up to
442 (or beg (setq beg (minibuffer-prompt-end)))
444 (let* ((table minibuffer-completion-table)
445 (pred minibuffer-completion-predicate)
663 (PC-temp-minibuffer-message (if ambig
680 (PC-temp-minibuffer-message " [Complete, but not unique]"))
774 (let ((prompt-end (minibuffer-prompt-end)))
798 (PC-temp-minibuffer-message " [Next char not unique]"))
806 (PC-temp-minibuffer-message " [Sole completion]"))
825 (defvar PC-not-minibuffer nil)
827 (defun PC-temp-minibuffer-message (message)
829 (cond (PC-not-minibuffer
833 ((fboundp 'temp-minibuffer-message)
834 (temp-minibuffer-message message))
875 (minibuffer-completion-table obarray)
876 (minibuffer-completion-predicate
882 (PC-not-minibuffer t))
898 ;; minibuffer, because in that case PC-do-completion is called without
901 ;; the minibuffer. The same is not true for lisp symbols.
926 (minibuffer-completion-table 'read-file-name-internal)
927 (minibuffer-completion-predicate "")
928 (PC-not-minibuffer t))