4:51 a.m.
I just compiled 21.5.7. When I load it up, the default font is not a courier new, but
rather Lucidia. Furthermore, after I use the font menu to chnge to courier new, I get a
loading error:
(1) (initialization/error) An error has occurred while loading
d:\home\matthew\.xemacs\init.el:
Assertion failed: (equal enabled-behavior-list val)
Backtrace follows:
signal(cl-assertion-failed ((equal enabled-behavior-list val)))
(or (equal enabled-behavior-list val) (signal (quote cl-assertion-
failed) (list (quote (equal enabled-behavior-list val)))))
(progn (or (equal enabled-behavior-list val) (signal (quote cl-
assertion-failed) (list (quote (equal enabled-behavior-list val)))))
nil)
(assert (equal enabled-behavior-list val))
# bind (enable-list disable-list old-val)
(let* ((old-val enabled-behavior-list) (disable-list (set-difference
old-val val)) (enable-list (set-difference val old-val))) (dolist (b
disable-list) (disable-behavior b t)) (dolist (b enable-list)
(enable-behavior b t)) (assert (equal enabled-behavior-list val)))
(if within-behavior-enabling-disabling (set sym val) (let* ((old-val
enabled-behavior-list) (disable-list (set-difference old-val val))
(enable-list (set-difference val old-val))) (dolist (b disable-list)
(disable-behavior b t)) (dolist (b enable-list) (enable-behavior b
t)) (assert (equal enabled-behavior-list val))))
# bind (val sym)
(lambda (sym val) (if within-behavior-enabling-disabling (set sym
val) (let* ((old-val enabled-behavior-list) (disable-list (set-
difference old-val val)) (enable-list (set-difference val old-val)))
(dolist (b disable-list) (disable-behavior b t)) (dolist (b enable-
list) (enable-behavior b t)) (assert (equal enabled-behavior-list
val)))))(enabled-behavior-list (scroll-in-place resize-minibuffer
recent-files mwheel mouse-avoidance jka-compr efs))
# bind (set comment requests now value symbol entry immediate args
theme)
custom-theme-set-variables(user (buffers-menu-submenus-for-groups-p
t) (buffers-tab-max-size nil) (column-number-mode t) (complex-
buffers-menu-p t) (cperl-font-lock t) (cperl-syntaxify-by-font-lock
t) (cperl-use-syntax-table-text-property t) (cperl-use-syntax-table-
text-property-for-tags t) (delete-key-deletes-forward nil) (ediff-
use-toolbar-p t) (ediff-window-setup-function (quote ediff-setup-
windows-multiframe)) (efs-ftp-program-name
"C:/WINDOWS/system32/ftp.exe") (enabled-behavior-list (quote (scroll-
in-place resize-minibuffer recent-files mwheel mouse-avoidance jka-
compr efs))))
apply(custom-theme-set-variables user ((buffers-menu-submenus-for-
groups-p t) (buffers-tab-max-size nil) (column-number-mode t)
(complex-buffers-menu-p t) (cperl-font-lock t) (cperl-syntaxify-by-
font-lock t) (cperl-use-syntax-table-text-property t) (cperl-use-
syntax-table-text-property-for-tags t) (delete-key-deletes-forward
nil) (ediff-use-toolbar-p t) (ediff-window-setup-function (quote
ediff-setup-windows-multiframe)) (efs-ftp-program-name
"C:/WINDOWS/system32/ftp.exe") (enabled-behavior-list (quote (scroll-
in-place resize-minibuffer recent-files mwheel mouse-avoidance jka-
compr efs)))))
# bind (args)
custom-set-variables((buffers-menu-submenus-for-groups-p t) (buffers-
tab-max-size nil) (column-number-mode t) (complex-buffers-menu-p t)
(cperl-font-lock t) (cperl-syntaxify-by-font-lock t) (cperl-use-
syntax-table-text-property t) (cperl-use-syntax-table-text-property-
for-tags t) (delete-key-deletes-forward nil) (ediff-use-toolbar-p t)
(ediff-window-setup-function (quote ediff-setup-windows-multiframe))
(efs-ftp-program-name "C:/WINDOWS/system32/ftp.exe") (enabled-
behavior-list (quote (scroll-in-place resize-minibuffer recent-files
mwheel mouse-avoidance jka-compr efs))))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("d:\\home\\matthew\\.xemacs\\custom.el" t t t raw-
text)
# bind (path handler filename nosuffix nomessage noerror file)
load("d:\\home\\matthew\\.xemacs\\custom.el" t t t)
load-user-init-file()
#<compiled-function nil "...(10)" [init-file-had-error load-user-
init-file-p load-user-init-file nil] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function
(__load_init_file_arg__) "...(26)" [init-file-had-error user-init-
file __load_init_file_arg__ errstr error-message-string message
"Error in init file: %s" lwarn initialization error "An error has
occurred while loading %s:\n\n%s\n\nBacktrace follows:\n\n%s\n\nTo
ensure normal operation, you should investigate the cause of the
error\nin your initialization file and remove it. Use the `-debug-
init' option\nto XEmacs to enter the debugger when the error occurs
and investigate the\nexact problem." backtrace-in-condition-handler-
eliminating-handler t] 8> #<compiled-function nil "...(10)" [init-
file-had-error load-user-init-file-p load-user-init-file nil] 2>)
# (condition-case ... . ((error)))
# bind (debug-on-error debug-on-error-from-init-file debug-on-error-
should-be-set debug-on-error-initial)
load-init-file()
# bind (command-line-args-left)
command-line()
# (condition-case ... . ((t (byte-code " Â?" [error-data data nil]
1))))
# bind (error-data)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
To ensure normal operation, you should investigate the cause of the
error
in your initialization file and remove it. Use the `-debug-init'
option
to XEmacs to enter the debugger when the error occurs and
investigate the
exact problem.
Given that I have not changed my init files, what could have changed and does anyone have
suggestions on how to properly fix it? This didn't happen when compiled on Solaris.
--
Matthew
6:11 a.m.
>>>> "Matthew" == Matthew O Persico
<persicom(a)acedsl.com> writes:
Matthew> I just compiled 21.5.7. When I load it up, the default
Matthew> font is not a courier new, but rather Lucidia.
This is probably because Ben put in a really big patch to the font
handling code. ISTR he changed some defaults.
Matthew> Furthermore, after I use the font menu to chnge
Matthew> to courier new, I get a loading error:
Matthew> Assertion failed: (equal enabled-behavior-list val)
I think this is a known bug. Due to a bureaucratic snafu, my fault,
the patch got applied after the release. Why changing fonts triggers
this, I'm not sure....
Either update to current CVS or apply the following patch.
Index: behavior.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/behavior.el,v
retrieving revision 1.2
diff -u -r1.2 behavior.el
--- behavior.el 2002/03/31 08:27:23 1.2
+++ behavior.el 2002/06/27 20:45:29
＠＠ -59,7 +59,8 ＠＠
(disable-behavior b t))
(dolist (b enable-list)
(enable-behavior b t))
- (assert (equal enabled-behavior-list val)))))
+ (assert (equal (sort (copy-sequence enabled-behavior-list) 'string-lessp)
+ (sort (copy-sequence val) 'string-lessp))))))
:type '(repeat (symbol :tag "Behavior"))
:group 'behaviors)
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
My nostalgia for Icon makes me forget about any of the bad things. I don't
have much nostalgia for Perl, so its faults I remember. Scott Gilbert c.l.py
6:53 a.m.
HTML mail morphed to text/plain by list master. HTML-only mail is
filtered and is normally dumped in the bit bucket....
On 04 Jul 2002 14:11:50 +0900, Stephen J. Turnbull wrote:
>>>>> "Matthew" >
Matthew> I just compiled 21.5.7. When I load it up, the default
Matthew> font is not a courier new, but rather Lucidia.
This is probably because Ben put in a really big patch to the font
handling code. ISTR he changed some defaults.
Matthew> Furthermore, after I use the font menu to chnge
Matthew> to courier new, I get a loading error:
Matthew> Assertion failed: (equal enabled-behavior-list val)
I think this is a known bug. Due to a bureaucratic snafu, my fault,
the patch got applied after the release. Why changing fonts triggers
this, I'm not sure....
Either update to current CVS or apply the following patch.
Index: behavior.el
>retrieving revision 1.2
diff -u -r1.2 behavior.el
--- behavior.el 2002/03/31 08:27:23 1.2
+++ behavior.el 2002/06/27 20:45:29
＠＠ -59,7 +59,8 ＠＠
(disable-behavior b t))
(dolist (b enable-list)
(enable-behavior b t))
- (assert (equal enabled-behavior-list val)))))
+ (assert (equal (sort (copy-sequence enabled-behavior-list)
'string-lessp)
+ (sort (copy-sequence val) 'string-lessp))))))
:type '(repeat (symbol :tag "Behavior"))
:group 'behaviors)
Applied patch and still got the behavior. I did a little
experimentation. Turns out that the error only happens if more than
one Behavior is set from the Options/Behaviors menu. From my
custom.el:
OK:
(custom-set-variables
'(enabled-behavior-list '(recent-files)
))
(custom-set-faces
'(default ((t (:size "8pt" :family "Courier New"))) t))
OK:
(custom-set-variables
'(enabled-behavior-list '(mwheel)
))
(custom-set-faces
'(default ((t (:size "8pt" :family "Courier New"))) t))
CRASH:
(custom-set-variables
'(enabled-behavior-list '(recent-files mwheel)
))
(custom-set-faces
'(default ((t (:size "8pt" :family "Courier New"))) t))
Oh, by the way, using the Options/Font and Options/Font Size menus, if
you change the font \, then change the size, the font reverts to
Lucida Console, i.e. the default.
--
Matthew O. Persico
6:58 a.m.
On 04 Jul 2002 14:11:50 +0900, Stephen J. Turnbull wrote:
>>>>> "Matthew" == Matthew O Persico
<persicom(a)acedsl.com> writes:
Matthew> I just compiled 21.5.7. When I load it up, the default
Matthew> font is not a courier new, but rather Lucidia.
This is probably because Ben put in a really big patch to the font
handling code. ISTR he changed some defaults.
Yep, you recall correctly:
$ grep Lucida $(find . -name '*.el')
./msw-font-menu.el:;;; Lucida Console:Regular:10
./x-faces.el: ;; Some who have LucidaTypewriter think it's a better
font than Courier
I'm changing that RIGHT NOW! :-)
--
Matthew O. Persico
7:07 a.m.
On Thu, 4 Jul 2002 01:58:36 -0400, Matthew O. Persico wrote:
On 04 Jul 2002 14:11:50 +0900, Stephen J. Turnbull wrote:
>>>>>> "Matthew" == Matthew O Persico
<persicom(a)acedsl.com> writes:
>
>Matthew> I just compiled 21.5.7. When I load it up, the default
>Matthew> font is not a courier new, but rather Lucidia.
>
>This is probably because Ben put in a really big patch to the font
>handling code. ISTR he changed some defaults.
Yep, you recall correctly:
$ grep Lucida $(find . -name '*.el')
./msw-font-menu.el:;;; Lucida Console:Regular:10
./x-faces.el: ;; Some who have LucidaTypewriter think it's a better
font than Courier
I'm changing that RIGHT NOW! :-)
Um, that won't help - those are all
comments. :-(
Another grep of the source code directory reveals:
$ find . -type f | xargs grep Lucida
./CHANGES-beta: -- Change: default MS Windows font to Lucida Console, increase
./info/xemacs-faq.info-5: (set-face-font 'default "Lucida
Console:Regular:10")
./lisp/msw-font-menu.el:;;; Lucida Console:Regular:10
./lisp/x-faces.el: ;; Some who have LucidaTypewriter think it's a better font than
Courier,
./man/xemacs-faq.texi: (set-face-font 'default "Lucida
Console:Regular:10")
Binary file ./nt/obj/faces.obj matches
Binary file ./nt/obj/xemacs.res matches
./nt/PROBLEMS: (set-face-font 'default "Lucida
Console:Regular:10::Western")
./src/ChangeLog: Set default MS Windows font to Lucida Console (same size as
./src/faces.c: /* Use Lucida Console rather than Courier New if it exists-- the
./src/faces.c: build_string ("Lucida
Console:Regular:10::")),
./src/objects-msw.c: * Lucida Console:Regular:10
Binary file ./src/temacs.exe matches
Binary file ./src/temacs.ilk matches
./src/temacs.map: 0002:000199d8 ??_C＠_0BM＠LMNC＠Lucida?5Console?3Regular?31
0?3?3?$AA＠ 014099d8 faces.obj
Binary file ./src/temacs.pdb matches
Binary file ./src/xemacs.exe matches
Binary file ./src/xemacs.ilk matches
./tests/gtk/gtk-test.el: (make-font :family '("LucidaBright"
"Utopia" "Helvetica" "fixed")
For my purposes, I am fixing src/faces.c only and recompiling
--
Matthew O. Persico
--
Matthew O. Persico
8:47 a.m.
"Matthew O. Persico" <persicom(a)acedsl.com> writes:
For my purposes, I am fixing src/faces.c only and recompiling
So did I...
--
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.
4:46 a.m.
"Stephen J. Turnbull" <stephen(a)xemacs.org> writes:
- (assert (equal enabled-behavior-list val)))))
+ (assert (equal (sort (copy-sequence enabled-behavior-list) 'string-lessp)
+ (sort (copy-sequence val) 'string-lessp))))))
What's the use of living in a world that doesn't appreciate the beauty
of `set-exclusive-or'? But seriously, an advantage of my version is
that it didn't cons in the (hopefully) more common case of the
assertion being true. Your version is faster for large lists.
BTW, you might want to use copy-list, a slightly faster/more
specialized builtin in preference to copy-sequence.
6:18 a.m.
>>>> "Hrvoje" == Hrvoje Niksic
<hniksic(a)xemacs.org> writes:
Hrvoje> What's the use of living in a world that doesn't
Hrvoje> appreciate the beauty of `set-exclusive-or'?
I remembered your post but not the content, and couldn't find it
quickly, that's all.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
My nostalgia for Icon makes me forget about any of the bad things. I don't
have much nostalgia for Perl, so its faults I remember. Scott Gilbert c.l.py
7960
days inactive
7961
days old
7 comments
4 participants
participants (4)
-
Frank Schmitt -
Hrvoje Niksic -
Matthew O. Persico -
Stephen J. Turnbull