[Emacs-diffs] /srv/bzr/emacs/trunk r99793: * simple.el (next-line, previous-line): Re-throw a signal

[Juri Linkov]

------------------------------------------------------------
revno: 99793
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Wed 2010-03-31 18:16:12 +0300
message:
  * 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
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-31 15:02:53 +0000
+++ b/lisp/ChangeLog    2010-03-31 15:16:12 +0000
@@ -1,5 +1,11 @@
 2010-03-31  Juri Linkov  <address@hidden>
 
+       * 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  <address@hidden>
+
        * 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

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2010-03-31 15:02:53 +0000
+++ b/lisp/simple.el    2010-03-31 15:16:12 +0000
@@ -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)