diff options
| author | Richard M. Stallman | 1996-01-27 02:18:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-27 02:18:29 +0000 |
| commit | bc07e5cb1e416d6b7df6deb3b0866c2fd1a79fdf (patch) | |
| tree | 4041a28147b42e4ea342bca6a3fa3ad2b23ec645 | |
| parent | 47c7adae7df3f637e61c61c5c75487f999265b90 (diff) | |
| download | emacs-bc07e5cb1e416d6b7df6deb3b0866c2fd1a79fdf.tar.gz emacs-bc07e5cb1e416d6b7df6deb3b0866c2fd1a79fdf.zip | |
(dired-get-filename): When quoting " chars,
handle all of them, including one at start of file 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 ca69ece98f4..39d4a899121 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1199,7 +1199,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on | |||
| 1199 | ;; some ls -b don't escape quotes, argh! | 1199 | ;; some ls -b don't escape quotes, argh! |
| 1200 | ;; This is not needed for GNU ls, though. | 1200 | ;; This is not needed for GNU ls, though. |
| 1201 | (or (dired-string-replace-match | 1201 | (or (dired-string-replace-match |
| 1202 | "\\([^\\]\\)\"" file "\\1\\\\\"") | 1202 | "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) |
| 1203 | file) | 1203 | file) |
| 1204 | "\""))))) | 1204 | "\""))))) |
| 1205 | (if (eq localp 'no-dir) | 1205 | (if (eq localp 'no-dir) |