[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-util.el [emacs-un
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-util.el [emacs-unicode-2] |
Date: |
Fri, 15 Oct 2004 20:36:20 -0400 |
Index: emacs/lisp/international/mule-util.el
diff -c emacs/lisp/international/mule-util.el:1.51.6.4
emacs/lisp/international/mule-util.el:1.51.6.5
*** emacs/lisp/international/mule-util.el:1.51.6.4 Mon Jun 28 07:29:47 2004
--- emacs/lisp/international/mule-util.el Sat Oct 16 00:25:08 2004
***************
*** 318,336 ****
(coding-system-get coding-system :encode-translation-table))
;;;###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
(defmacro with-coding-priority (coding-systems &rest body)
"Execute BODY like `progn' with CODING-SYSTEMS at the front of priority
list.
CODING-SYSTEMS is a list of coding systems. See
--- 318,323 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/mule-util.el [emacs-unicode-2],
Kenichi Handa <=