From f808da9ebbd556beb720c1b3ca977d2db3c9c751 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 28 Dec 2002 21:26:46 +0000 Subject: [PATCH] (dired-goto-file): Handle \ and ^M quoted by backslash. Fix error message. --- lisp/dired.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 11669400ad6..700d1e25634 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1957,7 +1957,7 @@ instead of `dired-actual-switches'." (setq file (directory-file-name file)) ; does no harm if no directory (let (found case-fold-search dir) (setq dir (or (file-name-directory file) - (error "Need absolute pathname for %s" file))) + (error "File name `%s' is not absolute" file))) (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. @@ -1966,11 +1966,17 @@ instead of `dired-actual-switches'." (and (cdr dired-subdir-alist) (dired-goto-subdir dir))) (let ((base (file-name-nondirectory file)) + search-string (boundary (dired-subdir-max))) + (setq search-string + (replace-regexp-in-string "\^m" "\\^m" base nil t)) + (setq search-string + (replace-regexp-in-string "\\\\" "\\\\" search-string nil t)) (while (and (not found) ;; filenames are preceded by SPC, this makes ;; the search faster (e.g. for the filename "-"!). - (search-forward (concat " " base) boundary 'move)) + (search-forward (concat " " search-string) + boundary 'move)) ;; Match could have BASE just as initial substring or ;; or in permission bits or date or ;; not be a proper filename at all: -- 2.39.2