RE: XEmacs 21.4.6-rc1 binary kit available (gtk patch)

Customize works for me... I've had these patches for a while. Been meaning to upload them. Font.el is already patched now, I've noticed. Cheers. edward --- font-menu.el.orig Sun Nov 25 12:24:39 2001 +++ font-menu.el Sat Nov 24 23:39:57 2001 ＠＠ -160,11 +160,13 ＠＠ (defvar font-menu-preferred-resolution (make-specifier-and-init 'generic '((global ((mswindows) . ":") + ((gtk) . "*-*") ((x) . "*-*"))) t) "Preferred horizontal and vertical font menu resolution (e.g. \"75:75\").") (defvar font-menu-size-scaling (make-specifier-and-init 'integer '((global ((mswindows) . 1) + ((gtk) . 10) ((x) . 10))) t) "Scale factor used in defining font sizes.") ＠＠ -285,7 +287,7 ＠＠ (entry (aref font-data 0)) (family (aref font-data 1)) (size (aref font-data 2)) - ;;(weight (aref font-data 3)) + (weight (aref font-data 3)) s) (unless family (throw 'menu '(["Cannot parse current font" ding nil]))) ＠＠ -316,7 +318,7 ＠＠ (font-data (font-menu-font-data 'default dcache)) (entry (aref font-data 0)) (family (aref font-data 1)) - ;;(size (aref font-data 2)) + (size (aref font-data 2)) (weight (aref font-data 3)) w) (unless family ＠＠ -377,7 +379,9 ＠＠ (condition-case c (font-menu-change-face face from-family from-weight from-size - family weight size) + (or family from-family) + (or weight from-weight) + (or size from-size size)) (error (display-error c nil) (sit-for 1))))) ＠＠ -392,7 +396,7 ＠＠ ;; OK Let Customize do it. (custom-set-face-update-spec 'default (list (list 'type (device-type))) - (list :family family + (list :family (or family from-family) :size (concat (int-to-string (/ (or size from-size) _________________________________________________________ Do You Yahoo!? Get your free ＠yahoo.com address at http://mail.yahoo.com