Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/prim/simple.el Mon Aug 13 09:12:43 2007 +0200 +++ b/lisp/prim/simple.el Mon Aug 13 09:13:56 2007 +0200 @@ -1568,9 +1568,12 @@ (goto-char opoint) (line-move arg))) (if (interactive-p) + ;; XEmacs: Not sure what to do about this. It's inconsistent. -sb (condition-case nil (line-move arg) - ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) + ((beginning-of-buffer end-of-buffer) + (when signal-error-on-buffer-boundary + (ding nil 'buffer-bound)))) (line-move arg))) nil) @@ -1591,7 +1594,9 @@ (if (interactive-p) (condition-case nil (line-move (- arg)) - ((beginning-of-buffer end-of-buffer) (ding nil 'buffer-bound))) + ((beginning-of-buffer end-of-buffer) + (when signal-error-on-buffer-boundary ; XEmacs + (ding nil 'buffer-bound)))) (line-move (- arg))) nil) @@ -1614,7 +1619,7 @@ (eval-when-compile (defvar inhibit-point-motion-hooks)) -(defvar line-move-ignore-invisible nil +(defvar line-move-ignore-invisible t "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. Outline mode sets this.")