[Elisp-code-dired] Resend: Dired 7.13 bug: dired messes up DOS line-encoding handling on XEmacs

[Joachim Schrod]

[Resend, this time with attachment. Sorry for the incomplete first email.]

Hello,

In XEmacs 21.5.25, when one loads dired, and afterwards loads a text
file with DOS line-encoding (i.e., with CR-LF endings), the
line-encoding is correctly parsed, but not represented in buffer
encoding state. When the file is changed and written out again, all
line-endings have been converted to LF. This does not happen, when
dired is not loaded.

How to create the issue, with the appended file intro-dos.txt:

 -- Start
       xemacs -vanilla .
    I.e., show some directory in dired-mode.
 -- C-x C-f intro-dos.txt
 -- Mode line shows Raw and not Raw:T
 -- Change something, C-x C-s
 -- Saved file has now LF line-endings.

As always, if I can help any further to track down the problem, I'm
willing to invest more work. But I would need your guidance where to
look -- I don't want to check the whole dired code where it might be
concerned with coding-systems somewhere.

Best,
        Joachim



Emacs  : XEmacs 21.5  (beta25) "eggplant" [Lucid] (i686-pc-linux, Mule) of Mon 
Feb 27 2006 on n-pussy
Package: Dired

current state:
==============
(setq
 dired-version "7.13"
 dired-backup-if-overwrite nil
 dired-chown-program "chown"
 dired-cleanup-alist '(("tex" ".toc" ".log" ".aux" ".dvi")
                       ("latex" ".toc" ".log" ".aux" ".idx" ".lof" ".lot"
                        ".glo" ".dvi")
                       ("bibtex" ".blg" ".bbl")
                       ("texinfo" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg"
                        ".pgs" ".tp" ".tps" ".vr" ".vrs")
                       ("patch" ".rej" ".orig") ("backups" "~")
                       ("completion-ignored-extensions" "CM/" "CVS/" ".o"
                        ".obj" ".elc" "~" ".bin" ".lbin" ".dvi" ".class")
                       )
 dired-compression-method 'gzip
 dired-compression-method-alist '((gzip ".gz" ("gzip") ("gzip" "-d") "-f")
                                  (compress ".Z" ("compress" "-f")
                                   ("compress" "-d") "-f")
                                  (pack ".z" ("pack" "-f") ("unpack"))
                                  (compact ".C" ("compact") ("uncompact"))
                                  (bzip2 ".bz2" ("bzip2") ("bunzip2") "-f"))
 dired-copy-preserve-time t
 dired-dwim-target nil
 dired-failed-marker-shell ?!
 dired-filename-re-ext "\\..+\\'"
 dired-find-subdir nil
 dired-gnutar-program nil
 dired-keep-marker-compress t
 dired-keep-marker-copy ?C
 dired-keep-marker-hardlink ?H
 dired-keep-marker-kill ?K
 dired-keep-marker-rename t
 dired-keep-marker-symlink ?S
 dired-keep-marker-uucode ?U
 dired-kept-versions 2
 dired-listing-switches "-al"
 dired-local-variables-file ".dired"
 dired-ls-F-marks-symlinks nil
 dired-ls-program "ls"
 dired-mail-reader 'vm
 dired-mode-line-modified "-%s%s%s-"
 dired-no-confirm nil
 dired-omit-extensions '(".class" ".lbin" ".bin" ".elc" ".obj" ".o" "CVS/"
                         "CM/" "~" ".orig" ".rej" ".vrs" ".vr" ".tps" ".tp"
                         ".pgs" ".pg" ".kys" ".ky" ".fns" ".fn" ".cps" ".cp"
                         ".bbl" ".blg" ".glo" ".lot" ".lof" ".idx" ".dvi"
                         ".aux" ".log" ".toc")
 dired-omit-files nil
 dired-omit-regexps '("\\`#" "\\`\\.")
 dired-refresh-automatically t
 dired-show-ls-switches nil
 dired-trivial-filenames "\\`\\.\\.?\\'\\|\\`#"
 dired-unshar-program nil
 dired-use-file-transformers t
 dired-verify-modtimes t
 reporter-version "Your version of reporter is obsolete.  Please upgrade."
 )

intro-dos.txt
Description: Binary data