1992-05-30 21:11:25 +00:00
|
|
|
;;; reposition.el --- center a Lisp function or comment on the screen
|
|
|
|
|
2012-01-05 09:46:05 +00:00
|
|
|
;; Copyright (C) 1991, 1994, 2001-2012 Free Software Foundation, Inc.
|
1992-07-22 04:22:42 +00:00
|
|
|
|
1992-07-16 21:47:34 +00:00
|
|
|
;; Author: Michael D. Ernst <mernst@theory.lcs.mit.edu>
|
1993-03-22 16:53:22 +00:00
|
|
|
;; Created: Jan 1991
|
1992-07-16 21:47:34 +00:00
|
|
|
;; Maintainer: FSF
|
1991-02-23 20:24:49 +00:00
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1991-02-23 20:24:49 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
1991-02-23 20:24:49 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1991-02-23 20:24:49 +00:00
|
|
|
|
1992-07-16 21:47:34 +00:00
|
|
|
;;; Commentary:
|
|
|
|
|
1996-01-14 07:34:30 +00:00
|
|
|
;; Reposition-window makes an entire function definition or comment visible,
|
|
|
|
;; or, if it is already visible, places it at the top of the window;
|
|
|
|
;; additional invocations toggle the visibility of comments preceding the
|
|
|
|
;; code. For the gory details, see the documentation for reposition-window;
|
|
|
|
;; rather than reading that, you may just want to play with it.
|
|
|
|
|
|
|
|
;; This tries pretty hard to do the recentering correctly; the precise
|
|
|
|
;; action depends on what the buffer looks like. If you find a situation
|
|
|
|
;; where it doesn't behave well, let me know. This function is modeled
|
|
|
|
;; after one of the same name in ZMACS, but the code is all-new and the
|
|
|
|
;; behavior in some situations differs.
|
1991-02-23 20:24:49 +00:00
|
|
|
|
1992-07-16 21:47:34 +00:00
|
|
|
;;; Code:
|
|
|
|
|
1991-05-10 21:47:42 +00:00
|
|
|
;;;###autoload
|
1991-02-23 20:24:49 +00:00
|
|
|
(defun reposition-window (&optional arg)
|
|
|
|
"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)."
|
|
|
|
(interactive "P")
|
Use line-end-position rather than end-of-line, etc.
* textmodes/texnfo-upd.el (texinfo-start-menu-description)
(texinfo-update-menu-region-beginning, texinfo-menu-first-node)
(texinfo-delete-existing-pointers, texinfo-find-pointer)
(texinfo-clean-up-node-line, texinfo-insert-node-lines)
(texinfo-multiple-files-update):
* textmodes/table.el (table--probe-cell-left-up)
(table--probe-cell-right-bottom):
* textmodes/picture.el (picture-tab-search):
* textmodes/page-ext.el (pages-copy-header-and-position)
(pages-directory-for-addresses):
* progmodes/vera-mode.el (vera-get-offset):
* progmodes/simula.el (simula-calculate-indent):
* progmodes/python.el (python-pdbtrack-overlay-arrow):
* progmodes/prolog.el (end-of-prolog-clause):
* progmodes/perl-mode.el (perl-calculate-indent, perl-indent-exp):
* progmodes/icon.el (indent-icon-exp):
* progmodes/etags.el (tag-re-match-p):
* progmodes/ebrowse.el (ebrowse-show-file-name-at-point):
* progmodes/ebnf2ps.el (ebnf-begin-file):
* progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-save-local-variable):
* play/life.el (life-setup):
* play/gametree.el (gametree-looking-at-ply):
* nxml/nxml-maint.el (nxml-insert-target-repertoire-glyph-set):
* mail/sendmail.el (mail-mode-auto-fill):
* emacs-lisp/lisp-mode.el (calculate-lisp-indent):
* emacs-lisp/edebug.el (edebug-overlay-arrow):
* emacs-lisp/checkdoc.el (checkdoc-this-string-valid):
* woman.el (woman-parse-numeric-value, woman2-TH, woman2-SH)
(woman-tab-to-tab-stop, WoMan-warn-ignored):
* type-break.el (type-break-file-keystroke-count):
* term.el (term-replace-by-expanded-history-before-point)
(term-skip-prompt, term-extract-string):
* speedbar.el (speedbar-edit-line, speedbar-expand-line)
(speedbar-contract-line, speedbar-toggle-line-expansion)
(speedbar-parse-c-or-c++tag, speedbar-parse-tex-string)
(speedbar-buffer-revert-buffer, speedbar-highlight-one-tag-line):
* sort.el (sort-skip-fields):
* skeleton.el (skeleton-internal-list):
* simple.el (line-move-finish, line-move-to-column):
* shell.el (shell-forward-command):
* misc.el (copy-from-above-command):
* makesum.el (double-column):
* ebuff-menu.el (electric-buffer-update-highlight):
* dired.el (dired-move-to-end-of-filename):
* dframe.el (dframe-popup-kludge):
* bookmark.el (bookmark-kill-line, bookmark-bmenu-show-filenames):
* arc-mode.el (archive-get-lineno):
Use line-end-position and line-beginning-position.
* net/ange-ftp.el, progmodes/hideif.el, reposition.el:
Same, but only in comments.
2010-11-06 20:23:42 +00:00
|
|
|
(let* (;; (here (line-beginning-position))
|
1991-02-23 20:24:49 +00:00
|
|
|
(here (point))
|
|
|
|
;; change this name once I've gotten rid of references to ht.
|
|
|
|
;; this is actually the number of the last screen line
|
|
|
|
(ht (- (window-height (selected-window)) 2))
|
|
|
|
(line (repos-count-screen-lines (window-start) (point)))
|
|
|
|
(comment-height
|
|
|
|
;; The call to max deals with the case of cursor between defuns.
|
|
|
|
(max 0
|
|
|
|
(repos-count-screen-lines-signed
|
|
|
|
;; the beginning of the preceding comment
|
|
|
|
(save-excursion
|
1993-07-20 05:55:31 +00:00
|
|
|
(if (not (eobp)) (forward-char 1))
|
1993-12-23 03:47:06 +00:00
|
|
|
(end-of-defun -1)
|
1991-02-23 20:24:49 +00:00
|
|
|
;; Skip whitespace, newlines, and form feeds.
|
1993-12-23 03:47:06 +00:00
|
|
|
(if (re-search-forward "[^ \t\n\f]" nil t)
|
|
|
|
(backward-char 1))
|
1991-02-23 20:24:49 +00:00
|
|
|
(point))
|
|
|
|
here)))
|
1993-12-23 03:47:06 +00:00
|
|
|
(defun-height
|
1991-02-23 20:24:49 +00:00
|
|
|
(repos-count-screen-lines-signed
|
|
|
|
(save-excursion
|
|
|
|
(end-of-defun 1) ; so comments associate with following defuns
|
|
|
|
(beginning-of-defun 1)
|
|
|
|
(point))
|
|
|
|
here))
|
|
|
|
;; This must be positive, so don't use the signed version.
|
|
|
|
(defun-depth (repos-count-screen-lines here
|
|
|
|
(save-excursion
|
|
|
|
(end-of-defun 1)
|
|
|
|
(point))))
|
|
|
|
(defun-line-onscreen-p
|
|
|
|
(and (<= defun-height line)
|
|
|
|
(<= (- line defun-height) ht))))
|
|
|
|
(cond ((or (= comment-height line)
|
|
|
|
(and (= line ht)
|
|
|
|
(> comment-height line)
|
|
|
|
;; if defun line offscreen, we should be in case 4
|
|
|
|
defun-line-onscreen-p))
|
|
|
|
;; Either first comment line is at top of screen or (point at
|
|
|
|
;; bottom of screen, defun line onscreen, and first comment line
|
|
|
|
;; off top of screen). That is, it looks like we just did
|
|
|
|
;; recenter-definition, trying to fit as much of the comment
|
|
|
|
;; onscreen as possible. Put defun line at top of screen; that
|
|
|
|
;; is, show as much code, and as few comments, as possible.
|
|
|
|
|
|
|
|
(if (and arg (> defun-depth (1+ ht)))
|
|
|
|
;; Can't fit whole defun onscreen without moving point.
|
|
|
|
(progn (end-of-defun) (beginning-of-defun) (recenter 0))
|
|
|
|
(recenter (max defun-height 0)))
|
|
|
|
;;(repos-debug-macro "1")
|
|
|
|
)
|
|
|
|
|
|
|
|
((or (= defun-height line)
|
|
|
|
(= line 0)
|
|
|
|
(and (< line comment-height)
|
|
|
|
(< defun-height 0)))
|
|
|
|
;; Defun line or cursor at top of screen, OR cursor in comment
|
|
|
|
;; whose first line is offscreen.
|
|
|
|
;; Avoid moving definition up even if defun runs offscreen;
|
|
|
|
;; we care more about getting the comment onscreen.
|
1993-12-23 03:47:06 +00:00
|
|
|
|
1991-02-23 20:24:49 +00:00
|
|
|
(cond ((= line ht)
|
|
|
|
;; cursor on last screen line (and so in a comment)
|
|
|
|
(if arg (progn (end-of-defun) (beginning-of-defun)))
|
|
|
|
(recenter 0)
|
|
|
|
;;(repos-debug-macro "2a")
|
|
|
|
)
|
1993-12-23 03:47:06 +00:00
|
|
|
|
1991-02-23 20:24:49 +00:00
|
|
|
;; This condition, copied from case 4, may not be quite right
|
1993-12-23 03:47:06 +00:00
|
|
|
|
1991-02-23 20:24:49 +00:00
|
|
|
((and arg (< ht comment-height))
|
|
|
|
;; Can't get first comment line onscreen.
|
|
|
|
;; Go there and try again.
|
|
|
|
(forward-line (- comment-height))
|
|
|
|
(beginning-of-line)
|
|
|
|
;; was (reposition-window)
|
|
|
|
(recenter 0)
|
|
|
|
;;(repos-debug-macro "2b")
|
|
|
|
)
|
|
|
|
(t
|
|
|
|
(recenter (min ht comment-height))
|
|
|
|
;;(repos-debug-macro "2c")
|
|
|
|
))
|
|
|
|
;; (recenter (min ht comment-height))
|
|
|
|
)
|
|
|
|
|
|
|
|
((and (> (+ line defun-depth -1) ht)
|
|
|
|
defun-line-onscreen-p)
|
|
|
|
;; Defun runs off the bottom of the screen and the defun line
|
|
|
|
;; is onscreen.
|
|
|
|
;; Move the defun up.
|
|
|
|
(recenter (max 0 (1+ (- ht defun-depth)) defun-height))
|
|
|
|
;;(repos-debug-macro "3")
|
|
|
|
)
|
|
|
|
|
|
|
|
(t
|
|
|
|
;; If on the bottom line and comment start is offscreen
|
|
|
|
;; then just move all comments offscreen, or at least as
|
|
|
|
;; far as they'll go.
|
|
|
|
|
|
|
|
;; Try to get as much of the comments onscreen as possible.
|
|
|
|
(if (and arg (< ht comment-height))
|
|
|
|
;; Can't get defun line onscreen; go there and try again.
|
|
|
|
(progn (forward-line (- defun-height))
|
|
|
|
(beginning-of-line)
|
|
|
|
(reposition-window))
|
|
|
|
(recenter (min ht comment-height)))
|
|
|
|
;;(repos-debug-macro "4")
|
|
|
|
))))
|
|
|
|
|
|
|
|
;;; Auxiliary functions
|
|
|
|
|
|
|
|
;; Return number of screen lines between START and END.
|
|
|
|
(defun repos-count-screen-lines (start end)
|
|
|
|
(save-excursion
|
|
|
|
(save-restriction
|
|
|
|
(narrow-to-region start end)
|
|
|
|
(goto-char (point-min))
|
|
|
|
(vertical-motion (- (point-max) (point-min))))))
|
|
|
|
|
|
|
|
;; Return number of screen lines between START and END; returns a negative
|
|
|
|
;; number if END precedes START.
|
|
|
|
(defun repos-count-screen-lines-signed (start end)
|
|
|
|
(let ((lines (repos-count-screen-lines start end)))
|
|
|
|
(if (< start end)
|
|
|
|
lines
|
|
|
|
(- lines))))
|
|
|
|
|
1997-06-22 18:57:55 +00:00
|
|
|
;; (defmacro repos-debug-macro (case-no)
|
2001-11-27 18:00:53 +00:00
|
|
|
;; `(message (concat "Case " ,case-no ": %s %s %s %s %s")
|
|
|
|
;; ht line comment-height defun-height defun-depth))
|
1997-06-22 18:57:55 +00:00
|
|
|
|
|
|
|
(provide 'reposition)
|
1991-02-23 20:24:49 +00:00
|
|
|
|
1992-05-30 21:11:25 +00:00
|
|
|
;;; reposition.el ends here
|