Folks, this isn't my clipboard hang I reported April 2. I believe
that has been "solved" by turning off clipboard use in the killing
customize page.
This xemacs session had been running for a few days with lots of
edits/compile/debug cycles and a few CVS checkins, using ediff, etc.
When I went to the terminal window to kill xemacs I found a lot X11
errors which I'll attach at the end of this message. Here is the
backtrace xemacs gave me.
Lisp backtrace follows:
make-font-instance("-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"
#<x-device on "rules:0.0" 0x1d49> t)
# bind (device name)
try-font-name("-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*" #<x-device
on "rules:0.0" 0x1d49>)
# bind (device font)
x-make-font-italic(#<font-instance
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*" on #<x-device on
"rules:0.0" 0x1d49> 0x580000f 0x1d63> #<x-device on
"rules:0.0" 0x1d49>)
# bind (sp-inst tag-set inst-pair first-valid result func inst-list device sp)
frob-face-property-1(#<font-specifier global=((x) .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*") 0x1434f> #<x-device on
"rules:0.0" 0x1d49> (((x) .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")) x-make-font-italic)
# bind (device)
#<compiled-function (device) "...(13)" [func inst-list sp-arg device-tags
device device-matches-specifier-tag-set-p frob-face-property-1] 5>(#<x-device on
"rules:0.0" 0x1d49>)
mapcar(#<compiled-function (device) "...(13)" [func inst-list sp-arg
device-tags device device-matches-specifier-tag-set-p frob-face-property-1] 5>
(#<x-device on "rules:0.0" 0x1d49>))
# bind (device func inst-list locale sp-arg)
#<compiled-function (sp-arg locale inst-list func) "...(49)" [sp-arg
device-tags new-result result locale device dfw-device device-matches-specifier-tag-set-p
frob-face-property-1 mapcar #<compiled-function ... "...(13)" ... 5>
device-list nil #<compiled-function ... "...(39)" ... 6>
add-spec-list-to-specifier inst-list func sp] 6>(#<font-specifier global=((x) .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*") 0x1434f> global (((x) .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")) x-make-font-italic)
# bind (ms-this-spec ms-specs ms-result ms-maparg ms-locale ms-func ms-specifier)
map-specifier(#<font-specifier global=((x) .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*") 0x1434f>
#<compiled-function (sp-arg locale inst-list func) "...(49)" [sp-arg
device-tags new-result result locale device dfw-device device-matches-specifier-tag-set-p
frob-face-property-1 mapcar #<compiled-function ... "...(13)" ... 5>
device-list nil #<compiled-function ... "...(39)" ... 6>
add-spec-list-to-specifier inst-list func sp] 6> nil x-make-font-italic)
# bind (sp temp-sp tags locale device-tags func property face)
frob-face-property(man-italic font x-make-font-italic (x) nil (custom))
#<compiled-function nil "...(45)" [tags locale face featurep gtk
frob-face-property font gtk-make-font-italic (gtk) x x-make-font-italic (x) mswindows
mswindows-make-font-italic (mswindows)] 7>()
# bind (inst domain change-it spec-list the-locale standard-face-mapping ws-thunk
tty-thunk frobbed-face unfrobbed-face tags locale face)
frob-face-font-2(man-italic nil (custom) default italic #<compiled-function nil
"...(14)" [tags locale face featurep tty set-face-underline-p t] 6>
#<compiled-function nil "...(45)" [tags locale face featurep gtk
frob-face-property font gtk-make-font-italic (gtk) x x-make-font-italic (x) mswindows
mswindows-make-font-italic (mswindows)] 7> (([default] . [italic]) ([bold] .
[bold-italic]) ([italic] . t) ([bold-italic] . t)))
# bind (tags locale face)
make-face-italic(man-italic nil (custom))
# bind (tags frame value face)
custom-set-face-italic(man-italic t nil (custom))
funcall(custom-set-face-italic man-italic t nil (custom))
# (condition-case ... . ((error)))
# bind (fun value name atts tags frame face)
face-custom-attributes-set(man-italic nil (custom) :italic t)
apply(face-custom-attributes-set man-italic nil (custom) (:italic t))
# bind (display atts tags frame spec face)
face-display-set(man-italic ((t (:italic t))) nil (custom))
# bind (value frames frame args doc spec face)
custom-declare-face(man-italic ((t (:italic t))) "Manual italics face" :group
man)
byte-code("..." [Manual-mode-map current-load-list m custom-declare-face
man-italic ((t ...)) "Manual italics face" :group man man-bold ((t ...))
"Manual bold face" man-heading ((t ...)) "Manual headings face"
man-xref ((t ...)) "Manual xrefs face" boundp make-sparse-keymap set-keymap-name
define-key "l" Manual-last-page button2 Manual-follow-xref button3
Manual-popup-menu] 6)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("man" nil nil nil nil nil)
# bind (nosuffix nomessage noerror file)
load("man" nil nil nil)
apply(load ("man" nil nil nil))
# bind (inhibit-file-name-handlers inhibit-file-name-operation args op)
dired-handler-fn(load "man" nil nil nil)
load-internal("man" nil nil nil nil nil)
# bind (nosuffix nomessage noerror file)
load("man" nil nil nil)
# (unwind-protect ...)
command-execute(manual-entry t)
# bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
execute-extended-command(nil)
# bind (command-debug-status)
call-interactively(execute-extended-command)
# (condition-case ... . error)
# (catch top-level ...)
Anyone seen anything like this?
Oh yes, before I forget:
OS HP-UX 10.20 patched up to HP Dec. 2001 patch bundle
Motif 1.2
Compiled with HP's ansi C compiler +O3.
gary
Show replies by date