Alas, this part of the font-menu patch didn't make it into p55.
1998-08-27 Jan Vroonhof <vroonhof(a)math.ethz.ch>
* x-font-menu.el (font-menu-set-font): Add "pt" units to size
argument.
Index: x-font-menu.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/x-font-menu.el,v
retrieving revision 1.2
diff -u -u -r1.2 x-font-menu.el
--- x-font-menu.el 1998/09/06 03:11:11 1.2
+++ x-font-menu.el 1998/09/07 18:38:02
@@ -494,8 +494,8 @@
(when (and family (not (equal family from-family)))
(setq new-props (append (list :family family) new-props)))
(when (and size (not (equal size from-size)))
- (setq new-props (append (list :size (int-to-string
- (/ size 10))) new-props)))
+ (setq new-props (append (list :size (concat (int-to-string
+ (/ size 10)) "pt")) new-props)))
(custom-set-face-update-spec 'default '((type x)) new-props)
;;; WMP - we need to honor font-menu-this-frame-only-p here!
; (set-face-font 'default new-default-face-font
Show replies by date