diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2000-10-30 15:09:47 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2000-10-30 15:09:47 +0000 |
commit | 789ebec340ac001c5f7551527b8f5a2216489708 (patch) | |
tree | d4555f8220e059996111700fad56703a05c55a6a /lisp | |
parent | 696f35f9b94146f90be79c2294cbb49d1883a28c (diff) |
(display-message 'progress mess) does not exist for FSF Emacs,
therefore we polluted the message log by calling (message mess).
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/bbdb-vm.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/bbdb-vm.el b/lisp/bbdb-vm.el index 486516e..d11b2b0 100644 --- a/lisp/bbdb-vm.el +++ b/lisp/bbdb-vm.el @@ -178,10 +178,11 @@ C-g again it will stop scanning." processed-addresses (+ processed-addresses 1)) (when (and (not (eq bbdb/vm-offer-to-create 'quit)) (= 0 (% processed-addresses 5))) - (display-message 'progress - (format "Hit C-g to stop BBDB from %s. %d of %d addresses processed." bbdb/vm-update-records-mode processed-addresses (length addrs))) - (sit-for 0)) - ) + (let ((mess (format "Hit C-g to stop BBDB from %s. %d of %d addresses processed." bbdb/vm-update-records-mode processed-addresses (length addrs)))) + (if vm-xemacs-p + (display-message 'progress mess) + (message mess)) + (sit-for 0)))) (quit (cond ((eq bbdb/vm-update-records-mode 'annotating) (setq bbdb/vm-update-records-mode |