[elpa] 04/08: Remove duplicate ergoemacs-repeat-movement-full-keymap

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 254e5791380db09a0bb5c9663c3bb6f8e9eafb92
Author: Matthew L. Fidler <address@hidden>
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)