# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1270048572 -10800
# Node ID 9b2eadc063ccdbea1d8c20d0535686edf14d4a7a
# Parent  f0a2ddb8569a9196ae40cf751a7e22fd0178ff83
* simple.el (next-line, previous-line): Re-throw a signal
with `signal' instead of using `ding'.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01432.html

diff -r f0a2ddb8569a -r 9b2eadc063cc lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 31 18:02:53 2010 +0300
+++ b/lisp/ChangeLog	Wed Mar 31 18:16:12 2010 +0300
@@ -1,3 +1,9 @@
+2010-03-31  Juri Linkov  <juri@jurta.org>
+
+	* simple.el (next-line, previous-line): Re-throw a signal
+	with `signal' instead of using `ding'.
+	http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01432.html
+
 2010-03-31  Juri Linkov  <juri@jurta.org>
 
 	* simple.el (keyboard-escape-quit): Raise deselecting the active
diff -r f0a2ddb8569a -r 9b2eadc063cc lisp/simple.el
--- a/lisp/simple.el	Wed Mar 31 18:02:53 2010 +0300
+++ b/lisp/simple.el	Wed Mar 31 18:16:12 2010 +0300
@@ -4003,9 +4003,10 @@
 	    (insert (if use-hard-newlines hard-newline "\n")))
 	(line-move arg nil nil try-vscroll))
     (if (called-interactively-p 'interactive)
-	(condition-case nil
+	(condition-case err
 	    (line-move arg nil nil try-vscroll)
-	  ((beginning-of-buffer end-of-buffer) (ding)))
+	  ((beginning-of-buffer end-of-buffer)
+	   (signal (car err) (cdr err))))
       (line-move arg nil nil try-vscroll)))
   nil)
 
@@ -4033,9 +4034,10 @@
   (interactive "^p\np")
   (or arg (setq arg 1))
   (if (called-interactively-p 'interactive)
-      (condition-case nil
+      (condition-case err
 	  (line-move (- arg) nil nil try-vscroll)
-	((beginning-of-buffer end-of-buffer) (ding)))
+	((beginning-of-buffer end-of-buffer)
+	 (signal (car err) (cdr err))))
     (line-move (- arg) nil nil try-vscroll))
   nil)