diff options
| author | Richard M. Stallman | 1994-05-28 12:13:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-28 12:13:21 +0000 |
| commit | db07847fc06e14e4f3ca1599d9c7f6612ffe81a5 (patch) | |
| tree | b689254bca0ff997cad7e65057eed9805e88ada0 | |
| parent | c5e3b6c5c1554d70e6873c3537e476953069e3e1 (diff) | |
| download | emacs-db07847fc06e14e4f3ca1599d9c7f6612ffe81a5.tar.gz emacs-db07847fc06e14e4f3ca1599d9c7f6612ffe81a5.zip | |
(dired-get-filename): Get rid of text props from name.
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 1094 | (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep))) | 1094 | (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep))) |
| 1095 | (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep)))) | 1095 | (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep)))) |
| 1096 | ;; nil if no file on this line, but no-error-if-not-filep is t: | 1096 | ;; nil if no file on this line, but no-error-if-not-filep is t: |
| 1097 | (if (setq file (and p1 p2 (buffer-substring p1 p2))) | 1097 | (if (setq file (and p1 p2 (format "%s" (buffer-substring p1 p2)))) |
| 1098 | ;; Check if ls quoted the names, and unquote them. | 1098 | ;; Check if ls quoted the names, and unquote them. |
| 1099 | ;; Using read to unquote is much faster than substituting | 1099 | ;; Using read to unquote is much faster than substituting |
| 1100 | ;; \007 (4 chars) -> ^G (1 char) etc. in a lisp loop. | 1100 | ;; \007 (4 chars) -> ^G (1 char) etc. in a lisp loop. |