branch: externals/ergoemacs-mode
commit b92861100f634fbe7f7f839661e993bafa56a24a
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@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'
