home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / gnu / emacs / help / 4770 < prev    next >
Encoding:
Text File  |  1992-11-12  |  1.4 KB  |  44 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!stanford.edu!ames!elroy.jpl.nasa.gov!swrinde!emory!europa.asd.contel.com!darwin.sura.net!lhc!lhc!warsaw
  3. From: warsaw@nlm.nih.gov (Barry A. Warsaw)
  4. Subject: Re: How can I view 3 files at once
  5. In-Reply-To: kim@merlin.anu.edu.au's message of 11 Nov 1992 01:45:01 GMT
  6. Message-ID: <WARSAW.92Nov12133642@anthem.nlm.nih.gov>
  7. Lines: 30
  8. Sender: news@nlm.nih.gov
  9. Reply-To: warsaw@nlm.nih.gov (Barry A. Warsaw)
  10. Organization: Century Computing, Inc.
  11. References: <1dpoitINNgjs@csc2.anu.edu.au>
  12. Date: 12 Nov 92 18:36:42 GMT
  13.  
  14.  
  15. Here's a simple little function I bind to C-x 3. To parallel what C-x 2
  16. does, it splits the current window into 3 equal sized windows.  It
  17. requires slowsplit.el, a very cool package in its own right:
  18.  
  19. lisp-dir-apropos sez:
  20.  
  21.          GNU Emacs Lisp Code Directory Apropos -- "slowsplit"
  22. "~/" refers to archive.cis.ohio-state.edu:/pub/gnu/emacs/elisp-archive/
  23.  
  24. slowsplit              89-04-05
  25.      John Robinson, <jr@bbn.com>
  26.      ~/as-is/slowsplit.el.Z
  27.      Split window with minimal redisplay.
  28.  
  29.  
  30. -Barry
  31.  
  32. -------------------- snip snip --------------------
  33. (defun baw:three-windows ()
  34.   "Split the current window into three equally sized windows.  Use
  35. `split-window-quietly'."
  36.   (interactive)
  37.   (let* ((height  (window-height))
  38.      (window2 (/ (* height 2) 3))
  39.      (window1 (/ height 3)))
  40.     (split-window-quietly window2)
  41.     (select-window (get-largest-window))
  42.     (split-window-quietly window1)
  43.     ))
  44.