Mercurial > emacs
changeset 107721:9b2eadc063cc
* 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
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 31 Mar 2010 18:16:12 +0300 |
| parents | f0a2ddb8569a |
| children | 98f7a4103e8e |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)