comparison lisp/font.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 79940b592197
children 79c6ff3eef26
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
836 "A list of font family mappings on mswindows devices.") 836 "A list of font family mappings on mswindows devices.")
837 837
838 (defun mswindows-font-create-object (fontname &optional device) 838 (defun mswindows-font-create-object (fontname &optional device)
839 "Return a font descriptor object for FONTNAME, appropriate for MS Windows devices." 839 "Return a font descriptor object for FONTNAME, appropriate for MS Windows devices."
840 (let ((case-fold-search t) 840 (let ((case-fold-search t)
841 (font (mswindows-font-canonicalize-name fontname))) 841 (font (declare-fboundp (mswindows-font-canonicalize-name fontname))))
842 (if (or (not (stringp font)) 842 (if (or (not (stringp font))
843 (not (string-match font-mswindows-font-regexp font))) 843 (not (string-match font-mswindows-font-regexp font)))
844 (make-font) 844 (make-font)
845 (let ((family (match-string 1 font)) 845 (let ((family (match-string 1 font))
846 (weight (match-string 2 font)) 846 (weight (match-string 2 font))