annotate lisp/page.el @ 793:e38acbeb1cae

[xemacs-hg @ 2002-03-29 04:46:17 by ben] lots o' fixes etc/ChangeLog: New file. Separated out all entries for etc/ into their own ChangeLog. Includes entries for the following files: etc/BABYL, etc/BETA, etc/CHARSETS, etc/DISTRIB, etc/Emacs.ad, etc/FTP, etc/GNUS-NEWS, etc/GOATS, etc/HELLO, etc/INSTALL, etc/MACHINES, etc/MAILINGLISTS, etc/MSDOS, etc/MYTHOLOGY, etc/NEWS, etc/OXYMORONS, etc/PACKAGES, etc/README, etc/TUTORIAL, etc/TUTORIAL.de, etc/TUTORIAL.ja, etc/TUTORIAL.ko, etc/TUTORIAL.se, etc/aliases.ksh, etc/altrasoft-logo.xpm, etc/check_cygwin_setup.sh, etc/custom/example-themes/europe-theme.el, etc/custom/example-themes/ex-custom-file, etc/custom/example-themes/example-theme.el, etc/e/eterm.ti, etc/edt-user.doc, etc/enriched.doc, etc/etags.1, etc/gnuserv.1, etc/gnuserv.README, etc/package-index.LATEST.gpg, etc/package-index.LATEST.pgp, etc/photos/jan.png, etc/recycle.xpm, etc/refcard.tex, etc/sample.Xdefaults, etc/sample.emacs, etc/sgml/CATALOG, etc/sgml/HTML32.dtd, etc/skk/SKK.tut.E, etc/smilies/Face_ase.xbm, etc/smilies/Face_ase2.xbm, etc/smilies/Face_ase3.xbm, etc/smilies/Face_smile.xbm, etc/smilies/Face_weep.xbm, etc/sounds, etc/toolbar, etc/toolbar/workshop-cap-up.xpm, etc/xemacs-ja.1, etc/xemacs.1, etc/yow.lines, etc\BETA, etc\NEWS, etc\README, etc\TUTORIAL, etc\TUTORIAL.de, etc\check_cygwin_setup.sh, etc\sample.init.el, etc\unicode\README, etc\unicode\mule-ucs\*, etc\unicode\other\* unicode/unicode-consortium/8859-16.TXT: New file. mule/english.el: Define this charset now, since a bug was fixed that formerly prevented it. mule/ethio-util.el: Fix compile errors involving Unicode `characters', which should be integers. Makefile.in.in: Always include gui.c, to fix compile error when TTY-only. EmacsFrame.c, abbrev.c, alloc.c, buffer.c, buffer.h, bytecode.c, bytecode.h, callint.c, callproc.c, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, cmds.c, console-msw.c, console-msw.h, console-tty.c, console-x.c, console-x.h, console.c, console.h, data.c, database.c, device-gtk.c, device-msw.c, device-x.c, device.c, device.h, dialog-msw.c, doc.c, doprnt.c, dumper.c, dynarr.c, editfns.c, eldap.c, eldap.h, elhash.c, elhash.h, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, events.h, extents.c, extents.h, faces.c, faces.h, file-coding.c, file-coding.h, fileio.c, filelock.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, free-hook.c, general-slots.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gpmevent.c, gtk-xemacs.c, gui-msw.c, gui-x.c, gui-x.h, gui.c, gui.h, gutter.c, gutter.h, indent.c, input-method-xlib.c, insdel.c, keymap.c, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, marker.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, mule-canna.c, mule-ccl.c, mule-charset.c, mule-wnnfns.c, native-gtk-toolbar.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c, objects.h, opaque.c, opaque.h, postgresql.c, postgresql.h, print.c, process-unix.c, process.c, process.h, rangetab.c, rangetab.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, search.c, select-gtk.c, select-x.c, sound.c, specifier.c, specifier.h, strftime.c, symbols.c, symeval.h, syntax.h, text.c, text.h, toolbar-common.c, toolbar-msw.c, toolbar.c, toolbar.h, tooltalk.c, tooltalk.h, ui-gtk.c, ui-gtk.h, undo.c, vm-limit.c, window.c, window.h: Eliminate XSETFOO. Replace all usages with wrap_foo(). Make symbol->name a Lisp_Object, not Lisp_String *. Eliminate nearly all uses of Lisp_String * in favor of Lisp_Object, and correct macros so most of them favor Lisp_Object. Create new error-behavior ERROR_ME_DEBUG_WARN -- output warnings, but at level `debug' (usually ignored). Use it when instantiating specifiers, so problems can be debugged. Move log-warning-minimum-level into C so that we can optimize ERROR_ME_DEBUG_WARN. Fix warning levels consistent with new definitions. Add default_ and parent fields to char table; not yet implemented. New fun Dynarr_verify(); use for further error checking on Dynarrs. Rearrange code at top of lisp.h in conjunction with dynarr changes. Fix eifree(). Use Eistrings in various places (format_event_object(), where_is_to_char(), and callers thereof) to avoid fixed-size strings buffers. New fun write_eistring(). Reindent and fix GPM code to follow standards. Set default MS Windows font to Lucida Console (same size as Courier New but less interline spacing, so more lines fit). Increase default frame size on Windows to 50 lines. (If that's too big for the workspace, the frame will be shrunk as necessary.) Fix problem with text files with no newlines (). (Change `convert-eol' coding system to use `nil' for autodetect, consistent with make-coding-system.) Correct compile warnings in vm-limit.c. Fix handling of reverse-direction charsets to avoid errors when opening (e.g.) mule-ucs/lisp/reldata/uiso8859-6.el. Recode some object printing methods to use write_fmt_string() instead of a fixed buffer and sprintf. Turn on display of png comments as warnings (level `info'), now that they're unobtrusive. Revamped the sound documentation. Fixed bug in redisplay w.r.t. hscroll/truncation/continuation glyphs causing jumping up and down of the lines, since they're bigger than the line size. (It was seen most obviously when there's a horizontal scroll bar, e.g. do C-h a glyph or something like that.) The problem was that the glyph-contrib-p setting on glyphs was ignored even if it was set properly, which it wasn't until now.
author ben
date Fri, 29 Mar 2002 04:49:13 +0000
parents 1ccc32a20af4
children 6f72d9a709c3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1 ;;; page.el --- page motion commands for emacs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
2
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
3 ;; Copyright (C) 1985, 1997 Free Software Foundation, Inc.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
4
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
5 ;; Maintainer: FSF
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
6 ;; Keywords: extensions, dumped
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
7
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
8 ;; This file is part of XEmacs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
9
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
10 ;; XEmacs is free software; you can redistribute it and/or modify it
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
11 ;; under the terms of the GNU General Public License as published by
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
13 ;; any later version.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
14
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful, but
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
18 ;; General Public License for more details.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
19
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
23 ;; 02111-1307, USA.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
24
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
25 ;;; Synched up with: FSF 19.34.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
26
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
27 ;;; Commentary:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
28
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
29 ;; This file is dumped with XEmacs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
30
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
31 ;; This code provides the page-oriented movement and selection commands
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
32 ;; documented in the XEmacs Reference Manual.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
33
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
34 ;;; Code:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
35
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
36 (defun forward-page (&optional count)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
37 "Move forward to page boundary. With arg, repeat, or go back if negative.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
38 A page boundary is any line whose beginning matches the regexp
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
39 `page-delimiter'."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
40 (interactive "_p") ; XEmacs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
41 (or count (setq count 1))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
42 (while (and (> count 0) (not (eobp)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
43 ;; In case the page-delimiter matches the null string,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
44 ;; don't find a match without moving.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
45 (if (bolp) (forward-char 1))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
46 (if (re-search-forward page-delimiter nil t)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
47 nil
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
48 (goto-char (point-max)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
49 (setq count (1- count)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
50 (while (and (< count 0) (not (bobp)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
51 ;; In case the page-delimiter matches the null string,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
52 ;; don't find a match without moving.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
53 (and (save-excursion (re-search-backward page-delimiter nil t))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
54 (= (match-end 0) (point))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
55 (goto-char (match-beginning 0)))
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 209
diff changeset
56 (backward-char 1)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
57 (if (re-search-backward page-delimiter nil t)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
58 ;; We found one--move to the end of it.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
59 (goto-char (match-end 0))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
60 ;; We found nothing--go to beg of buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
61 (goto-char (point-min)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
62 (setq count (1+ count))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
63
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
64 (defun backward-page (&optional count)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
65 "Move backward to page boundary. With arg, repeat, or go fwd if negative.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
66 A page boundary is any line whose beginning matches the regexp
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
67 `page-delimiter'."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
68 (interactive "_p") ; XEmacs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
69 (or count (setq count 1))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
70 (forward-page (- count)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
71
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
72 (defun mark-page (&optional arg)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
73 "Put mark at end of page, point at beginning.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
74 A numeric arg specifies to move forward or backward by that many pages,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
75 thus marking a page other than the one point was originally in."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
76 (interactive "P")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
77 (setq arg (if arg (prefix-numeric-value arg) 0))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
78 (if (> arg 0)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
79 (forward-page arg)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
80 (if (< arg 0)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
81 (forward-page (1- arg))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
82 (forward-page)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
83 (push-mark nil t t)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
84 (forward-page -1))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
85
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
86 (defun narrow-to-page (&optional arg)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
87 "Make text outside current page invisible.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
88 A numeric arg specifies to move forward or backward by that many pages,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
89 thus showing a page other than the one point was originally in."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
90 (interactive "P")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
91 (setq arg (if arg (prefix-numeric-value arg) 0))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
92 (save-excursion
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
93 (widen)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
94 (if (> arg 0)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
95 (forward-page arg)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
96 (if (< arg 0)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
97 (forward-page (1- arg))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
98 ;; Find the end of the page.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
99 (forward-page)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
100 ;; If we stopped due to end of buffer, stay there.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
101 ;; If we stopped after a page delimiter, put end of restriction
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
102 ;; at the beginning of that line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
103 (if (save-excursion
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
104 (goto-char (match-beginning 0)) ; was (beginning-of-line)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
105 (looking-at page-delimiter))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
106 (beginning-of-line))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
107 (narrow-to-region (point)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
108 (progn
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
109 ;; Find the top of the page.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
110 (forward-page -1)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
111 ;; If we found beginning of buffer, stay there.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
112 ;; If extra text follows page delimiter on same line,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
113 ;; include it.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
114 ;; Otherwise, show text starting with following line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
115 (if (and (eolp) (not (bobp)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
116 (forward-line 1))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
117 (point)))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
118 (put 'narrow-to-page 'disabled t)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
119
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
120 (defun count-lines-page ()
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
121 "Report number of lines on current page, and how many are before or after point."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
122 (interactive "_") ; XEmacs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
123 (save-excursion
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
124 (let ((opoint (point)) beg end
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
125 total before after)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
126 (forward-page)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
127 (beginning-of-line)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
128 (or (looking-at page-delimiter)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
129 (end-of-line))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
130 (setq end (point))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
131 (backward-page)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
132 (setq beg (point))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
133 (setq total (count-lines beg end)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
134 before (count-lines beg opoint)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
135 after (count-lines opoint end))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
136 (message "Page has %d lines (%d + %d)" total before after))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
137
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
138 (defun what-page ()
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
139 "Print page and line number of point."
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
140 (interactive "_") ; XEmacs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
141 (save-restriction
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
142 (widen)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
143 (save-excursion
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
144 (beginning-of-line)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
145 (let ((count 1)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
146 (opoint (point)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
147 (goto-char 1)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
148 (while (re-search-forward page-delimiter opoint t)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
149 (setq count (1+ count)))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
150 (message "Page %d, line %d"
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
151 count
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
152 (1+ (count-lines (point) opoint)))))))
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
153
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
154 ;;; Place `provide' at end of file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
155 (provide 'page)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
156
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
157 ;;; page.el ends here