(define-key map "\M-\t" 'comint-dynamic-complete)
(define-key map "\M-?" 'comint-dynamic-list-completions)
map)
- "Minibuffer keymap used by shell-command and related commands.")
+ "Minibuffer keymap used by `shell-command' and related commands.")
(defcustom use-dialog-box t
"*Variable controlling usage of the dialog box.
Seventh arg DEFAULT, if non-nil, will be returned when user enters
an empty string.
-See also the variable completion-highlight-first-word-only for control over
- completion display."
+See also the variable `completion-highlight-first-word-only' for
+ control over completion display."
(if (and (not enable-recursive-minibuffers)
(> (minibuffer-depth) 0)
(eq (selected-window) (minibuffer-window)))
(defun minibuffer-smart-maybe-select-highlighted-completion
(event &optional click-count)
- "Like minibuffer-smart-select-highlighted-completion but does nothing if
+ "Like `minibuffer-smart-select-highlighted-completion' but does nothing if
there is no completion (as opposed to executing the global binding). Useful
as the value of `mouse-track-click-hook'."
(interactive "e")
:activate-callback 'read-file-name-activate-callback)
(goto-char (point-min) completion-buf)))))
-(defun read-file-name-1 (history prompt dir default
- must-match initial-contents
- completer)
+(defun read-file-name-1 (type history prompt dir default
+ must-match initial-contents
+ completer)
(if (should-use-dialog-box-p)
(condition-case nil
(let ((file
(apply #'make-dialog-box
- 'file `(:title ,(capitalize-string-as-title
- ;; Kludge: Delete ": " off the end.
- (replace-in-string prompt ": $" ""))
- ,@(and dir (list :initial-directory
- dir))
- :file-must-exist ,must-match
- ,@(and initial-contents
- (list :initial-filename
- initial-contents))))))
+ type `(:title ,(capitalize-string-as-title
+ ;; Kludge: Delete ": " off the end.
+ (replace-in-string prompt ": $" ""))
+ ,@(and dir (list :initial-directory
+ dir))
+ :file-must-exist ,must-match
+ ,@(and initial-contents
+ (list :initial-filename
+ initial-contents))))))
;; hack -- until we implement reading a directory properly,
;; allow a file as indicating the directory it's in
(if (and (eq completer 'read-directory-name-internal)
Sixth arg HISTORY specifies the history list to use. Default is
`file-name-history'.
DIR defaults to current buffer's directory default."
- (read-file-name-1
- (or history 'file-name-history)
+ (read-file-name-1
+ 'file (or history 'file-name-history)
prompt dir (or default
(and initial-contents
(abbreviate-file-name (expand-file-name
`file-name-history'.
DIR defaults to current buffer's directory default."
(read-file-name-1
- (or history 'file-name-history)
- prompt dir (or default default-directory) must-match initial-contents
- 'read-directory-name-internal))
+ 'directory (or history 'file-name-history)
+ prompt dir (or default default-directory) must-match initial-contents
+ 'read-directory-name-internal))
;; Environment-variable and ~username completion hack
(defun read-color-completion-table ()
(case (device-type)
;; #### Evil device-type dependency
- (x
+ ((x gtk)
(if (boundp 'x-read-color-completion-table)
x-read-color-completion-table
(let ((rgb-file (locate-file "rgb.txt" x-library-search-path))