procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* simple.el (next-line, previous-line): Re-throw a signal

Browse source 
with `signal' instead of using `ding'.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01432.html
This commit is contained in:
Juri Linkov 2010-03-31 18:16:12 +03:00
parent 67189e6238
commit 1cd095c67c
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

10
lisp/simple.el
View file

@ -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)