>>>> "John" == John Mignault
<jbm(a)panix.com> writes:
John> I've seen this since 21.2.b6. Any attempt to load a URL results in the
John> backtrace below. Any suggestions?
John> Signaling: (wrong-type-argument arrayp nil)
John> font-default-size-for-device(nil)
My fault: Try this patch:
1998-12-30 Martin Buchholz <martin(a)xemacs.org>
* font.el (font-default-object-for-device):
Oops! This `or' can't be replaced by `unless'.
Fixed inability to run w3, among other things.
--- font.el 1998/12/05 16:54:39 1.5.2.2
+++ font.el 1998/12/31 14:40:36
@@ -596,9 +596,10 @@
;;;###autoload
(defun font-default-object-for-device (&optional device)
(let ((font (font-default-font-for-device device)))
- (unless (cdr-safe (assoc font font-default-cache))
- (push (cons font (font-create-object font)) font-default-cache)
- (cdr-safe (assoc font font-default-cache)))))
+ (or (cdr-safe (assoc font font-default-cache))
+ (let ((object (font-create-object font)))
+ (push (cons font object) font-default-cache)
+ object))))
;;;###autoload
(defun font-default-family-for-device (&optional device)
Because this is so important and small, I'll commit it to CVS right
away.
Martin