From xemacs-m  Fri Feb  7 14:57:18 1997
Received: from cdc.noaa.gov (manager.Colorado.EDU [128.138.218.210])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA09164
	for <xemacs-beta@xemacs.org>; Fri, 7 Feb 1997 14:57:17 -0600 (CST)
Received: from suomi by cdc.noaa.gov (SMI-8.6/SMI-SVR4)
	id NAA16371; Fri, 7 Feb 1997 13:57:08 -0700
Received: by suomi (SMI-8.6) id NAA20211; Fri, 7 Feb 1997 13:57:08 -0700
Sender: mdb@cdc.noaa.gov
To: Kyle Jones <kyle_jones@wonderworks.com>
Cc: xemacs-beta@xemacs.org
Subject: Re: [19.15-b92] ps-print lossage
References: <vkn2tjp1ki.fsf@cdc.noaa.gov> 	<m2ohdy8l0u.fsf@altair.xemacs.org> <QQcbxf20614.199702071952@crystal.WonderWorks.COM>
Organization: CIRES, University of Colorado
X-Attribution: mb
Mime-Version: 1.0 (generated by tm-edit 7.103)
Content-Type: text/plain; charset=US-ASCII
From: Mark Borges <mdb@cdc.noaa.gov>
Date: 07 Feb 1997 13:57:07 -0700
In-Reply-To: Kyle Jones's message of Fri, 7 Feb 1997 14:52:55 -0500 (EST)
Message-ID: <vkraiswd0c.fsf@cdc.noaa.gov>
Lines: 51
X-Mailer: Gnus v5.4.11/XEmacs 20.0

>> On Fri, 7 Feb 1997 14:52:55 -0500 (EST),
>> Kyle Jones(KJ) wrote:
KJ> Steven L. Baur writes:
>> Mark Borges writes:
>> 
>> > I was in a shell-mode buffer, and wanted to pretty-print my session:
>> 
>> > Signaling: (wrong-type-argument stringp #<color-specifier global="black" fallback=#<color-specifier global=("black" ((x) . "black")) fallback=(((tty) . []) ((x) . "black")) 0x176> 0x2f1b>)
>> 
>> I can't duplicate this.

KJ> It looks inmpossible, given the code in 19.15b92.  Mark, maybe
KJ> you have an older ps-print lying around.

No, but I did violate the jwz-rule-of-bug-reporting. Always run with
`-q'. So I did just now. I can replicate it if I `xemacs -q' and then
eval the following, then invoke the shell-mode and try to pretty-print
it off the menubar.

No doubt the real culprit is invalid use of add-spec-list-to-specifier or
something.

------------------------------
(require 'font-lock)
(require 'highlight-headers)
(add-hook 'shell-mode-hook 'install-shell-fonts) 

;;

(cond ((equal (device-type) 'x)
       ;; (The following code applies only under X.)
       (add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'foreground) '((global (nil . "Blue4") ((color) . "orange"))))
       (add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font) '((global (nil . "-*-times-medium-r-*-*-*-180-*-*-*-*-iso8859-*") ((mono) . [italic]) ((grayscale) . [italic]))))
       (add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font) '((global (nil . "-*-courier-bold-r-*-*-*-180-*-*-*-*-iso8859-*") ((mono) . [italic]) ((grayscale) . [italic]))))
       )

       ((equal (device-type) 'tty)
       ;; Code which applies only when running emacs under tty
	(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "yellow"))))
	(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "green"))))
	(add-spec-list-to-specifier (face-property 'font-lock-string-face 'foreground) '((global (nil . "magenta"))))
	(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'foreground) '((global (nil . "red"))))
	(add-spec-list-to-specifier (face-property 'message-header-contents 'foreground) '((global (nil . "green"))))
	(add-spec-list-to-specifier (face-property 'message-highlighted-header-contents 'foreground) '((global (nil . "red"))))
	)
       )

------------------------------

-- 
  -mb-

