/[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.55 by handa, Fri Apr 23 02:08:22 2004 UTC revision 1.56 by handa, Tue Oct 12 05:24:14 2004 UTC
# Line 315  Optional 3rd argument NIL-FOR-TOO-LONG n Line 315  Optional 3rd argument NIL-FOR-TOO-LONG n
315    (coding-system-get coding-system 'translation-table-for-encode))    (coding-system-get coding-system 'translation-table-for-encode))
316    
317  ;;;###autoload  ;;;###autoload
 (defun coding-system-equal (coding-system-1 coding-system-2)  
   "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.  
 Two coding systems are identical if two symbols are equal  
 or one is an alias of the other."  
   (or (eq coding-system-1 coding-system-2)  
       (and (equal (coding-system-spec coding-system-1)  
                   (coding-system-spec coding-system-2))  
            (let ((eol-type-1 (coding-system-eol-type coding-system-1))  
                  (eol-type-2 (coding-system-eol-type coding-system-2)))  
              (or (eq eol-type-1 eol-type-2)  
                  (and (vectorp eol-type-1) (vectorp eol-type-2)))))))  
   
 ;;;###autoload  
318  (defmacro detect-coding-with-priority (from to priority-list)  (defmacro detect-coding-with-priority (from to priority-list)
319    "Detect a coding system of the text between FROM and TO with PRIORITY-LIST.    "Detect a coding system of the text between FROM and TO with PRIORITY-LIST.
320  PRIORITY-LIST is an alist of coding categories vs the corresponding  PRIORITY-LIST is an alist of coding categories vs the corresponding

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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