home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / gnu / emacs / help / 4082 < prev    next >
Encoding:
Text File  |  1992-09-10  |  2.0 KB  |  71 lines
  1. Xref: sparky gnu.emacs.help:4082 comp.emacs:3068
  2. Path: sparky!uunet!littlei!intelhf!ichips!ichips!glew
  3. From: glew@pdx007.intel.com (Andy Glew)
  4. Newsgroups: gnu.emacs.help,comp.emacs
  5. Subject: Re: emacs fonts- the list
  6. Message-ID: <GLEW.92Sep10232134@pdx007.intel.com>
  7. Date: 11 Sep 92 07:21:34 GMT
  8. References: <1992Aug1.002303.12223@cs.uoregon.edu>
  9. Sender: news@ichips.intel.com (News Account)
  10. Organization: Intel Corp., Hillsboro, Oregon
  11. Lines: 57
  12. In-Reply-To: maxn@getafix.cs.uoregon.edu's message of Sat, 1 Aug 1992 00:23:03 GMT
  13.  
  14. Here's a hack to go along with the font list:
  15.  
  16.  
  17. ;;; X fonts suitable for emacs, selected by
  18. ;;;
  19. ;;; From: maxn@getafix.cs.uoregon.edu (Max Napolitano)
  20. ;;; Subject: emacs fonts- the list
  21. ;;; Organization: University of Oregon Computer and Information Sciences Dept.
  22. ;;; Date: Sat, 1 Aug 1992 00:23:03 GMT
  23. ;;; 
  24.  
  25. (defvar x-emacs-known-good-font-list '(
  26.     ("7x13")
  27.     ("7x14")
  28.     ("8x16")
  29.     ("9x15")
  30.     ("9x15bold")
  31.     ("10x20")
  32.     ("12x24")
  33.     ("fg-18")
  34.     ("fg-25")
  35.     ("-*-courier-bold-r-*-*-14-*-*-*-*-*-*-*")
  36.     ("-adobe-*-medium-r-*-18-*-m-*")
  37.     ("-adobe-courier-medium-r-normal-*-14-*-*-*-m-*-iso8859-1")
  38.     ("-adobe-courier-bold-r-normal--14-100-100-100-m-90-iso8859-1")
  39.     ("-adobe-courier-bold-r-normal--18-180-75-75-m-110-iso8859-1")
  40.     ("lucidasanstypewriter-12")
  41.     ("lucidasanstypewriter-bold-14")
  42.     ("lucidasanstypewriter-bold-24")
  43.     ("-b&h-lucidatypewriter-bold-r-normal-sans-24-240-75-75-m-140-iso8859-1")
  44.     ("-misc-fixed-medium-*-*-*-20-*-*-*-*-*-*-*")
  45.     )
  46.     "X fonts suitable for use by emacs")
  47.  
  48. (defun x-set-font-known-good ()
  49.        "Select an emacs font from a list of known good fonts"
  50.        (interactive)
  51.        (x-set-font
  52.     (completing-read
  53.      "X font: "
  54.      x-emacs-known-good-font-list
  55.      nil
  56.      nil
  57.      nil)
  58.     )
  59.        )
  60.  
  61. --
  62.  
  63. Andy Glew, glew@ichips.intel.com
  64. Intel Corp., M/S JF1-19, 5200 NE Elam Young Pkwy, 
  65. Hillsboro, Oregon 97124-6497
  66.  
  67. This is a private posting; it does not indicate opinions or positions
  68. of Intel Corp.
  69.  
  70. Intel Inside (tm)
  71.