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 |