Commit 1cd095c6 authored by Juri Linkov's avatar 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
parent 67189e62
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment