/[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.47 by walters, Tue May 21 21:22:21 2002 UTC revision 1.47.2.1 by miles, Fri Apr 4 06:20:22 2003 UTC
# Line 56  TYPE should be `list' or `vector'." Line 56  TYPE should be `list' or `vector'."
56             (error "Invalid type: %s" type)))             (error "Invalid type: %s" type)))
57  ;;;    val)  ;;;    val)
58  )  )
59    
60    ;;;###autoload
61  (make-obsolete 'string-to-sequence  (make-obsolete 'string-to-sequence
62                 "Use `string-to-list' or `string-to-vector'"                 "use `string-to-list' or `string-to-vector'."
63                 "21.3")                 "21.4")
64    
65  ;;;###autoload  ;;;###autoload
66  (defsubst string-to-list (string)  (defsubst string-to-list (string)
# Line 193  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 208  defaults to \"...\"." Line 210  defaults to \"...\"."
210  ;;; For backward compatibility ...  ;;; For backward compatibility ...
211  ;;;###autoload  ;;;###autoload
212  (defalias 'truncate-string 'truncate-string-to-width)  (defalias 'truncate-string 'truncate-string-to-width)
213    
214    ;;;###autoload
215  (make-obsolete 'truncate-string 'truncate-string-to-width "20.1")  (make-obsolete 'truncate-string 'truncate-string-to-width "20.1")
216    
217  ;;; Nested alist handler.  Nested alist is alist whose elements are  ;;; Nested alist handler.  Nested alist is alist whose elements are
# Line 219  defaults to \"...\"." Line 223  defaults to \"...\"."
223    
224  Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is  Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
225  any Lisp object, and BRANCHES is a list of cons cells of the form  any Lisp object, and BRANCHES is a list of cons cells of the form
226  (KEY-ELEMENT . NESTED-ALIST).  \(KEY-ELEMENT . NESTED-ALIST).
227    
228  You can use a nested alist to store any Lisp object (ENTRY) for a key  You can use a nested alist to store any Lisp object (ENTRY) for a key
229  sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT.  KEYSEQ  sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT.  KEYSEQ
# Line 290  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.47  
changed lines
  Added in v.1.47.2.1

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