* 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

2 files changed, 12 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7b3c7a1c2c..35e9f44d6c3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 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
         region higher than exiting the minibuffer.
         http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg00904.html
diff --git a/lisp/simple.el b/lisp/simple.el
index b126637904e..73138111cfe 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4003,9 +4003,10 @@ and more reliable (no dependence on goal column, etc.)."
             (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 @@ to use and more reliable (no dependence on goal column, etc.)."
   (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)