[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dired.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dired.el |
Date: |
Wed, 19 Mar 2003 06:58:25 -0500 |
Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.256 emacs/lisp/dired.el:1.257
*** emacs/lisp/dired.el:1.256 Thu Feb 13 14:34:17 2003
--- emacs/lisp/dired.el Wed Mar 19 06:58:25 2003
***************
*** 1462,1477 ****
(or (dired-string-replace-match
"\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t)
file)
! "\"")))))
(and file (file-name-absolute-p file)
;; A relative file name can start with ~.
;; Don't treat it as absolute in this context.
(not (eq (aref file 0) ?~))
(setq already-absolute t))
- (and file buffer-file-coding-system
- (not file-name-coding-system)
- (not default-file-name-coding-system)
- (setq file (encode-coding-string file buffer-file-coding-system)))
(cond
((null file)
nil)
--- 1462,1478 ----
(or (dired-string-replace-match
"\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t)
file)
! "\"")))
! ;; The above `read' will return a unibyte string if FILE
! ;; contains eight-bit-control/graphic characters.
! (if (and enable-multibyte-characters
! (not (multibyte-string-p file)))
! (setq file (string-to-multibyte file)))))
(and file (file-name-absolute-p file)
;; A relative file name can start with ~.
;; Don't treat it as absolute in this context.
(not (eq (aref file 0) ?~))
(setq already-absolute t))
(cond
((null file)
nil)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/dired.el,
Kenichi Handa <=