From 900dc6e3d795ca358bd57ab79bf4a511c8d69235 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 2 Jul 1997 12:59:41 +0000 Subject: [PATCH] (charset-bytes, charset-dimension, charset-chars, charset-width, charset-direction, charset-iso-final-char, charset-iso-graphic-plane, charset-reverse-charset, cahrset-short-name, charset-long-name, charset-description, charset-plit, set-charset-plist): Document them. (make-char, charset-list): Doc-string modified. (find-new-buffer-file-coding-system): Fix bug of handling the coding system undecided. --- lisp/international/mule.el | 36 ++++++++++++++++++++++++++++++------ 1 file changed, 30 insertions(+), 6 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 7e06873afeb..32eac27d0c7 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -128,72 +128,97 @@ PLIST (property list) may contain any type of information a user `(aref (charset-info ,charset) 0))) (defmacro charset-bytes (charset) + "Return bytes of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 1) `(aref (charset-info ,charset) 1))) (defmacro charset-dimension (charset) + "Return dimension of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 2) `(aref (charset-info ,charset) 2))) (defmacro charset-chars (charset) + "Return character numbers contained in a dimension of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 3) `(aref (charset-info ,charset) 3))) (defmacro charset-width (charset) + "Return width (how many column occupied on a screen) of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 4) `(aref (charset-info ,charset) 4))) (defmacro charset-direction (charset) + "Return direction of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 5) `(aref (charset-info ,charset) 5))) (defmacro charset-iso-final-char (charset) + "Return final char of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 8) `(aref (charset-info ,charset) 8))) (defmacro charset-iso-graphic-plane (charset) + "Return graphic plane of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 9) `(aref (charset-info ,charset) 9))) (defmacro charset-reverse-charset (charset) + "Return reverse charset of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 10) `(aref (charset-info ,charset) 10))) (defmacro charset-short-name (charset) + "Return short name of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 11) `(aref (charset-info ,charset) 11))) (defmacro charset-long-name (charset) + "Return long name of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 12) `(aref (charset-info ,charset) 12))) (defmacro charset-description (charset) + "Return descriptoin of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) (aref (charset-info (nth 1 charset)) 13) `(aref (charset-info ,charset) 13))) (defmacro charset-plist (charset) + "Return list charset property of CHARSET. +See the function `charset-info' for more detail." (if (quoted-symbol-p charset) `(aref ,(charset-info (nth 1 charset)) 14) `(aref (charset-info ,charset) 14))) (defun set-charset-plist (charset plist) + "Set CHARSET's property list to PLIST, and retrun PLIST." (aset (charset-info charset) 14 plist)) (defmacro make-char (charset &optional c1 c2) "Return a character of CHARSET and position-codes CODE1 and CODE2. CODE1 and CODE2 are optional, but if you don't supply - sufficient position-codes, return a generic character which stands for +sufficient position-codes, return a generic character which stands for all characters or group of characters in the character sets. A generic character can be used to index a char table (e.g. syntax-table)." (if (quoted-symbol-p charset) @@ -201,7 +226,10 @@ A generic character can be used to index a char table (e.g. syntax-table)." `(make-char-internal (charset-id ,charset) ,c1 ,c2))) (defmacro charset-list () - "Return list of charsets ever defined." + "Return list of charsets ever defined. + +This macro is provided for backward compatibility. +Now we have the variable `charset-list'." 'charset-list) (defsubst generic-char-p (char) @@ -590,10 +618,6 @@ Return nil if there's no need of setting new buffer-file-coding-system." (if (null (numberp found-eol)) ;; But eol-type is not found. (setq found-eol nil)) - (if (eq (coding-system-type coding) t) - ;; This is `undecided', which means nothing found except - ;; for eol-type. - (setq coding nil)) ;; The local setting takes precedence over the found one. (setq new-coding (or local-coding coding)) -- 2.39.2