Mercurial > hg > xemacs-beta
comparison lisp/prim/simple.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:50:29 +0200 |
| parents | 9ee227acff29 |
| children | 4103f0995bd7 |
comparison
equal
deleted
inserted
replaced
| 21:b88636d63495 | 22:8fc7fe29b841 |
|---|---|
| 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 (condition-case nil | 1571 (condition-case nil |
| 1572 (line-move arg) | 1572 (line-move arg) |
| 1573 ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) | 1573 ((beginning-of-buffer end-of-buffer) |
| 1574 (when signal-error-on-buffer-boundary | |
| 1575 (ding nil 'buffer-bound)))) | |
| 1574 (line-move arg))) | 1576 (line-move arg))) |
| 1575 nil) | 1577 nil) |
| 1576 | 1578 |
| 1577 (defun previous-line (arg) | 1579 (defun previous-line (arg) |
| 1578 "Move cursor vertically up ARG lines. | 1580 "Move cursor vertically up ARG lines. |
| 1589 to use and more reliable (no dependence on goal column, etc.)." | 1591 to use and more reliable (no dependence on goal column, etc.)." |
| 1590 (interactive "_p") ; XEmacs | 1592 (interactive "_p") ; XEmacs |
| 1591 (if (interactive-p) | 1593 (if (interactive-p) |
| 1592 (condition-case nil | 1594 (condition-case nil |
| 1593 (line-move (- arg)) | 1595 (line-move (- arg)) |
| 1594 ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) | 1596 ((beginning-of-buffer end-of-buffer) |
| 1597 (when signal-error-on-buffer-boundary ; XEmacs | |
| 1598 (ding nil 'buffer-bound)))) | |
| 1595 (line-move (- arg))) | 1599 (line-move (- arg))) |
| 1596 nil) | 1600 nil) |
| 1597 | 1601 |
| 1598 (defconst track-eol nil | 1602 (defconst track-eol nil |
| 1599 "*Non-nil means vertical motion starting at end of line keeps to ends of lines. | 1603 "*Non-nil means vertical motion starting at end of line keeps to ends of lines. |
| 1612 | 1616 |
| 1613 ;XEmacs: not yet ported, so avoid compiler warnings | 1617 ;XEmacs: not yet ported, so avoid compiler warnings |
| 1614 (eval-when-compile | 1618 (eval-when-compile |
| 1615 (defvar inhibit-point-motion-hooks)) | 1619 (defvar inhibit-point-motion-hooks)) |
| 1616 | 1620 |
| 1617 (defvar line-move-ignore-invisible nil | 1621 (defvar line-move-ignore-invisible t |
| 1618 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. | 1622 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. |
| 1619 Outline mode sets this.") | 1623 Outline mode sets this.") |
| 1620 | 1624 |
| 1621 ;; This is the guts of next-line and previous-line. | 1625 ;; This is the guts of next-line and previous-line. |
| 1622 ;; Arg says how many lines to move. | 1626 ;; Arg says how many lines to move. |