Skip to content
Snippets Groups Projects
Commit e83cc1a2 authored by cox's avatar cox
Browse files

See ChangeLog.n: 2000-01-31 Charles A. Cox <cox@freezer>

parent 74d4705d
No related branches found
No related tags found
No related merge requests found
......@@ -10,6 +10,12 @@ If there are user-visible changes in this commit, then list the
<standard changelog date stamp>
* <changes go here...>
*******************************************************************************
2000-01-31 Charles A. Cox <cox@freezer>
* Makefile.defs: Build in euc locale.
* tk/macros.lisp: Use euc compatibility in xchar-code.
*******************************************************************************
2.2.2.7 -- join from acl50 branch
......
# $Id: Makefile.defs,v 1.49 1999/05/04 01:20:59 layer Exp $
# $Id: Makefile.defs,v 1.50 2000/02/03 00:38:59 cox Exp $
#
# Makefile.defs for CLIM 2.0
......@@ -16,7 +16,7 @@ DCL = dcli
endif
CL = $(LISP) -I $(DCL)
CLOPTS = -qq -batch -backtrace-on-error
CLOPTS = -qq -batch -backtrace-on-error -locale japan.euc
RM = rm
CAT = cat
......
......@@ -16,7 +16,7 @@
;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;;
;; $Id: macros.lisp,v 1.23 1999/02/25 08:23:42 layer Exp $
;; $Id: macros.lisp,v 1.24 2000/02/03 00:39:00 cox Exp $
(in-package :tk)
......@@ -122,7 +122,12 @@
(defmacro xchar-code (char)
(clim-utils:with-gensyms (code)
`(let ((,code (char-code ,char)))
`(let ((,code (char-code
(excl:ics-target-case
(:+ics
#+(version>= 6 0 :pre-alpha 19) (excl::process-code ,char)
#-(version>= 6 0 :pre-alpha 19) ,char)
(:-ics ,char)))))
(excl:ics-target-case
(:+ics (logand ,code
(if (logbitp 15 ,code)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment