;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:49:01 1995
;;; from file /gd/gnu/emacs/19.0/lisp/reposition.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/reposition.el' was compiled for Emacs 19"))


#@1058 Make the current definition and/or comment visible.
Further invocations move it to the top of the window or toggle the
visibility of comments that precede it.
  Point is left unchanged unless prefix ARG is supplied.
  If the definition is fully onscreen, it is moved to the top of the
window.  If it is partly offscreen, the window is scrolled to get the
definition (or as much as will fit) onscreen, unless point is in a comment
which is also partly offscreen, in which case the scrolling attempts to get
as much of the comment onscreen as possible.
  Initially `reposition-window' attempts to make both the definition and
preceding comments visible.  Further invocations toggle the visibility of
the comment lines.
  If ARG is non-nil, point may move in order to make the whole defun
visible (if only part could otherwise be made so), to make the defun line
visible (if point is in code and it could not be made so, or if only
comments, including the first comment line, are visible), or to make the
first comment line visible (if point is in a comment).
(defalias 'reposition-window #[(&optional arg) "`ÁÂ !ÃZÅÆ `\"ÈÉŠm„ ÊuˆËÌ!ˆÍÎÏÐ#ƒ* ÑÊ!ˆ`)\"]ÉŠËÊ!ˆÓÊ!ˆ`)\"ÅŠËÊ!ˆ`)\"X…\\ Z\fXU„z \fUƒœ Vƒœ ƒœ ƒ“ \fTVƒ“ Ë ˆÓ ˆØÈ!‚4ØÈ]!‚4U„º ÈU„º Wƒõ ÈWƒõ \fUƒÒ ƒÌ Ë ˆÓ ˆØÈ!‚4ƒì \fWƒì [yˆÈyˆØÈ!‚4Ø\f^!‚4Ì\\\\\fVƒƒØÈ\fZT]]!‚4ƒ.\fWƒ.[yˆÈyˆÙ ‚4Ø\f^!.‡" [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 "[^ 	\n\f]" nil t backward-char comment-height beginning-of-defun defun-height defun-depth defun-line-onscreen-p arg recenter reposition-window] 6 (#$ . 491) "P"])
(defalias 'repos-count-screen-lines #[(start end) "ŠŒ	}ˆebˆÂdeZ!*‡" [start end vertical-motion] 3])
(defalias 'repos-count-screen-lines-signed #[(start end) "À	\n\"	\nWƒ ‚ [)‡" [repos-count-screen-lines start end lines] 3])