diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-08 00:23:54 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-08 00:29:44 +0300 |
| commit | cd27f7396b77086b6c02eff5b2648bfba439d264 (patch) | |
| tree | 06de3f787b36640ce7cc35e10dbcc41ff1be577e | |
| parent | 4ffec91aa1fe668609f460cf6377644597c23306 (diff) | |
| download | emacs-cd27f7396b77086b6c02eff5b2648bfba439d264.tar.gz | |
Say 'All results processed' at the end
* lisp/progmodes/xref.el (xref--query-replace-1):
Say 'All results processed' at the end if the user hadn't
cancelled the process (bug#23284).
| -rw-r--r-- | lisp/progmodes/xref.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index f651dc9cd18..05cd97932a3 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -624,7 +624,9 @@ references displayed in the current *xref* buffer." (setq pairs (cdr buf-pairs)) (setq continue (perform-replace from to t t nil nil multi-query-replace-map))) - (unless did-it-once (user-error "No suitable matches here")))) + (unless did-it-once (user-error "No suitable matches here")) + (when (and continue (not buf-pairs)) + (message "All results processed")))) (defvar xref--xref-buffer-mode-map (let ((map (make-sparse-keymap))) |