home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / gnu / emacs / help / 5114 < prev    next >
Encoding:
Text File  |  1992-12-17  |  2.0 KB  |  50 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!saimiri.primate.wisc.edu!ames!agate!linus!linus.mitre.org!blackbird!dsg
  3. From: dsg@blackbird.mitre.org (David S. Goldberg)
  4. Subject: Re: emacs display in X11R5
  5. In-Reply-To: hollen@megatek.UUCP's message of Wed, 16 Dec 1992 19:23:23 GMT
  6. Message-ID: <DSG.92Dec17102146@blackbird.mitre.org>
  7. Sender: news@linus.mitre.org (News Service)
  8. Nntp-Posting-Host: blackbird.mitre.org
  9. Organization: The Mitre Corp., Bedford, MA.
  10. References: <1992Dec13.030227.12401@seas.smu.edu> <HOLLEN.92Dec16112323@peg.megatek.UUCP>
  11. Date: Thu, 17 Dec 1992 15:21:46 GMT
  12. Lines: 36
  13.  
  14.  
  15. >>>>> On 13 Dec 92 03:02:27 GMT, pedersen@seas.smu.edu (Ted Pedersen)
  16. >>>>> said:
  17.  
  18. Ted> I am using emacs 18.59.1 and having some difficulty. When I use
  19. Ted> an X terminal (we run X11R5) my emacs window has little bitty
  20. Ted> type in it.  When I expand the window I get a bigger window but
  21. Ted> the type remains the same very small size. Is there a way to make
  22. Ted> the emacs type size larger? Otherwise emacs works fine in this
  23. Ted> setup.
  24.  
  25. The following bit of elisp should help, but ideally, just set a bigger
  26. default font in your .Xdefaults file or via xrdb.
  27.  
  28. ;;;
  29. ;;; A way to change the font inside of emacs (X11)
  30. ;;; stolen from the net (toad@CS.CMU.EDU (Todd Kaufmann))
  31.  
  32. (defun my-set-font (font)
  33.   "Change the current font under X.  Works with epoch, nemacs, or normal
  34. gnu-emacs."
  35.   (if (boundp 'epoch::version) (epoch::font font) (x-set-font font)))
  36.  
  37. (defun tiny ()   (interactive) (my-set-font "6x10"))
  38. (defun small ()  (interactive) (my-set-font "6x13"))
  39. (defun medium () (interactive) (my-set-font "8x13"))
  40. (defun big ()    (interactive) (my-set-font "9x15"))
  41. (defun normal () (interactive) (my-set-font "9x15"))
  42. (defun huge()    (interactive) (my-set-font "10x20"))
  43.  
  44. --
  45. Dave Goldberg                      UNIX Systems Programmer/Administrator
  46. Post: The Mitre Corporation MS B020 202 Burlington Rd. Bedford, MA 01730
  47. Phone: 617-271-2460
  48. Domain: dsg@mbunix.mitre.org  UUCP: {your neighborhood}!linus!mbunix!dsg 
  49.  
  50.