/[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.51.6.4 by miles, Mon Jun 28 07:29:47 2004 UTC revision 1.51.6.5 by handa, Sat Oct 16 00:25:08 2004 UTC
# Line 318  Optional 3rd argument NIL-FOR-TOO-LONG n Line 318  Optional 3rd argument NIL-FOR-TOO-LONG n
318    (coding-system-get coding-system :encode-translation-table))    (coding-system-get coding-system :encode-translation-table))
319    
320  ;;;###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-plist coding-system-1)  
                   (coding-system-plist 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  
321  (defmacro with-coding-priority (coding-systems &rest body)  (defmacro with-coding-priority (coding-systems &rest body)
322    "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.    "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
323  CODING-SYSTEMS is a list of coding systems.  See  CODING-SYSTEMS is a list of coding systems.  See

Legend:
Removed from v.1.51.6.4  
changed lines
  Added in v.1.51.6.5

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