mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 254e5791380db09a0bb5c9663c3bb6f8e9eafb92 Author: Matthew L. Fidler <[email protected]> Date: Sat Jul 5 23:52:00 2014 -0500 Remove duplicate ergoemacs-repeat-movement-full-keymap --- ergoemacs-mode.el | 19 ------------------- 1 files changed, 0 insertions(+), 19 deletions(-) diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el index f48b3af..d8ad4ac 100644 --- a/ergoemacs-mode.el +++ b/ergoemacs-mode.el @@ -233,25 +233,6 @@ Valid values are: (const :tag "Allow fast repeat command of the current movement command" single) (const :tag "Allow fast repeat of all movement commands" all))) -(defun ergoemacs-repeat-movement-full-keymap () - "Allow movement commands to be repeated without pressing the ALT key" - (let (ergoemacs-modal - ergoemacs-repeat-keys - ergoemacs-read-input-keys - (keymap (make-sparse-keymap))) - (dolist (key (append (where-is-internal 'ergoemacs-shortcut-movement) - (where-is-internal 'ergoemacs-shortcut-movement-no-shift-select))) - (when (= 1 (length key)) - (let ((mods (event-modifiers (elt key 0)))) - (when (memq 'meta mods) - (define-key keymap - (vector - (event-convert-list - (append (delete 'meta mods) - (list (event-basic-type (elt key 0)))))) - `(lambda() (interactive) (ergoemacs-read-key ,(key-description key)))))))) - keymap)) - (defvar ergoemacs-curr-prefix-arg nil) (defvar ergoemacs-repeat-keys nil) (defvar ergoemacs-shortcut-keys nil)
