Re: GNU Emacs - smaller font

[hedi.berriche@btinternet.com (Hedi Berriche)]

>>>>> "Tom" == Tom Huckstep <tomhuckstep@bigfoot.com> writes:

Tom> Excellent, thanks!  That works fine in GNU Emacs.
Tom> Unfortunatley Xemacs complains:
Tom> Symbol's function definition is void: set-default-font
Tom> Is there any way to keep both flavours of Emacs happy?
Tom> Tom

You can do something like this

        
(defmacro GNU-Emacs (&rest x)
  (list 'if (string-match "GNU Emacs 20" (version)) (cons 'progn x)))
(defmacro XEmacs (&rest x)
    (list 'if (string-match "XEmacs 21" (version)) (cons 'progn x)))

(GNU-Emacs
        (set-default-font "lucidasanstypewriter-14")
)

(XEmacs
        the appropriate line for XEmacs
)

P.S. Please do not reply to both me and the mailing list, I keep receiving
duplicate messages.
-- 
   If Bill Gates had a dime for every time a Windows box crashed...
                ...Oh, wait a minute, he already does.