&optional append visit lockname)
"Like `write-region', q.v., but don't encode."
(let ((coding-system-for-write 'binary))
- (write-region start end filename append visit lockname)
- ))
+ (write-region start end filename append visit lockname)))
(defun insert-file-contents-as-binary (filename
&optional visit beg end replace)
code conversion will not take place."
(let ((coding-system-for-read 'binary)
format-alist)
- (insert-file-contents filename visit beg end replace)
- ))
-
-(defun write-region-as-CRLF (start end filename
- &optional append visit lockname)
- "Like `write-region', q.v., but write as network representation."
- (let ((coding-system-for-write 'raw-text-dos))
- (write-region start end filename append visit lockname)
- ))
+ ;; Returns list of absolute file name and length of data inserted.
+ (insert-file-contents filename visit beg end replace)))
(defun insert-file-contents-as-raw-text (filename
&optional visit beg end replace)
code."
(let ((coding-system-for-read 'raw-text)
format-alist)
- (insert-file-contents filename visit beg end replace)
- ))
+ ;; Returns list of absolute file name and length of data inserted.
+ (insert-file-contents filename visit beg end replace)))
+
+(defun write-region-as-raw-text-CRLF (start end filename
+ &optional append visit lockname)
+ "Like `write-region', q.v., but write as network representation."
+ (let ((coding-system-for-write 'raw-text-dos))
+ (write-region start end filename append visit lockname)))
;;; @@ Mule emulating aliases
(gb2312 . cn-gb-2312)
(iso-2022-jp-2 . iso-2022-7bit-ss2)
(x-ctext . ctext)
+ (unknown . undecided)
+ (x-unknown . undecided)
))
dest)
(while rest
(t lbt)))))
)
(if (find-coding-system charset)
- charset))
+ charset
+ ))
(defsubst mime-charset-list ()
"Return a list of all existing MIME-charset."
(completing-read (format "%s (default %s) " prompt value)
(mapcar (function
(lambda (sym)
- (list (symbol-name sym))
- ))
+ (list (symbol-name sym))))
(mime-charset-list)))))
(defun widget-mime-charset-action (widget &optional event)
(let ((coding-system-for-write
(or (mime-charset-to-coding-system charset)
'binary)))
- (write-region start end filename append visit lockname)
- ))
+ (write-region start end filename append visit lockname)))
;;; @ end