Show
Ignore:
Timestamp:
07/29/06 07:48:34 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lisp/arc-mode.el

    r4091 r4131  
    871871                      (funcall set-auto-coding-function 
    872872                               filename (- (point-max) (point-min))))) 
    873                ;; dos-w32.el defines find-operation-coding-system for 
    874                ;; DOS/Windows systems which preserves the coding-system 
    875                ;; of existing files.  We want it to act here as if the 
    876                ;; extracted file existed. 
     873               ;; dos-w32.el defines the function 
     874               ;; find-buffer-file-type-coding-system for DOS/Windows 
     875               ;; systems which preserves the coding-system of existing files. 
     876               ;; (That function is called via file-coding-system-alist.) 
     877               ;; Here, we want it to act as if the extracted file existed. 
     878               ;; The following let-binding of file-name-handler-alist forces 
     879               ;; find-file-not-found-set-buffer-file-coding-system to ignore 
     880               ;; the file's name (see dos-w32.el). 
    877881               (let ((file-name-handler-alist 
    878882                      '(("" . archive-file-name-handler))))