[slime-devel] PATCH: EUC-JP support

-- NIIMI Satoshi Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.539 diff -u -r1.539 slime.el --- slime.el 9 Sep 2005 17:10:18 -0000 1.539 +++ slime.el 10 Sep 2005 03:30:52 -0000 @@ -1552,7 +1552,8 @@ (iso-8859-1-unix nil :iso-latin-1-unix) (binary nil :iso-latin-1-unix) (utf-8-unix t :utf-8-unix) - (emacs-mule-unix t :emacs-mule-unix)) + (emacs-mule-unix t :emacs-mule-unix) + (euc-jp-unix t :euc-jp-unix)) "A list of valid coding systems. Each element is of the form: (NAME MULTIBYTEP CL-NAME)") Index: swank-clisp.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v retrieving revision 1.54 diff -u -r1.54 swank-clisp.lisp --- swank-clisp.lisp 22 Aug 2005 04:30:30 -0000 1.54 +++ swank-clisp.lisp 10 Sep 2005 03:30:52 -0000 @@ -122,6 +122,8 @@ (:iso-latin-1-unix (ext:make-encoding :charset 'charset:iso-8859-1 :line-terminator :unix)) (:utf-8-unix (ext:make-encoding :charset 'charset:utf-8 + :line-terminator :unix)) + (:euc-jp-unix (ext:make-encoding :charset 'charset:euc-jp :line-terminator :unix)))) (defimplementation accept-connection (socket Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.143 diff -u -r1.143 swank-sbcl.lisp --- swank-sbcl.lisp 29 Aug 2005 11:23:55 -0000 1.143 +++ swank-sbcl.lisp 10 Sep 2005 03:30:52 -0000 @@ -123,7 +123,9 @@ (ecase coding-system (:iso-latin-1-unix :iso-8859-1) #+sb-unicode - (:utf-8-unix :utf-8))) + (:utf-8-unix :utf-8) + #+sb-unicode + (:euc-jp-unix :euc-jp))) (defun make-socket-io-stream (socket external-format) (let ((ef (find-external-format external-format))) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.330 diff -u -r1.330 swank.lisp --- swank.lisp 5 Sep 2005 13:54:02 -0000 1.330 +++ swank.lisp 10 Sep 2005 03:30:53 -0000 @@ -220,7 +220,8 @@ ;; The coding system for network streams. (external-format *coding-system* :type (member :iso-latin-1-unix :emacs-mule-unix - :utf-8-unix))) + :utf-8-unix + :euc-jp-unix))) (defun print-connection (conn stream depth) (declare (ignore depth))