mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-05 13:31:45 -08:00
Code Issues Projects Releases Wiki Activity

(coding-system-equal): Fix merging of

Browse source 
2004-10-12 change.
This commit is contained in:
Kenichi Handa 2004-10-16 00:23:39 +00:00
parent d8297f3730
commit daff7d74b4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/mule.el
View file

@ -875,8 +875,8 @@ like `mime-charset' as well as the current style like `:mime-charset'."
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))
(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)