comparison lisp/reposition.el @ 88155:d7ddb3e565de

sync with trunk

88154:8ce476d3ba36

;;; reposition.el --- center a Lisp function or comment on the screen

;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.

;; Author: Michael D. Ernst <[e-mail]>
;; Created: Jan 1991
;; Maintainer: FSF

;; 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
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; Reposition-window makes an entire function definition or comment visible,
;; or, if it is already visible, places it at the top of the window;

;;   `(message (concat "Case " ,case-no ": %s %s %s %s %s")
;;             ht line comment-height defun-height defun-depth))

(provide 'reposition)

;;; reposition.el ends here

88155:d7ddb3e565de

;;; reposition.el --- center a Lisp function or comment on the screen

;; Copyright (C) 1991, 1994, 2002, 2003, 2004,
;;   2005 Free Software Foundation, Inc.

;; Author: Michael D. Ernst <[e-mail]>
;; Created: Jan 1991
;; Maintainer: FSF

;; 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
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Reposition-window makes an entire function definition or comment visible,
;; or, if it is already visible, places it at the top of the window;

;;   `(message (concat "Case " ,case-no ": %s %s %s %s %s")
;;             ht line comment-height defun-height defun-depth))

(provide 'reposition)

;;; arch-tag: 79487039-3bd7-4ab5-a3e8-ecf3b4919010
;;; reposition.el ends here