diff options
| author | Richard M. Stallman | 1997-08-30 19:46:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-30 19:46:24 +0000 |
| commit | fdbc88f98bb2e79f23f0796c171aff55a9568f46 (patch) | |
| tree | ad0a58812231e9150f79ecf84144d8930f1ec614 | |
| parent | 413d1aa2369bc2a469c27bbfb33629ffeba4b18b (diff) | |
| download | emacs-fdbc88f98bb2e79f23f0796c171aff55a9568f46.tar.gz emacs-fdbc88f98bb2e79f23f0796c171aff55a9568f46.zip | |
(dired-get-filename): Encode file name using the buffer's coding system.
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 30348d62ffc..e3273f732f0 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1299,6 +1299,8 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on | |||
| 1299 | "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) | 1299 | "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) |
| 1300 | file) | 1300 | file) |
| 1301 | "\""))))) | 1301 | "\""))))) |
| 1302 | (if buffer-file-coding-system | ||
| 1303 | (setq file (encode-coding-string file buffer-file-coding-system))) | ||
| 1302 | (if (eq localp 'no-dir) | 1304 | (if (eq localp 'no-dir) |
| 1303 | file | 1305 | file |
| 1304 | (and file (concat (dired-current-directory localp) file))))) | 1306 | (and file (concat (dired-current-directory localp) file))))) |