Mercurial > emacs
changeset 5299:883c241eed1b
(dired-in-this-tree): Call expand-file-name.
(dired-goto-file): Call expand-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:40:58 +0000 |
| parents | 1b3421a9f072 |
| children | 954744cd720f |
| files | lisp/dired.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Thu Dec 23 04:40:13 1993 +0000 +++ b/lisp/dired.el Thu Dec 23 04:40:58 1993 +0000 @@ -1259,7 +1259,7 @@ (defun dired-in-this-tree (file dir) ;;"Is FILE part of the directory tree starting at DIR?" (let (case-fold-search) - (string-match (concat "^" (regexp-quote dir)) file))) + (string-match (concat "^" (regexp-quote (expand-file-name dir))) file))) (defun dired-normalize-subdir (dir) ;; Prepend default-directory to DIR if relative path name. @@ -1400,7 +1400,7 @@ (save-excursion ;; The hair here is to get the result of dired-goto-subdir ;; without really calling it if we don't have any subdirs. - (if (if (string= dir default-directory) + (if (if (string= dir (expand-file-name default-directory)) (goto-char (point-min)) (and (cdr dired-subdir-alist) (dired-goto-subdir dir)))