[Urgent] Missing part of font-menu patch

Alas, this part of the font-menu patch didn't make it into p55. 1998-08-27 Jan Vroonhof <vroonhof(a)math.ethz.ch&gt; * 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