[elpa] externals/gcmh 8008009 03/32: some minor fixes

[Andrea Corallo]

branch: externals/gcmh
commit 80080093c786805b91d6f0766f5754d3f72cd65c
Author: Andrea Corallo <andrea_corallo@yahoo.it>
Commit: Andrea Corallo <andrea_corallo@yahoo.it>

    some minor fixes
---
 gcmh.el | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/gcmh.el b/gcmh.el
index 69daea1..041208e 100644
--- a/gcmh.el
+++ b/gcmh.el
@@ -6,8 +6,8 @@
 ;; Package: gcmh
 ;; Homepage: https://gitlab.com/koral/gcmh
 ;; Version: 0.1
-;; Package-Requires:
-;; Keywords: garbage collector, garbage collection
+;; Package-Requires: ((emacs "24"))
+;; Keywords: internal
 
 ;; This file is not part of GNU Emacs.
 
@@ -25,7 +25,7 @@
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 
 ;;; Commentary:
-;; Enforce an optimized Garbage Collection strategy to minimize GC
+;; Enforce an optimized sneaky Garbage Collection strategy to minimize GC
 ;; interference with the user activity.
 ;; A more detailed explanation of the rationale behind this can be found at
 ;; http://akrl.sdf.org/
@@ -46,6 +46,11 @@ paging."
   :group 'gcmh
   :type 'number)
 
+(defcustom gcmh-time-constant 15
+  "Idle time to wait in seconds before triggering GC."
+  :group 'gcmh
+  :type 'number)
+
 (defcustom gcmh-verbose nil
   "If t print a message into when garbage collecting."
   :group 'gcmh
@@ -65,10 +70,10 @@ paging."
 This is to be used with the `pre-command-hook'."
   (setq gc-cons-threshold gcmh-high-cons-threshold))
 
-;;;###autoload
 (define-minor-mode gcmh-mode
   "Minor mode tweak Garbage Colelction strategy."
   :lighter " GCMH"
+  :require 'gcmh
   :global t
   (cond
    (gcmh-mode
@@ -79,13 +84,14 @@ This is to be used with the `pre-command-hook'."
       ;; When idle for 15sec run the GC no matter what.
       (unless gcmh-timer
        (setq gcmh-timer
-             (run-with-idle-timer 15 t
+             (run-with-idle-timer gcmh-time-constant t
                                   (lambda ()
                                     (if gcmh-verbose
                                         (message "Garbage Collector has run 
for %.06fsec"
                                                  (gcmh-time (garbage-collect)))
                                       (garbage-collect))
                                     (setq gc-cons-threshold 
gcmh-low-cons-threshold)))))
+      ;; Release severe GC strategy before the user restart to working
       (add-hook 'pre-command-hook #'gcmh-set-high-threshold)))
    (t (progn
        (setq gc-cons-threshold gcmh-low-cons-threshold)