From e9fe3513c97ed16b9003dd0af4433fb724a1928b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 21 Jul 2006 09:27:17 +0000 Subject: [PATCH] (archive-set-buffer-as-visiting-file): Comment fix. --- lisp/ChangeLog | 7 +++++++ lisp/arc-mode.el | 12 ++++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 383881b78b0..a75f47677b9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2006-07-21 Eli Zaretskii + + * dos-w32.el (find-buffer-file-type-coding-system): Support calls + where `(nth 1 command)' is a cons cell. Doc fix. + + * textmodes/po.el (po-find-charset): Doc fix. + 2006-07-21 Ken Manheimer * allout.el (allout-unprotected, allout-e-o-prefix-p) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 500ad5ff5fa..4afdfac2bf5 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -870,10 +870,14 @@ using `make-temp-file', and the generated name is returned." (save-excursion (funcall set-auto-coding-function filename (- (point-max) (point-min))))) - ;; dos-w32.el defines find-operation-coding-system for - ;; DOS/Windows systems which preserves the coding-system - ;; of existing files. We want it to act here as if the - ;; extracted file existed. + ;; dos-w32.el defines the function + ;; find-buffer-file-type-coding-system for DOS/Windows + ;; systems which preserves the coding-system of existing files. + ;; (That function is called via file-coding-system-alist.) + ;; Here, we want it to act as if the extracted file existed. + ;; The following let-binding of file-name-handler-alist forces + ;; find-file-not-found-set-buffer-file-coding-system to ignore + ;; the file's name (see dos-w32.el). (let ((file-name-handler-alist '(("" . archive-file-name-handler)))) (car (find-operation-coding-system -- 2.39.2