;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(eval-and-compile
+ (static-if (featurep 'xemacs)
+ (defadvice make-coding-system (before ccl-compat (name type &rest ad-subr-args) activate)
+ (when (and (integerp type)
+ (eq type 4)
+ (characterp (ad-get-arg 2))
+ (stringp (ad-get-arg 3))
+ (consp (ad-get-arg 4))
+ (symbolp (car (ad-get-arg 4)))
+ (symbolp (cdr (ad-get-arg 4))))
+ (setq type 'ccl)
+ (setq ad-subr-args
+ (list
+ (ad-get-arg 3)
+ (append
+ (list
+ 'mnemonic (char-to-string (ad-get-arg 2))
+ 'decode (symbol-value (car (ad-get-arg 4)))
+ 'encode (symbol-value (cdr (ad-get-arg 4))))
+ (ad-get-arg 5)))))))
+
(if (featurep 'xemacs)
(defun make-ccl-coding-system (name mnemonic docstring decoder encoder)
"\
(defun ccl-execute (ccl-prog reg)
"\
Execute CCL-PROG with registers initialized by REGISTERS.
-If CCL-PROG is symbol, it is dereferenced.
-\[Emacs 20.3 emulating function]"
+If CCL-PROG is symbol, it is dereferenced."
(ccl-vector-program-execute
(if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
reg)))
(defun ccl-execute-on-string (ccl-prog status string &optional contin)
"\
Execute CCL-PROG with initial STATUS on STRING.
-If CCL-PROG is symbol, it is dereferenced.
-\[Emacs 20.3 emulating function]"
+If CCL-PROG is symbol, it is dereferenced."
(ccl-vector-program-execute-on-string
(if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
status string contin)))