/[emacs]/emacs/lisp/international/mule-util.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by lektu, Thu Jul 18 06:13:27 2002 UTC revision 1.51 by lektu, Tue Nov 5 10:43:04 2002 UTC
# Line 195  defaults to \"...\"." Line 195  defaults to \"...\"."
195  ;;              (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語")  ;;              (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語")
196  ;;              ))  ;;              ))
197  ;;   (let (ret)  ;;   (let (ret)
198  ;;     (condition-case e  ;;     (condition-case e
199  ;;      (setq ret (apply #'truncate-string-to-width (car test)))  ;;      (setq ret (apply #'truncate-string-to-width (car test)))
200  ;;       (error (setq ret e)))  ;;       (error (setq ret e)))
201  ;;     (unless (equal ret (cdr test))  ;;     (unless (equal ret (cdr test))
# Line 294  Optional 3rd argument NIL-FOR-TOO-LONG n Line 294  Optional 3rd argument NIL-FOR-TOO-LONG n
294  ;; Coding system related functions.  ;; Coding system related functions.
295    
296  ;;;###autoload  ;;;###autoload
 (defun coding-system-eol-type-mnemonic (coding-system)  
   "Return the string indicating end-of-line format of CODING-SYSTEM."  
   (let* ((eol-type (coding-system-eol-type coding-system))  
          (val (cond ((vectorp eol-type) eol-mnemonic-undecided)  
                     ((eq eol-type 0) eol-mnemonic-unix)  
                     ((eq eol-type 1) eol-mnemonic-dos)  
                     ((eq eol-type 2) eol-mnemonic-mac)  
                     (t "-"))))  
     (if (stringp val)  
         val  
       (char-to-string val))))  
   
 ;;;###autoload  
297  (defun coding-system-post-read-conversion (coding-system)  (defun coding-system-post-read-conversion (coding-system)
298    "Return the value of CODING-SYSTEM's `post-read-conversion' property."    "Return the value of CODING-SYSTEM's `post-read-conversion' property."
299    (coding-system-get coding-system 'post-read-conversion))    (coding-system-get coding-system 'post-read-conversion))

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26