;;; Code:
(require 'custom)
+(eval-when-compile (require 'wid-edit))
-;;; @ binary access
+;;; @ without code-conversion
;;;
(defmacro as-binary-process (&rest body)
`(let ((coding-system-for-write 'binary))
,@body))
-(defun insert-binary-file-contents-literally (filename
- &optional visit beg end replace)
- "Like `insert-file-contents-literally', q.v., but don't code conversion.
-A buffer may be modified in several ways after reading into the buffer due
-to advanced Emacs features, such as file-name-handlers, format decoding,
-find-file-hooks, etc.
- This function ensures that none of these modifications will take place."
- (let ((coding-system-for-read 'binary))
- (insert-file-contents-literally filename visit beg end replace)
- ))
-
-(defun insert-binary-file-contents (filename &optional visit beg end replace)
- "Like `insert-file-contents', q.v., but don't code and format conversion."
+(defun write-region-as-binary (start end filename
+ &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)))
+
+(defun insert-file-contents-as-binary (filename
+ &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but don't code and format conversion.
+Like `insert-file-contents-literary', but it allows find-file-hooks,
+automatic uncompression, etc.
+
+Namely this function ensures that only format decoding and character
+code conversion will not take place."
(let ((coding-system-for-read 'binary)
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 insert-file-contents-as-raw-text (filename
+ &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but don't code and format conversion.
+Like `insert-file-contents-literary', but it allows find-file-hooks,
+automatic uncompression, etc.
+Like `insert-file-contents-as-binary', but it converts line-break
+code."
+ (let ((coding-system-for-read 'raw-text)
+ format-alist)
+ ;; Returns list of absolute file name and length of data inserted.
+ (insert-file-contents filename visit beg end replace)))
-(defun write-region-as-binary (start end filename
- &optional append visit lockname)
- "Like `write-region', q.v., but don't code conversion."
- (let ((coding-system-for-read 'binary))
- (write-region start end filename append visit lockname)
- ))
+(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
;;; @ MIME charset
;;;
-(defvar mime-charset-coding-system-alist
+(defcustom mime-charset-coding-system-alist
`,(let ((rest
- '((us-ascii . iso-8859-1)
+ '((us-ascii . raw-text)
(gb2312 . cn-gb-2312)
(iso-2022-jp-2 . iso-2022-7bit-ss2)
(x-ctext . ctext)
+ (unknown . undecided)
+ (x-unknown . undecided)
))
dest)
(while rest
)
dest)
"Alist MIME CHARSET vs CODING-SYSTEM.
-MIME CHARSET and CODING-SYSTEM must be symbol.")
+MIME CHARSET and CODING-SYSTEM must be symbol."
+ :group 'i18n
+ :type '(repeat (cons symbol coding-system)))
(defsubst mime-charset-to-coding-system (charset &optional lbt)
"Return coding-system corresponding with CHARSET.
CHARSET is a symbol whose name is MIME charset.
-If optional argument LBT (`unix', `dos' or `mac') is specified, it is
-used as line break code type of coding-system."
+If optional argument LBT (`CRLF', `LF', `CR', `unix', `dos' or `mac')
+is specified, it is used as line break code type of coding-system."
(if (stringp charset)
(setq charset (intern (downcase charset)))
)
(setq charset (cdr ret))
))
(if lbt
- (setq charset (intern (format "%s-%s" charset lbt)))
+ (setq charset (intern (format "%s-%s" charset
+ (cond ((eq lbt 'CRLF) 'dos)
+ ((eq lbt 'LF) 'unix)
+ ((eq lbt 'CR) 'mac)
+ (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)
"Return MIME charset for region between START and END."
(charsets-to-mime-charset (find-charset-region start end)))
+(defun write-region-as-mime-charset (charset start end filename
+ &optional append visit lockname)
+ "Like `write-region', q.v., but encode by MIME CHARSET."
+ (let ((coding-system-for-write
+ (or (mime-charset-to-coding-system charset)
+ 'binary)))
+ (write-region start end filename append visit lockname)))
+
;;; @ end
;;;