# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770127201 0
# Node ID 23f5b77e3773bc59098d66e9102d2bdef330e807
# Parent  741ba17eeb20b09d8c8eaa02cf850c5fa4450fc4
(dired-get-filename): Get rid of text props from name.

diff -r 741ba17eeb20 -r 23f5b77e3773 lisp/dired.el
--- 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.