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.")