home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / repositi.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.4 KB  |  32 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:45:54 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/repositi.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 'reposition-window #[(&optional arg) "`┴┬ !├Z┼╞ `\"╚╔è╩uê╦╠!ê═╬!ê╧╩!ê`)\"]╔è╦╩!ê╤╩!ê`)\"┼è╦╩!ê`)\"X¡çZ XU¼æ U½½V½ñ½á½ô TV½î╦ ê╤ ê╓╚!é╓╚]!éU¼ô╚U¼ìW½║╚W½┤ U½Å½å╦ ê╤ ê╓╚!¬╪½ô W½ì[yê╚yê╓╚!¬┴╓ ^!¬╣╠\\\\ V½Æ½Ä╓╚ ZT]]!¬£½Æ W½î[yê╚yê╫ ¬å╓ ^!.ç" [here window-height selected-window 2 ht repos-count-screen-lines window-start line 0 repos-count-screen-lines-signed 1 end-of-defun -1 re-search-forward "[^\\s \n ]" backward-char comment-height beginning-of-defun defun-height defun-depth defun-line-onscreen-p arg recenter reposition-window] 4 "\
  14. Make the current definition and/or comment visible.
  15. Further invocations move it to the top of the window or toggle the
  16. visibility of comments that precede it.
  17.   Point is left unchanged unless prefix ARG is supplied.
  18.   If the definition is fully onscreen, it is moved to the top of the
  19. window.  If it is partly offscreen, the window is scrolled to get the
  20. definition (or as much as will fit) onscreen, unless point is in a comment
  21. which is also partly offscreen, in which case the scrolling attempts to get
  22. as much of the comment onscreen as possible.
  23.   Initially `reposition-window' attempts to make both the definition and
  24. preceding comments visible.  Further invocations toggle the visibility of
  25. the comment lines.
  26.   If ARG is non-nil, point may move in order to make the whole defun
  27. visible (if only part could otherwise be made so), to make the defun line
  28. visible (if point is in code and it could not be made so, or if only
  29. comments, including the first comment line, are visible), or to make the
  30. first comment line visible (if point is in a comment)." "P"])
  31. (byte-code "└    ┬├#ê─┼Mê╞╟Mç" [define-key esc-map " " reposition-window repos-count-screen-lines #[(start end) "èî    }êebê┬deZ!*ç" [start end vertical-motion] 3] repos-count-screen-lines-signed #[(start end) "└    \n\"    \nW½â ¬é [)ç" [repos-count-screen-lines start end lines] 3]] 4)
  32.