Mercurial > emacs
comparison lisp/dired.el @ 94651:e8c7fc7ef92b
(dired-read-dir-and-switches): Fix up last change.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 06 May 2008 00:51:56 +0000 |
parents | 4ee3432d1e09 |
children | ee5932bf781d |
comparison
equal
deleted
inserted
replaced
94650:276c5ce56449 | 94651:e8c7fc7ef92b |
---|---|
604 (abbreviate-file-name buffer-file-name))) | 604 (abbreviate-file-name buffer-file-name))) |
605 (defdir default-directory)) | 605 (defdir default-directory)) |
606 (minibuffer-with-setup-hook | 606 (minibuffer-with-setup-hook |
607 (lambda () | 607 (lambda () |
608 (setq minibuffer-default default) | 608 (setq minibuffer-default default) |
609 (setq minibuffer-completing-file-name t) | 609 (set (make-local-variable 'minibuffer-completing-file-name) |
610 (setq completion-ignore-case | 610 ;; t means "from now until the next minibuffer", whereas |
611 read-file-name-completion-ignore-case) | 611 ;; `lambda' means "only here". |
612 'lambda) | |
613 (set (make-local-variable 'completion-ignore-case) | |
614 read-file-name-completion-ignore-case) | |
612 (setq default-directory defdir)) | 615 (setq default-directory defdir)) |
613 (substitute-in-file-name | 616 (substitute-in-file-name |
614 (completing-read | 617 (completing-read |
615 (format "Dired %s(directory): " str) | 618 (format "Dired %s(directory): " str) |
616 ;; We need a mix of read-file-name and read-directory-name | 619 ;; We need a mix of read-file-name and read-directory-name |