[COMMIT] Accept numbers in MSWindows font family names

APPROVE COMMIT The problem is described here: http://www.xemacs.org/Releases/Public-21.2/bugstatus.html NOTE: This patch has been committed. lisp/ChangeLog addition: 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * msw-faces.el: Accept numbers, indeed anything other than a colon, as legitmate in a font family as parsed by mswindows-font-regexp. Fixes the problem reported in puftoj6l.fsf(a)isoware.de of six years ago. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: lisp/msw-faces.el =================================================================== RCS Index: lisp/msw-faces.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/msw-faces.el,v retrieving revision 1.18 diff -u -r1.18 msw-faces.el --- lisp/msw-faces.el 2005/01/28 02:58:40 1.18 +++ lisp/msw-faces.el 2007/06/21 13:43:26 ＠＠ -68,7 +68,9 ＠＠ ;; Other functions expect these regexps (let ((- ":") - (fontname "\\([a-zA-Z ]*\\)") ; 1 + ;; What happens if a font family contains a colon? I can't find any + ;; documentation on that, and don't have a font editor to hand to test. + (fontname "\\([^:]*\\)") ; 1 (style "\\(\\(?:[a-zA-Z]+\\(?: +[a-zA-Z]+\\)*\\)?\\)") ; 2 (pointsize "\\([0-9]*\\)") ; 3 (effects "\\(\\(?:[a-zA-Z]+\\(?: +[a-zA-Z]+\\)*\\)?\\)") ; 4 -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches