From: Juri Linkov Date: Wed, 31 Mar 2010 15:16:12 +0000 (+0300) Subject: * simple.el (next-line, previous-line): Re-throw a signal X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~612 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cd095c67cd41cf73cf5a382c261d16b9ec2e25e;p=emacs.git * 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 --git a/lisp/ChangeLog b/lisp/ChangeLog index f7b3c7a1c2c..35e9f44d6c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-03-31 Juri Linkov + + * 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 * simple.el (keyboard-escape-quit): Raise deselecting the active 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)