Commit 5a4122e2 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(find-buffer-file-type-coding-system): If `(car target)' does not exist as a

file, try again with its basename replaced by `(cdr target)'. Fixes Bug #1853.
parent fc47d8a7
2009-01-17 Eli Zaretskii <eliz@gnu.org>
 
* dos-w32.el (find-buffer-file-type-coding-system): If `(car
TARGET)' does not exist, try again with its basename replaced by
`(cdr TARGET)'. Fixes Bug #1853.
* international/mule-conf.el (raw-text, eight-bit): Doc fixes.
 
2009-01-16 Agustín Martín <agustin.martin@hispalinux.es>
......
......@@ -129,9 +129,9 @@ set to the appropriate coding system, and the value of
`buffer-file-coding-system' will be used when writing the file."
(let ((op (nth 0 command))
(target)
(binary nil) (text nil)
(undecided nil) (undecided-unix nil))
(undecided nil) (undecided-unix nil)
target target-buf)
(cond ((eq op 'insert-file-contents)
(setq target (nth 1 command))
;; If TARGET is a cons cell, it has the form (FILENAME . BUFFER),
......@@ -140,7 +140,11 @@ set to the appropriate coding system, and the value of
;; arguments is used, e.g., in arc-mode.el.) This function
;; doesn't care about the contents, it only looks at the file's
;; name, which is the CAR of the cons cell.
(if (consp target) (setq target (car target)))
(when (consp target)
(setq target-buf
(and (bufferp (cdr target))
(buffer-name (cdr target))))
(setq target (car target)))
;; First check for a file name that indicates
;; it is truly binary.
(setq binary (find-buffer-file-type target))
......@@ -149,7 +153,17 @@ set to the appropriate coding system, and the value of
((find-buffer-file-type-match target)
(setq text t))
;; For any other existing file, decide based on contents.
((file-exists-p target)
((or
(file-exists-p target)
;; If TARGET does not exist as a file, replace its
;; base name with TARGET-BUF and try again. This
;; is for jka-compr's sake, which strips the
;; compression (.gz etc.) extension from the
;; FILENAME, but leaves it in the BUFFER's name.
(and (stringp target-buf)
(file-exists-p
(expand-file-name target-buf
(file-name-directory target)))))
(setq undecided t))
;; Next check for a non-DOS file system.
((untranslated-file-p target)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment