[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gcmh f3389e9 26/32: Always use `setf' in place of `setq

From: Andrea Corallo
Subject: [elpa] externals/gcmh f3389e9 26/32: Always use `setf' in place of `setq'
Date: Mon, 16 Nov 2020 17:32:07 -0500 (EST)

branch: externals/gcmh
commit f3389e935d15e5d44e7e7d24c6e89666f03aa356
Author: Andrea Corallo <andrea.corallo@arm.com>
Commit: Andrea Corallo <andrea.corallo@arm.com>

    Always use `setf' in place of `setq'
 gcmh.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gcmh.el b/gcmh.el
index 6c32281..99227b5 100644
--- a/gcmh.el
+++ b/gcmh.el
@@ -78,7 +78,7 @@ time the last non idle garbage collection time."
 (defun gcmh-set-high-threshold ()
   "Set the high GC threshold.
 This is to be used with the `pre-command-hook'."
-  (setq gc-cons-threshold gcmh-high-cons-threshold))
+  (setf gc-cons-threshold gcmh-high-cons-threshold))
 (defvar gcmh-last-gc-time 0.1
   "How long it took to perform the last garbage collection.")
@@ -101,11 +101,11 @@ Cancel the previous one if present."
        (message "Garbage collecting...")
        (condition-case-unless-debug e
            (message "Garbage collecting...done (%.3fs)"
-                    (setq gcmh-last-gc-time (gcmh-time (garbage-collect))))
+                    (setf gcmh-last-gc-time (gcmh-time (garbage-collect))))
          (error (message "Garbage collecting...failed")
                 (signal (car e) (cdr e)))))
-    (setq gcmh-last-gc-time (gcmh-time (garbage-collect))))
-  (setq gc-cons-threshold gcmh-low-cons-threshold))
+    (setf gcmh-last-gc-time (gcmh-time (garbage-collect))))
+  (setf gc-cons-threshold gcmh-low-cons-threshold))
 (define-minor-mode gcmh-mode
@@ -122,7 +122,7 @@ Cancel the previous one if present."
        ;; Release severe GC strategy before the user restart to working
        (add-hook 'pre-command-hook #'gcmh-set-high-threshold)
        (add-hook 'post-command-hook #'gcmh-register-idle-timer))
-    (setq gc-cons-threshold gcmh-low-cons-threshold
+    (setf gc-cons-threshold gcmh-low-cons-threshold
           gcmh-idle-timer nil)
     (remove-hook 'pre-command-hook #'gcmh-set-high-threshold)
     (remove-hook 'post-command-hook #'gcmh-register-idle-timer)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]