Mercurial > emacs

comparison lisp/dired.el @ 19839:752ad8dab7fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-get-filename): Don't call encode-coding-string if file-name-coding-system is non-nil.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Sep 1997 05:37:20 +0000
parents 91cd68461722
children c6c891d8f584
comparison
equal deleted inserted replaced
19838:7e1bbe58eb02 19839:752ad8dab7fd
1298 (or (dired-string-replace-match 1298 (or (dired-string-replace-match
1299 "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) 1299 "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t)
1300 file) 1300 file)
1301 "\""))))) 1301 "\"")))))
1302 (and file buffer-file-coding-system 1302 (and file buffer-file-coding-system
1303 (not file-name-coding-system)
1303 (setq file (encode-coding-string file buffer-file-coding-system))) 1304 (setq file (encode-coding-string file buffer-file-coding-system)))
1304 (if (eq localp 'no-dir) 1305 (if (eq localp 'no-dir)
1305 file 1306 file
1306 (and file (concat (dired-current-directory localp) file))))) 1307 (and file (concat (dired-current-directory localp) file)))))
1307 1308