Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/prim/simple.el Mon Aug 13 08:50:06 2007 +0200 +++ b/lisp/prim/simple.el Mon Aug 13 08:50:29 2007 +0200 @@ -1570,7 +1570,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 + (ding nil 'buffer-bound)))) (line-move arg))) nil) @@ -1591,7 +1593,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 +1618,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.")