Mercurial > emacs

diff lisp/dired.el @ 7728:23f5b77e3773

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-get-filename): Get rid of text props from name.
author Richard M. Stallman <rms@gnu.org>
date Sat, 28 May 1994 12:13:21 +0000
parents 79f2be712106
children 4561618ebf64
line wrap: on
line diff
--- a/lisp/dired.el	Sat May 28 12:08:35 1994 +0000
+++ b/lisp/dired.el	Sat May 28 12:13:21 1994 +0000
@@ -1094,7 +1094,7 @@
       (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.