branch: externals/gcmh
commit 8867533a736f2098917904c26fd833feca2310a5
Author: Andrea Corallo <[email protected]>
Commit: Andrea Corallo <[email protected]>
Improve messaging
---
gcmh.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/gcmh.el b/gcmh.el
index bbccbc9..d78b505 100644
--- a/gcmh.el
+++ b/gcmh.el
@@ -75,11 +75,14 @@ This is to be used with the `pre-command-hook'."
(defun gcmh-idle-garbage-collect ()
"Run garbage collection after `gcmh-idle-delay'."
(if gcmh-verbose
- (progn (message "Garbage collecting...")
- (message "Garbage Collector ran for %.06f sec"
- (gcmh-time (garbage-collect))))
- (garbage-collect))
- (setq gc-cons-threshold gcmh-low-cons-threshold))
+ (progn
+ (message "Garbage collecting...")
+ (condition-case-unless-debug e
+ (message "Garbage collecting...done (%.3fs)"
+ (gcmh-time (garbage-collect)))
+ (error (message "Garbage collecting...failed")
+ (signal (car e) (cdr e)))))
+ (garbage-collect)))
;;;###autoload
(define-minor-mode gcmh-mode
