(defun charset-description (charset)
"Return description of CHARSET. [emu-nemacs.el]"
- (get charset 'charset-description)
- )
+ (get charset 'charset-description))
(defun charset-registry (charset)
"Return registry name of CHARSET. [emu-nemacs.el]"
- (get charset 'charset-registry)
- )
+ (get charset 'charset-registry))
(defun charset-width (charset)
"Return number of columns a CHARSET occupies when displayed.
(save-restriction
(narrow-to-region start end)
(goto-char start)
- (re-search-forward "[\200-\377]" nil t)
- ))
+ (re-search-forward "[\200-\377]" nil t)))
'(japanese-jisx0208)
))
(while (< i len)
(if (>= (elt str i) 128)
(throw 'label nil))
- (setq i (+ i 1))
- )
+ (setq i (+ i 1)))
str)))
;;; @@ for old MULE emulation
\[emu-nemacs.el; EMACS 20 emulating function]"
(if (eq coding-system 3)
string
- (convert-string-kanji-code string coding-system 3)
- ))
+ (convert-string-kanji-code string coding-system 3)))
(defun encode-coding-string (string coding-system)
"Encode the STRING to CODING-SYSTEM.
\[emu-nemacs.el; EMACS 20 emulating function]"
(if (eq coding-system 3)
string
- (convert-string-kanji-code string 3 coding-system)
- ))
+ (convert-string-kanji-code string 3 coding-system)))
(defun decode-coding-region (start end coding-system)
"Decode the text between START and END which is encoded in CODING-SYSTEM.
(save-excursion
(save-restriction
(narrow-to-region start end)
- (convert-region-kanji-code start end coding-system 3)
- ))))
+ (convert-region-kanji-code start end coding-system 3)))
+ ))
(defun encode-coding-region (start end coding-system)
"Encode the text between START and END to CODING-SYSTEM.
(save-excursion
(save-restriction
(narrow-to-region start end)
- (convert-region-kanji-code start end 3 coding-system)
- ))))
+ (convert-region-kanji-code start end 3 coding-system)))
+ ))
(defun detect-coding-region (start end)
"Detect coding-system of the text in the region between START and END.
(save-restriction
(narrow-to-region start end)
(goto-char start)
- (re-search-forward "[\200-\377]" nil t)
- ))
+ (re-search-forward "[\200-\377]" nil t)))
*euc-japan*
))
(save-excursion
(save-restriction
(narrow-to-region beg end)
- (convert-region-kanji-code beg end ic oc)
- ))))
+ (convert-region-kanji-code beg end ic oc)))
+ ))
;;; @ without code-conversion
kanji-flag
(default-kanji-process-code 0)
program-kanji-code-alist)
- (,@ body)
- )))
+ (,@ body))))
(defmacro as-binary-input-file (&rest body)
(` (let (kanji-flag)
- (,@ body)
- )))
+ (,@ body))))
(defmacro as-binary-output-file (&rest body)
(` (let (kanji-flag)
- (,@ body)
- )))
+ (,@ body))))
(defun write-region-as-binary (start end filename
&optional append visit lockname)
"Like `write-region', q.v., but don't code conversion. [emu-nemacs.el]"
- (let (kanji-flag)
- (write-region start end filename append visit)
- ))
+ (as-binary-output-file
+ (write-region start end filename append visit)))
(defun insert-file-contents-as-binary (filename
&optional visit beg end replace)
"Like `insert-file-contents', q.v., but don't character code conversion.
\[emu-nemacs.el]"
- (let (kanji-flag)
- (insert-file-contents filename visit beg end replace)
- ))
+ (as-binary-input-file
+ ;; Returns list absolute file name and length of data inserted.
+ (insert-file-contents filename visit beg end replace)))
(fset 'insert-binary-file-contents 'insert-file-contents-as-binary)
find-file-hooks, etc.
This function ensures that none of these modifications will take place.
\[emu-nemacs.el]"
- (let (kanji-flag)
- (insert-file-contents-literally filename visit beg end replace)
- ))
+ (as-binary-input-file
+ ;; Returns list absolute file name and length of data inserted.
+ (insert-file-contents-literally 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 character code conversion.
\[emu-nemacs.el]"
- (let (kanji-flag)
- (insert-file-contents filename visit beg end replace)
- ))
+ (as-binary-input-file
+ ;; Returns list 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)
(insert-buffer-substring the-buf start end)
(goto-char (point-min))
(while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
- (replace-match "\\1\r\n")
- )
- (let (kanji-flag)
- (write-region (point-min)(point-max) filename append visit)
- ))))
+ (replace-match "\\1\r\n"))
+ (write-region-as-binary (point-min)(point-max)
+ filename append visit))))
;;; @ MIME charset
(if (stringp charset)
(setq charset (intern (downcase charset)))
)
- (cdr (assq charset mime-charset-coding-system-alist))
- )
+ (cdr (assq charset mime-charset-coding-system-alist)))
(defun detect-mime-charset-region (start end)
"Return MIME charset for region between START and END.
(save-restriction
(narrow-to-region start end)
(goto-char start)
- (re-search-forward "[\200-\377]" nil t)
- ))
+ (re-search-forward "[\200-\377]" nil t)))
default-mime-charset
'us-ascii))
(save-excursion
(save-restriction
(narrow-to-region start end)
- (convert-region-kanji-code start end 3 cs)
- ))
- ))))
+ (convert-region-kanji-code start end 3 cs))))
+ )))
(defun decode-mime-charset-region (start end charset &optional lbt)
"Decode the text between START and END as MIME CHARSET.
(progn
(goto-char (point-min))
(while (search-forward nl nil t)
- (replace-match "\n"))))
- ))
+ (replace-match "\n")))
+ )))
))))
(defun encode-mime-charset-string (string charset)
(let ((kanji-fileio-code
(or (mime-charset-to-coding-system charset)
*noconv*)))
- (write-region start end filename)
- ))
+ (write-region start end filename)))
;;; @ buffer representation
(defun char-bytes (chr)
"Return number of bytes CHAR will occupy in a buffer.
\[emu-nemacs.el; Mule emulating function]"
- (if (< chr 128) 1 2))
+ (if (< chr 128)
+ 1
+ 2))
(defun char-width (char)
"Return number of columns a CHAR occupies when displayed.
(let ((chr (aref str idx)))
(if (< chr 128)
chr
- (logior (lsh (aref str (1+ idx)) 8) chr)
- )))
+ (logior (lsh (aref str (1+ idx)) 8) chr))))
(defun string-to-char-list (str)
(let ((i 0)(len (length str)) dest chr)
(setq chr (aref str i))
(if (>= chr 128)
(setq i (1+ i)
- chr (+ (lsh chr 8) (aref str i))
- ))
+ chr (+ (lsh chr 8) (aref str i)))
+ )
(setq dest (cons chr dest))
- (setq i (1+ i))
- )
- (reverse dest)
- ))
+ (setq i (1+ i)))
+ (reverse dest)))
(fset 'string-to-int-list (symbol-function 'string-to-char-list))
projects / elisp / apel.git / commitdiff