From db07847fc06e14e4f3ca1599d9c7f6612ffe81a5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 28 May 1994 12:13:21 +0000 Subject: [PATCH] (dired-get-filename): Get rid of text props from name. --- lisp/dired.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/dired.el b/lisp/dired.el index ba3877683a7..8d7c76ab08c 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1094,7 +1094,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep))) (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep)))) ;; nil if no file on this line, but no-error-if-not-filep is t: - (if (setq file (and p1 p2 (buffer-substring p1 p2))) + (if (setq file (and p1 p2 (format "%s" (buffer-substring p1 p2)))) ;; Check if ls quoted the names, and unquote them. ;; Using read to unquote is much faster than substituting ;; \007 (4 chars) -> ^G (1 char) etc. in a lisp loop. -- 2.39.5