emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/ergoemacs-mode b928611 071/325: Remove keyfreq


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode b928611 071/325: Remove keyfreq
Date: Sat, 23 Oct 2021 18:48:24 -0400 (EDT)

branch: externals/ergoemacs-mode
commit b92861100f634fbe7f7f839661e993bafa56a24a
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove keyfreq
---
 ergoemacs-command-loop.el | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 2ab7e28..4e91b05 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -1609,7 +1609,6 @@ Also in the loop, `universal-argument-num-events' is set 
to
 Emacs versions)."
   (interactive)
   (when ergoemacs-mode
-    (ergoemacs-command-loop--execute-rm-keyfreq 'ergoemacs-command-loop)
     ;; Call the startup command
     (when (commandp ergoemacs-command-loop-start)
       (ergoemacs-command-loop--call-interactively ergoemacs-command-loop-start)
@@ -2039,24 +2038,6 @@ pressed the translated key by changing
               (throw 'found-command ret))))))
     ret)))
 
-(defun ergoemacs-command-loop--execute-rm-keyfreq (command)
-  "Remove COMMAND from `keyfreq-mode' counts."
-  (when (featurep 'keyfreq)
-    (when keyfreq-mode
-      (let (count)
-        (setq count (ergoemacs-gethash (cons major-mode command) 
keyfreq-table))
-        (cond
-         ((not count))
-         ((= count 1)
-          (remhash (cons major-mode command) keyfreq-table))
-         (count
-          (puthash (cons major-mode command) (- count 1)
-                   keyfreq-table)))
-        ;; Add local-fn to counter.
-        (setq count (ergoemacs-gethash (cons major-mode command) 
keyfreq-table))
-        (puthash (cons major-mode command) (if count (+ count 1) 1)
-                 keyfreq-table)))))
-
 ;; (3) execute command
 (defun ergoemacs-command-loop--execute (command &optional keys)
   "Execute COMMAND pretending that KEYS were pressed."
@@ -2080,10 +2061,6 @@ pressed the translated key by changing
          (t
           ;; This should be a regular command.
           
-          ;; Remove counting of `this-command' in `keyfreq-mode'
-          ;; Shouldn't be needed any more...
-          ;; (ergoemacs-command-loop--execute-rm-keyfreq this-command)
-          
           ;; This command execute should modify the following variables:
           ;; - `last-repeatable-command'
           ;; - `this-command'



reply via email to

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