I get this in ben-mule-21-5 on native Windows during
(require 'un-define)
Signaling: (invalid-operation "Cannot redefine existing coding system"
utf-8-unix)
make-coding-system(utf-8-unix ccl "UTF-8 coding system" (decode
utf-8-unix-stream-decoder encode utf-8-unix-stream-encoder mnemonic "u" eol-type
t))
#<compiled-function (y) "...(47)" [x y make-coding-system ccl 2 decode 3
encode 4 mnemonic char-to-string eol-type t coding-system-put alias-coding-systems]
12>((utf-8-unix ?u "UTF-8 coding system" utf-8-unix-stream-decoder
utf-8-unix-stream-encoder ((pre-write-conversion . un-define-pre-write-conversion)
(post-read-conversion . un-define-post-read-conversion) (mime-charset . utf-8)
(safe-charsets ascii latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4
cyrillic-iso8859-5 greek-iso8859-7 hebrew-iso8859-8 latin-iso8859-9 ipa japanese-jisx0208
japanese-jisx0212 chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7 chinese-big5-1
chinese-big5-2 korean-ksc5601 latin-jisx0201 katakana-jisx0201 thai-tis620 ethiopic
vietnamese-viscii-lower vietnamese-viscii-upper indian-2-column)) unix))
mapcar(#<compiled-function (y) "...(47)" [x y make-coding-system ccl 2
decode 3 encode 4 mnemonic char-to-string eol-type t coding-system-put
alias-coding-systems] 12> ((utf-8-unix ?u "UTF-8 coding system"
utf-8-unix-stream-decoder utf-8-unix-stream-encoder (... ... ... ...) unix) (utf-8-dos ?u
"UTF-8 coding system" utf-8-dos-stream-decoder utf-8-dos-stream-encoder (... ...
... ...) dos) (utf-8-mac ?u "UTF-8 coding system" utf-8-mac-stream-decoder
utf-8-mac-stream-encoder (... ... ... ...) mac) (utf-8 ?u "UTF-8 coding system"
utf-8-unix-stream-decoder utf-8-unix-stream-encoder (... ... ... ...) [utf-8-unix
utf-8-dos utf-8-mac])))
#<compiled-function (x) "...(6)" [x mapcar #<compiled-function ...
"...(47)" ... 12>] 3>((utf-8 (utf-8-unix ?u "UTF-8 coding
system" utf-8-unix-stream-decoder utf-8-unix-stream-encoder (... ... ... ...) unix)
(utf-8-dos ?u "UTF-8 coding system" utf-8-dos-stream-decoder
utf-8-dos-stream-encoder (... ... ... ...) dos) (utf-8-mac ?u "UTF-8 coding
system" utf-8-mac-stream-decoder utf-8-mac-stream-encoder (... ... ... ...) mac)
(utf-8 ?u "UTF-8 coding system" utf-8-unix-stream-decoder
utf-8-unix-stream-encoder (... ... ... ...) [utf-8-unix utf-8-dos utf-8-mac])))
mapcar(#<compiled-function (x) "...(6)" [x mapcar #<compiled-function
... "...(47)" ... 12>] 3> ((utf-8 (utf-8-unix ?u "UTF-8 coding
system" utf-8-unix-stream-decoder utf-8-unix-stream-encoder ... unix) (utf-8-dos ?u
"UTF-8 coding system" utf-8-dos-stream-decoder utf-8-dos-stream-encoder ... dos)
(utf-8-mac ?u "UTF-8 coding system" utf-8-mac-stream-decoder
utf-8-mac-stream-encoder ... mac) (utf-8 ?u "UTF-8 coding system"
utf-8-unix-stream-decoder utf-8-unix-stream-encoder ... ...)) (utf-8-ws (utf-8-ws-unix ?u
"UTF-8 with signature coding system" utf-8-unix-stream-decoder
utf-8-ws-unix-stream-encoder ... unix) (utf-8-ws-dos ?u "UTF-8 with signature coding
system" utf-8-dos-stream-decoder utf-8-ws-dos-stream-encoder ... dos) (utf-8-ws-mac
?u "UTF-8 with signature coding system" utf-8-mac-stream-decoder
utf-8-ws-mac-stream-encoder ... mac) (utf-8-ws ?u "UTF-8 with signature coding
system" utf-8-unix-stream-decoder utf-8-ws-unix-stream-encoder ... ...)) (utf-16-le
(utf-16-le-uni!
!
!
x ?U "UTF-16 Little Endian coding system" utf-16-le-unix-stream-decoder
utf-16-le-unix-stream-encoder ... unix) (utf-16-le-dos ?U "UTF-16 Little Endian
coding system" utf-16-le-dos-stream-decoder utf-16-le-dos-stream-encoder ... dos)
(utf-16-le-mac ?U "UTF-16 Little Endian coding system"
utf-16-le-mac-stream-decoder utf-16-le-mac-stream-encoder ... mac) (utf-16-le ?U
"UTF-16 Little Endian coding system(Line serparator is U+2028)"
utf-16-le-ul-stream-decoder utf-16-le-ul-stream-encoder ... ...)) (utf-16-le-no-signature
(utf-16-le-no-signature-unix ?U "Same as utf-16-le but generate no Unicode
signature." utf-16-le-unix-stream-decoder utf-16-le-no-signature-unix-stream-encoder
... unix) (utf-16-le-no-signature-dos ?U "Same as utf-16-le but generate no Unicode
signature." utf-16-le-dos-stream-decoder utf-16-le-no-signature-dos-stream-encoder
... dos) (utf-16-le-no-signature-mac ?U "Same as utf-16-le but generate no Unicode
signature." utf-16-le-mac-stream-decoder utf-16-le-no-sig!
!
!
nature-mac-stream-encoder ... mac) (utf-16-le-no-signature ?U "Same as utf-16-le but
generate no Unicode signature." utf-16-le-ul-stream-decoder
utf-16-le-no-signature-ul-stream-encoder ... ...)) (utf-16-be (utf-16-be-unix ?U
"UTF-16 Big Endian coding system" utf-16-be-unix-stream-decoder
utf-16-be-unix-stream-encoder ... unix) (utf-16-be-dos ?U "UTF-16 Big Endian coding
system" utf-16-be-dos-stream-decoder utf-16-be-dos-stream-encoder ... dos)
(utf-16-be-mac ?U "UTF-16 Big Endian coding system" utf-16-be-mac-stream-decoder
utf-16-be-mac-stream-encoder ... mac) (utf-16-be ?U "UTF-16 Big Endian coding
system(Line serparator is U+2028)" utf-16-be-ul-stream-decoder
utf-16-be-ul-stream-encoder ... ...)) (utf-16-be-no-signature (utf-16-be-no-signature-unix
?U "Same as utf-16-be but generate no Unicode signature."
utf-16-be-unix-stream-decoder utf-16-be-no-signature-unix-stream-encoder ... unix)
(utf-16-be-no-signature-dos ?U "Same as utf-16-be but generate no Unicode
signature." ut!
!
!
f-16-be-dos-stream-decoder utf-16-be-no-signature-dos-stream-encoder ... dos)
(utf-16-be-no-signature-mac ?U "Same as utf-16-be but generate no Unicode
signature." utf-16-be-mac-stream-decoder utf-16-be-no-signature-mac-stream-encoder
... mac) (utf-16-be-no-signature ?U "Same as utf-16-be but generate no Unicode
signature." utf-16-be-ul-stream-decoder utf-16-be-no-signature-ul-stream-encoder ...
...)) (utf-7 (utf-7-unix ?7 "UTF-7 coding system. Output Set O characters
directly." utf-7-unix-stream-decoder utf-7-unix-stream-encoder ... unix) (utf-7-dos
?7 "UTF-7 coding system. Output Set O characters directly."
utf-7-dos-stream-decoder utf-7-dos-stream-encoder ... dos) (utf-7-mac ?7 "UTF-7
coding system. Output Set O characters directly." utf-7-mac-stream-decoder
utf-7-mac-stream-encoder ... mac) (utf-7 ?7 "UTF-7 coding system. Output Set O
characters directly." utf-7-unix-stream-decoder utf-7-unix-stream-encoder ... ...))
(utf-7-safe (utf-7-safe-unix ?7 "UTF-7 coding system!
!
!
. Shift Set O characters." utf-7-unix-stream-decoder utf-7-safe-unix-stream-encoder
... unix) (utf-7-safe-dos ?7 "UTF-7 coding system. Shift Set O characters."
utf-7-dos-stream-decoder utf-7-safe-dos-stream-encoder ... dos) (utf-7-safe-mac ?7
"UTF-7 coding system. Shift Set O characters." utf-7-mac-stream-decoder
utf-7-safe-mac-stream-encoder ... mac) (utf-7-safe ?7 "UTF-7 coding system. Shift
Set O characters." utf-7-unix-stream-decoder utf-7-safe-unix-stream-encoder ...
...))))
byte-code("..." [unicode-basic-translation-rule mucs-ccl-facility-alist
mucs-current-package category-list tbls tbel un-define put utf-8-unix-stream-encoder
mucs-conv-type stream ((\ ts=unicode-ascii-translation-rule-tts-char-1-encode-1-table-1 .
...) (\ ts=unicode-latin-iso8859-1-translation-rule-tts-char-1-encode-2-table-1 . ...) (\
ts=unicode-latin-iso8859-2-translation-rule-tts-char-1-encode-3-table-1 . ...) (\
ts=unicode-latin-iso8859-3-translation-rule-tts-char-1-encode-4-table-1 . ...) (\
ts=unicode-latin-iso8859-4-translation-rule-tts-char-1-encode-5-table-1 . ...) (\
ts=unicode-cyrillic-iso8859-5-translation-rule-tts-char-1-encode-6-table-1 . ...) (\
ts=unicode-greek-iso8859-7-translation-rule-tts-char-1-encode-7-table-1 . ...) (\
ts=unicode-hebrew-iso8859-8-translation-rule-tts-char-1-encode-8-table-1 . ...) (\
ts=unicode-latin-iso8859-9-translation-rule-tts-char-1-encode-9-table-1 . ...) (\
ts=unicode-latin-iso8859-15-translation-rule-tts-char-1-encode-10-table-1 !
!
!
. ...) (\ ts=unicode-ipa-translation-rule-tts-char-1-encode-11-table-1 . ...) (\
ts=unicode-japanese-jisx0208-translation-rule-tts-char-1-encode-12-table-1 . ...) (\
ts=unicode-japanese-jisx0208-translation-rule-tts-char-1-encode-12-table-2 . ...) (\
ts=unicode-japanese-jisx0212-translation-rule-tts-char-1-encode-13-table-1 . ...) (\
ts=unicode-japanese-jisx0212-translation-rule-tts-char-1-encode-13-table-2 . ...) (\
ts=unicode-japanese-jisx0212-translation-rule-tts-char-1-encode-13-table-3 . ...) (\
ts=unicode-chinese-gb2312-translation-rule-tts-char-1-encode-14-table-1 . ...) (\
ts=unicode-chinese-gb2312-translation-rule-tts-char-1-encode-14-table-2 . ...) (\
ts=unicode-chinese-cns11643-1-translation-rule-tts-char-1-encode-15-table-1 . ...) (\
ts=unicode-chinese-cns11643-1-translation-rule-tts-char-1-encode-15-table-2 . ...) (\
ts=unicode-chinese-cns11643-2-translation-rule-tts-char-1-encode-16-table-1 . ...) (\
ts=unicode-chinese-cns11643-3-translation-rule-tts-char-1-enco!
!
!
de-17-table-1 . ...) (\
ts=unicode-chinese-cns11643-4-translation-rule-tts-char-1-encode-18-table-1 . ...) (\
ts=unicode-chinese-cns11643-5-translation-rule-tts-char-1-encode-19-table-1 . ...) (\
ts=unicode-chinese-cns11643-6-translation-rule-tts-char-1-encode-20-table-1 . ...) (\
ts=unicode-chinese-cns11643-7-translation-rule-tts-char-1-encode-21-table-1 . ...) (\
ts=unicode-chinese-big5-1-translation-rule-tts-char-1-encode-22-table-1 . ...) (\
ts=unicode-chinese-big5-2-translation-rule-tts-char-1-encode-23-table-1 . ...) (\
ts=unicode-korean-ksc5601-translation-rule-tts-char-1-encode-24-table-1 . ...) (\
ts=unicode-korean-ksc5601-translation-rule-tts-char-1-encode-24-table-2 . ...) (\
ts=unicode-latin-jisx0201-translation-rule-tts-char-1-encode-25-table-1 . ...) (\
ts=unicode-katakana-jisx0201-translation-rule-tts-char-1-encode-26-table-1 . ...) (\
ts=unicode-thai-tis620-translation-rule-tts-char-1-encode-27-table-1 . ...) (\
ts=unicode-ethiopic-translation-rule-tts-char-1-e!
!
!
ncode-28-table-1 . ...) (\
ts=unicode-vietnamese-viscii-lower-translation-rule-tts-char-1-encode-29-table-1 . ...) (\
ts=unicode-vietnamese-viscii-upper-translation-rule-tts-char-1-encode-30-table-1 . ...)
(tae-project-all-to-65533 . ...)) nil register-code-conversion-map
unicode-basic-stream-translation-rule-tts-char-1-encode-32 table-set-symbol-list
(unicode-basic-translation-rule-tts-char-1-encode-31 tae-project-all-to-65533)
table-set-reference-count 1
unicode-vietnamese-viscii-upper-translation-rule-tts-char-1-encode-30 (\
ts=unicode-vietnamese-viscii-upper-translation-rule-tts-char-1-encode-30-table-1) 2
unicode-vietnamese-viscii-lower-translation-rule-tts-char-1-encode-29 (\
ts=unicode-vietnamese-viscii-lower-translation-rule-tts-char-1-encode-29-table-1)
unicode-ethiopic-translation-rule-tts-char-1-encode-28 (\
ts=unicode-ethiopic-translation-rule-tts-char-1-encode-28-table-1)
unicode-thai-tis620-translation-rule-tts-char-1-encode-27 (\
ts=unicode-thai-tis620-translati!
!
!
on-rule-tts-char-1-encode-27-table-1)
unicode-katakana-jisx0201-translation-rule-tts-char-1-encode-26 (\
ts=unicode-katakana-jisx0201-translation-rule-tts-char-1-encode-26-table-1)
unicode-latin-jisx0201-translation-rule-tts-char-1-encode-25 (\
ts=unicode-latin-jisx0201-translation-rule-tts-char-1-encode-25-table-1)
unicode-korean-ksc5601-translation-rule-tts-char-1-encode-24 (\
ts=unicode-korean-ksc5601-translation-rule-tts-char-1-encode-24-table-1 \
ts=unicode-korean-ksc5601-translation-rule-tts-char-1-encode-24-table-2)
unicode-chinese-big5-2-translation-rule-tts-char-1-encode-23 (\
ts=unicode-chinese-big5-2-translation-rule-tts-char-1-encode-23-table-1)
unicode-chinese-big5-1-translation-rule-tts-char-1-encode-22 (\
ts=unicode-chinese-big5-1-translation-rule-tts-char-1-encode-22-table-1)
unicode-chinese-cns11643-7-translation-rule-tts-char-1-encode-21 (\
ts=unicode-chinese-cns11643-7-translation-rule-tts-char-1-encode-21-table-1)
unicode-chinese-cns11643-6-translation-rule!
!
!
-tts-char-1-encode-20 (\
ts=unicode-chinese-cns11643-6-translation-rule-tts-char-1-encode-20-table-1)
unicode-chinese-cns11643-5-translation-rule-tts-char-1-encode-19 (\
ts=unicode-chinese-cns11643-5-translation-rule-tts-char-1-encode-19-table-1)
unicode-chinese-cns11643-4-translation-rule-tts-char-1-encode-18 (\
ts=unicode-chinese-cns11643-4-translation-rule-tts-char-1-encode-18-table-1)
unicode-chinese-cns11643-3-translation-rule-tts-char-1-encode-17 (\
ts=unicode-chinese-cns11643-3-translation-rule-tts-char-1-encode-17-table-1)
unicode-chinese-cns11643-2-translation-rule-tts-char-1-encode-16 (\
ts=unicode-chinese-cns11643-2-translation-rule-tts-char-1-encode-16-table-1) ...] 285)
load-internal("c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc" nil t t binary)
efs-real-load("c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc" nil t t)
load("c:\\Program Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc"
nil t t)
apply(load ("c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc" nil t t))
dired-handler-fn(load "c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc" nil t t)
efs-real-load("c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc" nil t t)
load("c:\\Program Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc"
nil t nil)
efs-real-require(un-define "c:\\Program
Files\\XEmacs\\mule-packages\\lisp\\mule-ucs\\un-define.elc")
require(un-define)
eval((require (quote un-define)))
eval-interactive((require (quote un-define)))
eval-last-sexp(nil)
call-interactively(eval-last-sexp)
When trying to
eval-buffer in un-define.el I get
Symbol's value as variable is void: unicode-ignore-characters
This is caused on
(require 'un-trbase)
where
--
Adrian Aichner
mailto:adrianï¼ xemacs.org
http://www.xemacs.org/