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/dos-w32.el

    r4098 r4131  
    8989 
    9090(defun find-buffer-file-type-coding-system (command) 
    91   "Choose a coding system for a file operation. 
    92 If COMMAND is `insert-file-contents', the coding system is chosen based 
    93 upon the filename, the contents of `untranslated-filesystem-list' and 
    94 `file-name-buffer-file-type-alist', and whether the file exists: 
     91  "Choose a coding system for a file operation in COMMAND. 
     92COMMAND is a list that specifies the operation, and I/O primitive as its 
     93CAR, and the arguments that might be given to that operation as its CDR. 
     94If operation is `insert-file-contents', the coding system is chosen based 
     95upon the filename (the CAR of the arguments beyond the operation), the contents 
     96of `untranslated-filesystem-list' and `file-name-buffer-file-type-alist', 
     97and whether the file exists: 
    9598 
    9699  If it matches in `untranslated-filesystem-list': 
    …… 
    104107    If the file does not exist:        default-buffer-file-coding-system 
    105108 
    106 If COMMAND is `write-region', the coding system is chosen based upon 
     109If operation is `write-region', the coding system is chosen based upon 
    107110the value of `buffer-file-coding-system' and `buffer-file-type'. If 
    108111`buffer-file-coding-system' is non-nil, its value is used.  If it is 
    …… 
    127130    (cond ((eq op 'insert-file-contents) 
    128131           (setq target (nth 1 command)) 
     132           ;; If TARGET is a cons cell, it has the form (FILENAME . BUFFER), 
     133           ;; where BUFFER is a buffer into which the file was already read, 
     134           ;; but its contents were not yet decoded.  (This form of the 
     135           ;; arguments is used, e.g., in arc-mode.el.)  This function 
     136           ;; doesn't care about the contents, it only looks at the file's 
     137           ;; name, which is the CAR of the cons cell. 
     138           (if (consp target) (setq target (car target))) 
    129139           ;; First check for a file name that indicates 
    130140           ;; it is truly binary.