mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(dired-read-dir-and-switches):

Browse Source 
Set minibuffer-completing-file-name and call substitute-in-file-name.
This commit is contained in:
Stefan Monnier 2008-05-02 17:20:07 +00:00
parent 457d37ba22
commit 330b50982d
2 changed files with 41 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-05-02 Stefan Monnier <monnier@iro.umontreal.ca>
* dired.el (dired-read-dir-and-switches):
Set minibuffer-completing-file-name and call substitute-in-file-name.
* minibuffer.el (completion-hilit-commonality): Revert last change:
the leftover code was actually useful.

73
lisp/dired.el
View File

@ -589,41 +589,44 @@ Don't use that together with FILTER."
(defun dired-read-dir-and-switches (str)
;; For use in interactive.
(reverse (list
(if current-prefix-arg
(read-string "Dired listing switches: "
dired-listing-switches))
;; If a dialog is about to be used, call read-directory-name so
;; the dialog code knows we want directories. Some dialogs can
;; only select directories or files when popped up, not both.
(if (next-read-file-uses-dialog-p)
(read-directory-name (format "Dired %s(directory): " str)
nil default-directory nil)
(lexical-let ((default (and buffer-file-name
(abbreviate-file-name buffer-file-name)))
(defdir default-directory))
(minibuffer-with-setup-hook
(lambda ()
(setq minibuffer-default default)
(setq default-directory defdir))
(completing-read
(format "Dired %s(directory): " str)
;; We need a mix of read-file-name and read-directory-name
;; so that completion to directories is preferred, but if
;; the user wants to enter a global pattern, he can still
;; use completion on filenames to help him write the pattern.
;; Essentially, we want to use
;; (completion-table-with-predicate
;; 'read-file-name-internal 'file-directory-p nil)
;; but that doesn't work because read-file-name-internal
;; does not obey its `predicate' argument.
(completion-table-in-turn
(lambda (str pred action)
(let ((read-file-name-predicate 'file-directory-p))
(complete-with-action
action 'read-file-name-internal str nil)))
'read-file-name-internal)
nil nil (abbreviate-file-name defdir) 'file-name-history)))))))
(reverse
(list
(if current-prefix-arg
(read-string "Dired listing switches: "
dired-listing-switches))
;; If a dialog is about to be used, call read-directory-name so
;; the dialog code knows we want directories. Some dialogs can
;; only select directories or files when popped up, not both.
(if (next-read-file-uses-dialog-p)
(read-directory-name (format "Dired %s(directory): " str)
nil default-directory nil)
(lexical-let ((default (and buffer-file-name
(abbreviate-file-name buffer-file-name)))
(defdir default-directory))
(minibuffer-with-setup-hook
(lambda ()
(setq minibuffer-default default)
(setq minibuffer-completing-file-name t)
(setq default-directory defdir))
(substitute-in-file-name
(completing-read
(format "Dired %s(directory): " str)
;; We need a mix of read-file-name and read-directory-name
;; so that completion to directories is preferred, but if
;; the user wants to enter a global pattern, he can still
;; use completion on filenames to help him write the pattern.
;; Essentially, we want to use
;; (completion-table-with-predicate
;; 'read-file-name-internal 'file-directory-p nil)
;; but that doesn't work because read-file-name-internal
;; does not obey its `predicate' argument.
(completion-table-in-turn
(lambda (str pred action)
(let ((read-file-name-predicate 'file-directory-p))
(complete-with-action
action 'read-file-name-internal str nil)))
'read-file-name-internal)
nil nil (abbreviate-file-name defdir) 'file-name-history))))))))
;;;###autoload (define-key ctl-x-map "d" 'dired)
;;;###autoload