diff options
author | Marko Bencun <mbencun@gmail.com> | 2015-03-29 14:12:28 +0200 |
---|---|---|
committer | Syohei YOSHIDA <syohex@gmail.com> | 2015-03-29 23:17:13 +0900 |
commit | 72cf6913669da70b58a9b35f588417043eb0d628 (patch) | |
tree | 5756cc68fdae872e24664158f8b410d0f387517e | |
parent | 8106cebb59001f7eeec105e79e50f74bde6e93af (diff) |
Fix exception when formatting certain errors.
vr--format-errors was not used when it should have been used.
-rw-r--r-- | visual-regexp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/visual-regexp.el b/visual-regexp.el index 7fa239d..754099f 100644 --- a/visual-regexp.el +++ b/visual-regexp.el @@ -495,7 +495,7 @@ visible all the time in the minibuffer." (progn (setq regexp-string (vr--get-regexp-string)) (vr--feedback-function t vr--feedback-limit 'vr--feedback-match-callback)) - (error (car (cdr err)))))) + (error (vr--format-error err))))) (unless inhibit-message (let ((msg (vr--compose-messages message-line (when limit-reached (format "%s matches shown, hit C-c a to show all" vr--feedback-limit))))) (unless (string= "" msg) @@ -580,7 +580,7 @@ visible all the time in the minibuffer." (setq replacements (list)) (setq looping nil)))))))) (invalid-regexp (setq message-line (car (cdr err)))) - (error (setq message-line (car (cdr err))))) + (error (setq message-line (vr--format-error err)))) (if feedback (if (string= "" message-line) (setq message-line (vr--compose-messages (format "%s matches" i) (when limit-reached (format "%s matches shown, hit C-c a to show all" feedback-limit))))) |