diff options
| author | Christopher Wellons <wellons@nullprogram.com> | 2019-03-09 15:49:49 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-09 15:49:49 -0500 |
| commit | dfc805532d77a3553a2eb6cb7035a041a8db848d (patch) | |
| tree | 3d69e7ec9ef76a93b7bdeac7bc90f1721f167a11 /lisp/emulation/viper-ex.el | |
| parent | 7073db2b64726e4970e5a62bad01c49b68582178 (diff) | |
| download | emacs-dfc805532d77a3553a2eb6cb7035a041a8db848d.tar.gz emacs-dfc805532d77a3553a2eb6cb7035a041a8db848d.tar.bz2 emacs-dfc805532d77a3553a2eb6cb7035a041a8db848d.zip | |
* list/emulation/viper: Use user-error for "Viper bell"
Copyright-paperwork-exempt: yes
* lisp/emulation/viper-init.el (viper-ViperBell): New constant.
* lisp/emulation/viper-cmd.el (viper-prefix-arg-com)
(viper-forward-char, viper-backward-char, viper-goto-col)
(viper-find-char, viper-paren-match, viper-put-back, viper-Put-back)
(viper-delete-char, viper-mark-point, viper-goto-mark-subr):
* lisp/emulation/viper-ex.el (ex-delete): Use it and `user-error`.
Diffstat (limited to 'lisp/emulation/viper-ex.el')
| -rw-r--r-- | lisp/emulation/viper-ex.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index 4496f1cf7d5..f5090573c86 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el @@ -1240,7 +1240,7 @@ reversed." (read-string "[Hit return to confirm] ") (quit (save-excursion (kill-buffer " *delete text*")) - (error "Viper bell"))) + (user-error viper-ViperBell))) (save-excursion (kill-buffer " *delete text*"))) (if ex-buffer (cond ((viper-valid-register ex-buffer '(Letter)) |