Re: detecting charset of directories

[Kevin Rodgers]

Richard Stallman wrote:
>     > I think to make that work, dired-revert needs the same fix as
>     > dired-mode, namely:
>
>     > (set (make-local-variable 'file-name-coding-system)
>     >      (or coding-system-for-read file-name-coding-system))
>
> Kevin, I don't understand that suggestion.  I don't see anything
> like that code in dired-mode.
>
> Are you proposing a change to dired-mode AND a change to dired-revert?

Yes, that is what I am proposing.  Or alternatively, a single change
to dired-readin.

> Could use diff to show the change you are suggesting?

*** lisp/dired.el~      2006-10-23 11:58:19.628889700 -0600
--- lisp/dired.el       2006-10-23 12:02:15.497851300 -0600
***************
*** 1042,1047 ****
--- 1042,1049 ----
      ;; treat top level dir extra (it may contain wildcards)
      (dired-uncache
       (if (consp dired-directory) (car dired-directory) dired-directory))
+     (set (make-local-variable 'file-name-coding-system)
+        (or coding-system-for-read file-name-coding-system))
      (dired-readin)
      (let ((dired-after-readin-hook nil))
        ;; don't run that hook for each subdir...
***************
*** 1627,1632 ****
--- 1629,1636 ----
         '(dired-font-lock-keywords t nil nil beginning-of-line))
    (set (make-local-variable 'desktop-save-buffer)
         'dired-desktop-buffer-misc-data)
+   (set (make-local-variable 'file-name-coding-system)
+        (or coding-system-for-read file-name-coding-system))
    (setq dired-switches-alist nil)
    (dired-sort-other dired-actual-switches t)
    (when (featurep 'dnd)

--
Kevin