[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode d297724 045/325: Remove ergoemacs-comman
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode d297724 045/325: Remove ergoemacs-command-loop--modal and ergoemacs-command-loop--modal-show |
Date: |
Sat, 23 Oct 2021 18:48:18 -0400 (EDT) |
branch: externals/ergoemacs-mode
commit d2977244a56767ec95b82f2939b67a3090aff225
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>
Remove ergoemacs-command-loop--modal and ergoemacs-command-loop--modal-show
---
ergoemacs-command-loop.el | 32 --------------------------------
ergoemacs-map.el | 3 +--
2 files changed, 1 insertion(+), 34 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 7bcfda9..299eaa2 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -184,38 +184,6 @@ ignore the post-command hooks.")
(defvar ergoemacs-keymap)
-(defun ergoemacs-command-loop--modal-show ()
- "Show modal translation.
-Returns the mode-line text."
- (let (tmp color text)
- (ergoemacs-save-buffer-state
- (cond
- ((setq tmp nil)
- (setq color (ergoemacs-translation-struct-modal-color tmp))
- (if color
- (set-cursor-color color)
- (when ergoemacs-default-cursor-color
- (set-cursor-color ergoemacs-default-cursor-color)))
- (setq text (ergoemacs-translation-struct-text tmp))
- (when (functionp text)
- (setq text (funcall text)))
- (if text
- (ergoemacs-mode-line ;; Indicate Alt+ in mode-line
- text)
- (ergoemacs-mode-line))
- (or text "Unnamed"))
- (t
- (when ergoemacs-default-cursor-color
- (set-cursor-color ergoemacs-default-cursor-color))
- (ergoemacs-mode-line)
- nil)))))
-
-(defun ergoemacs-command-loop--modal (type)
- "Toggle ergoemacs command modes.
-
-The TYPE is the type of command translation/modal keymaps that are installed."
- nil)
-
(defun ergoemacs-command-loop--redefine-quit-key (&optional key)
"Redefines the quit-key in Emacs to KEY or Ctrl+g.
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 8702952..4c5505a 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -68,7 +68,6 @@
(declare-function ergoemacs-warn "ergoemacs-lib")
(declare-function ergoemacs-setcdr "ergoemacs-lib")
-(declare-function ergoemacs-command-loop--modal "ergoemacs-command-loop")
(declare-function ergoemacs-command-loop--spinner-display
"ergoemacs-command-loop")
(declare-function ergoemacs-component-struct--create-hooks
"ergoemacs-component")
@@ -897,7 +896,7 @@ modifications to that keymap."
((memq 'add-keymap-witness lookup-keymap) ;; Don't translate complete
tranisent maps.
lookup-keymap)
((and lookup-keymap (symbolp lookup-keymap) (ergoemacs-gethash
lookup-keymap ergoemacs-translation-hash))
- (ergoemacs-command-loop--modal lookup-keymap))
+ nil)
((consp (ergoemacs lookup-keymap :map-key)) ;; Ignore already installed.
lookup-keymap)
((and lookup-keymap (ergoemacs lookup-keymap :dont-modify-p))
- [elpa] externals/ergoemacs-mode bb77fa2 131/325: Replace ergoemacs-print-buffer-confirm with pr-interface everywhere, (continued)
- [elpa] externals/ergoemacs-mode bb77fa2 131/325: Replace ergoemacs-print-buffer-confirm with pr-interface everywhere, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 4f43e90 001/325: Add a whole bunch of keybindings, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f58f7d8 008/325: Replace all cl with cl-lib, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 89b618b 004/325: Merge branch 'master' into ergoterm, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 21cab2a 006/325: Merge branch 'master' into ergoterm, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 57bbe7d 005/325: Revert "Remove shift translation, instead directly binding those keys", Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode fccae9b 029/325: Remove ensure functions, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 45a2ec3 034/325: Remove unused 'require, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3c793e3 035/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 46f027f 042/325: More modal removal, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode d297724 045/325: Remove ergoemacs-command-loop--modal and ergoemacs-command-loop--modal-show,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode 71e949b 063/325: Remove dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3729fbd 055/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 49360a1 017/325: Remove ergoemacs-redo since it only exists to download undo-tree, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e9ec38d 011/325: Remove dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b20b8ae 033/325: Remove :mode and unused macro properties, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5fbcf0c 048/325: Remove unchorded stuff and related tests, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode c53e573 056/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5b285ea 057/325: Run everything immediately, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b16e51c 068/325: Remove unused diminish functions, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e7a914b 094/325: Remove ctl-to-alt, Stefan Monnier, 2021/10/23