Mercurial > hg > xemacs-beta

diff lisp/x-faces.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents c5d627a313b1
children e11d67e05968
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 10:34:15 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 10:35:03 2007 +0200
@@ -163,10 +163,6 @@
 	 (concat font which))
 	(t nil)))
 
-(defun try-font-name (name &optional device)
-  ;; yes, name really should be here twice.
-  (and name (make-font-instance name device t) name))
-
 (defun x-make-font-bold (font &optional device)
   "Given an X font specification, this attempts to make a `bold' font.
 If it fails, it returns nil."