# HG changeset patch # User Richard M. Stallman # Date 867798644 0 # Node ID 425c8fa4227b5f9b435d68e44ccc2763d2056555 # Parent 6b5e726667e774f5b43e11fe36bc6bd86d3dfcbb (define-coding-system-alias): Swap the args. diff -r 6b5e726667e7 -r 425c8fa4227b lisp/international/mule.el --- a/lisp/international/mule.el Tue Jul 01 07:07:44 1997 +0000 +++ b/lisp/international/mule.el Tue Jul 01 23:10:44 1997 +0000 @@ -436,8 +436,9 @@ (make-subsidiary-coding-system coding-system) 0))) -(defun define-coding-system-alias (coding-system alias) - "Define ALIAS as an alias coding system of CODING-SYSTEM." +(defun define-coding-system-alias (alias coding-system) + "Define ALIAS as an alias for coding system + CODING-SYSTEM." (check-coding-system coding-system) (let ((parent (coding-system-parent coding-system))) (if parent