diff options
| author | Mark Oteiza | 2017-03-19 20:20:45 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-03-19 20:20:45 -0400 |
| commit | 715962e5c416b62c1deea0bec16c88ae9c63674e (patch) | |
| tree | 6832eed303084e68e9309afcd86eef79d0bbd0c2 | |
| parent | fa90c5e86e2b11e89c6a1d709e25003a60656f0d (diff) | |
| download | emacs-715962e5c416b62c1deea0bec16c88ae9c63674e.tar.gz emacs-715962e5c416b62c1deea0bec16c88ae9c63674e.zip | |
* lisp/button.el (forward-button): Use user-error instead.
| -rw-r--r-- | lisp/button.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/button.el b/lisp/button.el index c39e4f97c13..b04bc283e40 100644 --- a/lisp/button.el +++ b/lisp/button.el | |||
| @@ -493,7 +493,7 @@ Returns the button found." | |||
| 493 | (unless (button-get button 'skip) | 493 | (unless (button-get button 'skip) |
| 494 | (setq n (1- n))))))) | 494 | (setq n (1- n))))))) |
| 495 | (if (null button) | 495 | (if (null button) |
| 496 | (error (if wrap "No buttons!" "No more buttons")) | 496 | (user-error (if wrap "No buttons!" "No more buttons")) |
| 497 | (let ((msg (and display-message (button-get button 'help-echo)))) | 497 | (let ((msg (and display-message (button-get button 'help-echo)))) |
| 498 | (when msg | 498 | (when msg |
| 499 | (message "%s" msg))) | 499 | (message "%s" msg))) |