12:57 a.m.
This is strange. I can't start xemacs-21.2 from within an Xvnc session:
*** Error in XEmacs initialization
(error "can't convert xemacs.frame.emacs.reverseVideo: to a Boolean")
*** Backtrace
really-early-error-handler((error "can't convert
xemacs.frame.emacs.reverseVideo: to a Boolean"))
x-get-resource("reverseVideo" "ReverseVideo" boolean #<x-frame
"emacs" 0x2663>)
# bind (frame)
x-init-frame-faces(#<x-frame "emacs" 0x2663>)
# bind (frame)
init-frame-faces(#<x-frame "emacs" 0x2663>)
# (unwind-protect ...)
# bind (frame-being-created)
make-frame(nil #<x-device on "mharnois.workgroup.net:2.0" 0x2338>)
frame-initialize()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
*** Killing XEmacs
Works fine on my local xserver. And Bill's gtk-xemacs doesn't show the
same problem.
--
Michael D. Harnois, Redeemer Lutheran Church, Washburn, IA
mdharnois(a)home.com aa0bt(a)aa0bt.ampr.org
EDUCATION, n. That which discloses to the wise and disguises from
the foolish their lack of understanding. -- Ambrose Bierce
3:50 a.m.
looks like you have a bogus blank resource specified somewhere, or you've found a bug
in Xvnc.
In either case, here's a patch to make xemacs still start up.
2000-06-11 Ben Wing <ben(a)xemacs.org>
* faces.el ((featurep 'xpm)):
* x-faces.el (x-init-face-from-resources):
* x-faces.el (x-init-frame-faces):
* x-misc.el (x-init-specifier-from-resources):
* x-misc.el (x-get-resource-and-bogosity-check):
* x-misc.el (x-get-resource-and-maybe-bogosity-check):
* x-mouse.el (x-init-pointer-shape):
* x-scrollbar.el (x-init-scrollbar-from-resources):
Add sixth argument to x-get-resource calls so as to issue warnings
rather than errors on bogus arguments.
Index: faces.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/faces.el,v
retrieving revision 1.18.2.16
diff -u -r1.18.2.16 faces.el
--- faces.el 2000/05/09 11:54:48 1.18.2.16
+++ faces.el 2000/06/12 00:36:09
＠＠ -1761,7 +1761,8 ＠＠
(and
(featurep 'x)
(x-get-resource "backgroundToolBarColor"
- "BackgroundToolBarColor" 'string))
+ "BackgroundToolBarColor" 'string
+ nil nil 'warn))
(face-background 'toolbar))))
(purecopy '("foregroundToolBarColor"
＠＠ -1769,7 +1770,8 ＠＠
(and
(featurep 'x)
(x-get-resource "foregroundToolBarColor"
- "ForegroundToolBarColor" 'string))
+ "ForegroundToolBarColor" 'string
+ nil nil 'warn))
(face-foreground 'toolbar))))
)))
Index: x-faces.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/x-faces.el,v
retrieving revision 1.12.2.5
diff -u -r1.12.2.5 x-faces.el
--- x-faces.el 1999/11/27 05:27:30 1.12.2.5
+++ x-faces.el 2000/06/12 00:36:11
＠＠ -492,11 +492,13 ＠＠
(or (null locale) (eq locale 'global)))
(progn
(or fn (setq fn (x-get-resource
- "font" "Font" 'string locale)))
+ "font" "Font" 'string locale nil 'warn)))
(or fg (setq fg (x-get-resource
- "foreground" "Foreground" 'string locale)))
+ "foreground" "Foreground" 'string locale nil
+ 'warn)))
(or bg (setq bg (x-get-resource
- "background" "Background" 'string locale)))))
+ "background" "Background" 'string locale nil
+ 'warn)))))
;;
;; "*cursorColor: foo" is equivalent to setting the background of the
;; text-cursor face.
＠＠ -504,7 +506,8 ＠＠
(if (and (eq (face-name face) 'text-cursor)
(or (null locale) (eq locale 'global)))
(setq bg (or (x-get-resource
- "cursorColor" "CursorColor" 'string locale) bg)))
+ "cursorColor" "CursorColor" 'string locale nil
'warn)
+ bg)))
;; #### should issue warnings? I think this should be
;; done when the instancing actually happens, but I'm not
;; sure how it should actually be dealt with.
＠＠ -735,7 +738,8 ＠＠
;; If reverseVideo was specified, swap the foreground and background
;; of the default and modeline faces.
;;
- (cond ((car (x-get-resource "reverseVideo" "ReverseVideo"
'boolean frame))
+ (cond ((car (x-get-resource "reverseVideo" "ReverseVideo"
'boolean frame
+ nil 'warn))
;; First make sure the modeline has fg and bg, inherited from the
;; current default face - for the case where only one is specified,
;; so that invert-face doesn't do something weird.
Index: x-misc.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/x-misc.el,v
retrieving revision 1.4
diff -u -r1.4 x-misc.el
--- x-misc.el 1998/06/30 06:35:27 1.4
+++ x-misc.el 2000/06/12 00:36:11
＠＠ -66,7 +66,7 ＠＠
(let* ((name (caar resource-list))
(class (cdar resource-list))
(resource
- (x-get-resource name class type locale nil t)))
+ (x-get-resource name class type locale nil 'warn)))
(if resource
(progn
(add-spec-to-specifier specifier resource locale)
＠＠ -75,12 +75,12 ＠＠
(defun x-get-resource-and-bogosity-check (name class type &optional locale)
(x-bogosity-check-resource name class type)
- (x-get-resource name class type locale nil t))
+ (x-get-resource name class type locale nil 'warn))
(defun x-get-resource-and-maybe-bogosity-check (name class type &optional
locale)
(if (eq locale 'global)
(x-bogosity-check-resource name class type))
- (x-get-resource name class type locale nil t))
+ (x-get-resource name class type locale nil 'warn))
;;; x-misc.el ends here
Index: x-mouse.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/x-mouse.el,v
retrieving revision 1.7.2.2
diff -u -r1.7.2.2 x-mouse.el
--- x-mouse.el 1999/05/22 23:02:59 1.7.2.2
+++ x-mouse.el 2000/06/12 00:36:11
＠＠ -100,41 +100,48 ＠＠
(if x-pointers-initialized ; only do it when the first device is created
nil
(set-glyph-image text-pointer-glyph
- (or (x-get-resource "textPointer" "Cursor" 'string device)
+ (or (x-get-resource "textPointer" "Cursor" 'string device nil
'warn)
"xterm"))
(set-glyph-image selection-pointer-glyph
- (or (x-get-resource "selectionPointer" "Cursor" 'string
device)
+ (or (x-get-resource "selectionPointer" "Cursor" 'string
device
+ nil 'warn)
"top_left_arrow"))
(set-glyph-image nontext-pointer-glyph
- (or (x-get-resource "spacePointer" "Cursor" 'string device)
+ (or (x-get-resource "spacePointer" "Cursor" 'string device nil
'warn)
"xterm")) ; was "crosshair"
(set-glyph-image modeline-pointer-glyph
- (or (x-get-resource "modeLinePointer" "Cursor" 'string
device)
+ (or (x-get-resource "modeLinePointer" "Cursor" 'string device
+ nil 'warn)
;; "fleur"))
"sb_v_double_arrow"))
(set-glyph-image gc-pointer-glyph
- (or (x-get-resource "gcPointer" "Cursor" 'string device)
+ (or (x-get-resource "gcPointer" "Cursor" 'string device nil
'warn)
"watch"))
(when (featurep 'scrollbar)
(set-glyph-image
scrollbar-pointer-glyph
- (or (x-get-resource "scrollbarPointer" "Cursor" 'string
device)
+ (or (x-get-resource "scrollbarPointer" "Cursor" 'string
device
+ nil 'warn)
"top_left_arrow")))
(set-glyph-image busy-pointer-glyph
- (or (x-get-resource "busyPointer" "Cursor" 'string device)
+ (or (x-get-resource "busyPointer" "Cursor" 'string device nil
'warn)
"watch"))
(set-glyph-image toolbar-pointer-glyph
- (or (x-get-resource "toolBarPointer" "Cursor" 'string device)
+ (or (x-get-resource "toolBarPointer" "Cursor" 'string device
+ nil 'warn)
"left_ptr"))
(set-glyph-image divider-pointer-glyph
- (or (x-get-resource "dividerPointer" "Cursor" 'string device)
+ (or (x-get-resource "dividerPointer" "Cursor" 'string device
+ nil 'warn)
"sb_h_double_arrow"))
(let ((fg
- (x-get-resource "pointerColor" "Foreground" 'string
device)))
+ (x-get-resource "pointerColor" "Foreground" 'string device
+ nil 'warn)))
(and fg
(set-face-foreground 'pointer fg)))
(let ((bg
- (x-get-resource "pointerBackground" "Background" 'string
device)))
+ (x-get-resource "pointerBackground" "Background" 'string
device
+ nil 'warn)))
(and bg
(set-face-background 'pointer bg)))
(setq x-pointers-initialized t))
Index: x-scrollbar.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/x-scrollbar.el,v
retrieving revision 1.6
diff -u -r1.6 x-scrollbar.el
--- x-scrollbar.el 1998/06/30 06:35:27 1.6
+++ x-scrollbar.el 2000/06/12 00:36:11
＠＠ -80,7 +80,7 ＠＠
;; Now do ScrollBarPlacement.scrollBarPlacement
(let ((case-fold-search t)
(resval (x-get-resource "ScrollBarPlacement" "scrollBarPlacement"
- 'string locale)))
+ 'string locale nil 'warn)))
(cond
((null resval))
((string-match "^top[_-]left$" resval)
Michael Harnois wrote:
This is strange. I can't start xemacs-21.2 from within an Xvnc
session:
*** Error in XEmacs initialization
(error "can't convert xemacs.frame.emacs.reverseVideo: to a Boolean")
*** Backtrace
really-early-error-handler((error "can't convert
xemacs.frame.emacs.reverseVideo: to a Boolean"))
x-get-resource("reverseVideo" "ReverseVideo" boolean #<x-frame
"emacs" 0x2663>)
# bind (frame)
x-init-frame-faces(#<x-frame "emacs" 0x2663>)
# bind (frame)
init-frame-faces(#<x-frame "emacs" 0x2663>)
# (unwind-protect ...)
# bind (frame-being-created)
make-frame(nil #<x-device on "mharnois.workgroup.net:2.0" 0x2338>)
frame-initialize()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
*** Killing XEmacs
Works fine on my local xserver. And Bill's gtk-xemacs doesn't show the
same problem.
--
Michael D. Harnois, Redeemer Lutheran Church, Washburn, IA
mdharnois(a)home.com aa0bt(a)aa0bt.ampr.org
EDUCATION, n. That which discloses to the wise and disguises from
the foolish their lack of understanding. -- Ambrose Bierce
--
Ben
In order to save my hands, I am cutting back on my mail. I also write
as succinctly as possible -- please don't be offended. If you send me
mail, you _will_ get a response, but please be patient, especially for
XEmacs-related mail. If you need an immediate response and it is not
apparent in your message, please say so. Thanks for your understanding.
See also http://www.666.com/ben/chronic-pain/
9272
days inactive
9273
days old
1 comments
2 participants
participants (2)
-
Ben Wing -
Michael Harnois