Mercurial > hg > xemacs-beta
comparison lisp/prim/simple.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | 1ce6082ce73f |
| children | 4be1180a9e89 |
comparison
equal
deleted
inserted
replaced
| 97:498bf5da1c90 | 98:0d2f883870bc |
|---|---|
| 1566 (if (eobp) | 1566 (if (eobp) |
| 1567 (newline 1) | 1567 (newline 1) |
| 1568 (goto-char opoint) | 1568 (goto-char opoint) |
| 1569 (line-move arg))) | 1569 (line-move arg))) |
| 1570 (if (interactive-p) | 1570 (if (interactive-p) |
| 1571 ;; XEmacs: Not sure what to do about this. It's inconsistent. -sb | |
| 1571 (condition-case nil | 1572 (condition-case nil |
| 1572 (line-move arg) | 1573 (line-move arg) |
| 1573 ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) | 1574 ((beginning-of-buffer end-of-buffer) |
| 1575 (when signal-error-on-buffer-boundary | |
| 1576 (ding nil 'buffer-bound)))) | |
| 1574 (line-move arg))) | 1577 (line-move arg))) |
| 1575 nil) | 1578 nil) |
| 1576 | 1579 |
| 1577 (defun previous-line (arg) | 1580 (defun previous-line (arg) |
| 1578 "Move cursor vertically up ARG lines. | 1581 "Move cursor vertically up ARG lines. |
| 1589 to use and more reliable (no dependence on goal column, etc.)." | 1592 to use and more reliable (no dependence on goal column, etc.)." |
| 1590 (interactive "_p") ; XEmacs | 1593 (interactive "_p") ; XEmacs |
| 1591 (if (interactive-p) | 1594 (if (interactive-p) |
| 1592 (condition-case nil | 1595 (condition-case nil |
| 1593 (line-move (- arg)) | 1596 (line-move (- arg)) |
| 1594 ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) | 1597 ((beginning-of-buffer end-of-buffer) |
| 1598 (when signal-error-on-buffer-boundary ; XEmacs | |
| 1599 (ding nil 'buffer-bound)))) | |
| 1595 (line-move (- arg))) | 1600 (line-move (- arg))) |
| 1596 nil) | 1601 nil) |
| 1597 | 1602 |
| 1598 (defconst track-eol nil | 1603 (defconst track-eol nil |
| 1599 "*Non-nil means vertical motion starting at end of line keeps to ends of lines. | 1604 "*Non-nil means vertical motion starting at end of line keeps to ends of lines. |
| 1612 | 1617 |
| 1613 ;XEmacs: not yet ported, so avoid compiler warnings | 1618 ;XEmacs: not yet ported, so avoid compiler warnings |
| 1614 (eval-when-compile | 1619 (eval-when-compile |
| 1615 (defvar inhibit-point-motion-hooks)) | 1620 (defvar inhibit-point-motion-hooks)) |
| 1616 | 1621 |
| 1617 (defvar line-move-ignore-invisible nil | 1622 (defvar line-move-ignore-invisible t |
| 1618 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. | 1623 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. |
| 1619 Outline mode sets this.") | 1624 Outline mode sets this.") |
| 1620 | 1625 |
| 1621 ;; This is the guts of next-line and previous-line. | 1626 ;; This is the guts of next-line and previous-line. |
| 1622 ;; Arg says how many lines to move. | 1627 ;; Arg says how many lines to move. |