home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / window.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.1 KB  |  46 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:46:56 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/window.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'count-windows #[(&optional minibuf) "└┬├ \"ê    )ç" [0 count walk-windows #[nil "┴\\ëç" [count 1] 2] minibuf] 3 "\
  14. Returns the number of visible windows.
  15. Optional arg NO-MINI non-nil means don't count the minibuffer
  16. even if it is active."])
  17. (fset 'balance-windows #[nil "└┬├─\"ê┼     Ñ┬╟─\"*ç" [0 count walk-windows #[(w) "┴\\ëç" [count 1] 2] nomini screen-height size #[(w) "└    !ê┬ ─ Z!ç" [select-window w enlarge-window size window-height] 3]] 3 "\
  18. Makes all visible windows the same size (approximately)." nil])
  19. (fset 'split-window-vertically #[(&optional arg hack-display) "└ ┴─┴¡â╞!\"½╟┴è╔ qê╩ bê╦╠ !ê═\n`\"ê`╬\n!Y½à╧\n`\"ê╦╨!ê╤`\n\"½à═\n`\"ê`)`X½ï╧ S\"ê╥\n!ê)\n*ç" [selected-window nil new-w old-w split-window arg prefix-numeric-value hack-display bottom window-buffer window-start vertical-motion window-height set-window-start window-point set-window-point -1 pos-visible-in-window-p select-window] 4 "\
  20. Split current window into two windows, one above the other.
  21. The top window gets ARG lines.  No arg means split equally.
  22.  
  23. The two windows will be displaying the same text as before: both windows will
  24. be displaying the current buffer, but the second window will be scrolled such
  25. that little redisplay will happen - the lines that were on the screen before
  26. the split will still be on the screen, in the same places.  
  27.  
  28. An effort is made to keep the cursor in the same place relative to the text on
  29. the screen as well.  If the cursor is below the split-point before the split,
  30. then the bottom window will be selected; otherwise the top window will be
  31. selected." (list current-prefix-arg t)])
  32. (fset 'split-window-horizontally #[(&optional arg) "└┴\n¡â├\n!─#ç" [split-window nil arg prefix-numeric-value t] 4 "\
  33. Split current window into two windows side by side.
  34. This window becomes the leftmost of the two, and gets
  35. ARG columns.  No arg means split equally." "P"])
  36. (fset 'enlarge-window-horizontally #[(arg) "└    ┬\"ç" [enlarge-window arg t] 3 "\
  37. Make current window ARG columns wider." "p"])
  38. (fset 'shrink-window-horizontally #[(arg) "└    ┬\"ç" [shrink-window arg t] 3 "\
  39. Make current window ARG columns narrower." "p"])
  40. (fset 'window-config-to-register #[(name) "└    ┬ \"ç" [set-register name current-window-configuration] 3 "\
  41. Save the current window configuration in register REG (a letter).
  42. It can be later retrieved using \\[M-x register-to-window-config]." "cSave window configuration in register: "])
  43. (fset 'register-to-window-config #[(name) "└┴\n!!ç" [set-window-configuration get-register name] 3 "\
  44. Restore (make current) the window configuration in register REG (a letter).
  45. Use with a register previously set with \\[window-config-to-register]." "cRestore window configuration from register: "])
  46.