Will not label a composed map's members

[sg2002]

This is something that I found while looking for a different bug. Let's assume our init file looks like this:

(require 'package)
(package-initialize)
(add-to-list 'load-path "~/.emacs.d/user-lisp/ergoemacs-mode/")
;(require 'tramp)
(require 'ergoemacs-mode)
(ergoemacs-mode 1)

If we uncomment (require 'tramp) and restart emacs, we would get this error. If we restart again, emacs would start normally. Comment out (require 'tramp) and it's broken again on next restart. Restarting again fixes it. It seems this only happens when require is done before (require 'ergoemacs-mode) and this happens for any require, not just tramp.

Here's the stack trace I get:

Debugger entered--Lisp error: (error "Will not label a composed map's members to -536870912")
  signal(error ("Will not label a composed map's members to -536870912"))
  error("Will not label a composed map's members to %s" -536870912)
  (cond (map-key (error "Will not label a composed map's members to %s" map-key)) (t (let ((--dolist-tail-- (ergoemacs-map-properties--composed-list keymap))) (while --dolist-tail-- (let ((map (car --dolist-tail--))) (ergoemacs-map-properties--label map map-key) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (if (ergoemacs-map-properties--composed-p keymap) (cond (map-key (error "Will not label a composed map's members to %s" map-key)) (t (let ((--dolist-tail-- (ergoemacs-map-properties--composed-list keymap))) (while --dolist-tail-- (let ((map ...)) (ergoemacs-map-properties--label map map-key) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((map keymap) (map-key (or map-key (ergoemacs-map-properties--get-or-generate-map-key map))) char-table indirect-p old-plist (parent (keymap-parent map)) label tmp1 tmp2) (unwind-protect (progn (condition-case nil (progn (set-keymap-parent map nil)) (error nil)) (if (condition-case nil (progn (keymapp ...)) (error nil)) (setq indirect-p t old-plist (and ergoemacs-map-properties--indirect-keymaps (hash-table-p ergoemacs-map-properties--indirect-keymaps) (gethash keymap ergoemacs-map-properties--indirect-keymaps nil))) (setq old-plist (lookup-key map [ergoemacs-labeled])) (if (eq (car map) (quote keymap)) (setq map (cdr map)) (setq map (list map))) (if (condition-case nil (progn ...) (error nil)) (progn (setq char-table ...))) (if (stringp (car map)) (progn (setq label ...))) (setq tmp1 (quote nil) tmp2 nil) (if old-plist (progn (setq old-plist ...) (while ... ... ...) (while tmp1 ...)))) (setq old-plist (list :map-key map-key)) (if indirect-p nil (setq map (cons (cons ... ...) map))) (if indirect-p nil (if label (progn (setq map ...))) (if char-table (progn (setq map ...))) (setq map (cons (quote keymap) map)))) (condition-case nil (progn (set-keymap-parent map parent)) (error nil))) (if indirect-p (puthash keymap old-plist ergoemacs-map-properties--indirect-keymaps) (if (condition-case nil (progn (ergoemacs-setcdr keymap (cdr map))) (error nil)) nil (let* ((var (cons old-plist ...))) (if (memql var ergoemacs-map-properties--const-keymaps) (with-no-warnings ergoemacs-map-properties--const-keymaps) (setq ergoemacs-map-properties--const-keymaps (cons var ergoemacs-map-properties--const-keymaps)))))) map))
  (if (not (condition-case nil (progn (keymapp keymap)) (error nil))) nil (if (ergoemacs-map-properties--composed-p keymap) (cond (map-key (error "Will not label a composed map's members to %s" map-key)) (t (let ((--dolist-tail-- (ergoemacs-map-properties--composed-list keymap))) (while --dolist-tail-- (let (...) (ergoemacs-map-properties--label map map-key) (setq --dolist-tail-- ...)))))) (let* ((map keymap) (map-key (or map-key (ergoemacs-map-properties--get-or-generate-map-key map))) char-table indirect-p old-plist (parent (keymap-parent map)) label tmp1 tmp2) (unwind-protect (progn (condition-case nil (progn (set-keymap-parent map nil)) (error nil)) (if (condition-case nil (progn ...) (error nil)) (setq indirect-p t old-plist (and ergoemacs-map-properties--indirect-keymaps ... ...)) (setq old-plist (lookup-key map [ergoemacs-labeled])) (if (eq ... ...) (setq map ...) (setq map ...)) (if (condition-case nil ... ...) (progn ...)) (if (stringp ...) (progn ...)) (setq tmp1 (quote nil) tmp2 nil) (if old-plist (progn ... ... ...))) (setq old-plist (list :map-key map-key)) (if indirect-p nil (setq map (cons ... map))) (if indirect-p nil (if label (progn ...)) (if char-table (progn ...)) (setq map (cons ... map)))) (condition-case nil (progn (set-keymap-parent map parent)) (error nil))) (if indirect-p (puthash keymap old-plist ergoemacs-map-properties--indirect-keymaps) (if (condition-case nil (progn (ergoemacs-setcdr keymap ...)) (error nil)) nil (let* ((var ...)) (if (memql var ergoemacs-map-properties--const-keymaps) (with-no-warnings ergoemacs-map-properties--const-keymaps) (setq ergoemacs-map-properties--const-keymaps ...))))) map)))
  ergoemacs-map-properties--label((keymap (keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) user))))) keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870912))) (S-mouse-3 . kmacro-end-call-mouse) (C-wheel-down . mwheel-scroll) (S-wheel-down . mwheel-scroll) (wheel-down . mwheel-scroll) (C-wheel-up . mwheel-scroll) (S-wheel-up . mwheel-scroll) (wheel-up . mwheel-scroll) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (rwindow . ignore) (lwindow . ignore) (language-change . ignore) (C-drag-n-drop . w32-drag-n-drop-other-frame) (drag-n-drop . w32-drag-n-drop) (tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap) (f10 . menu-bar-open) (bottom-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870754))) (down-mouse-1 . mouse-drag-mode-line)) (right-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870753))) (down-mouse-1 . mouse-drag-vertical-line)) (vertical-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870752))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870751))) (mouse-1 . scroll-bar-toolkit-scroll) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870750))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870749))) (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil (quote menu-bar-lines)) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) (S-down-mouse-1 . mouse-appearance-menu) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-primary) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (M-f10 . toggle-frame-maximized) (f11 . toggle-frame-fullscreen) (compose-last-chars . compose-last-chars) ...) -536870912)
  (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote global-map)) (ergoemacs-map-properties--label global-map -536870912))
  (if (boundp (quote global-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote global-map)) (ergoemacs-map-properties--label global-map -536870912)))
  (lambda nil (if (boundp (quote global-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote global-map)) (ergoemacs-map-properties--label global-map -536870912))))()
  eval-after-load("subr" (lambda nil (if (boundp (quote global-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote global-map)) (ergoemacs-map-properties--label global-map -536870912)))))
  (progn (eval-after-load "facemenu" (function (lambda nil (if (boundp (quote facemenu-foreground-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote facemenu-foreground-menu)) (ergoemacs-map-properties--label facemenu-foreground-menu -536870777)))))) (eval-after-load "wid-edit" (function (lambda nil (if (boundp (quote widget-key-sequence-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote widget-key-sequence-map)) (ergoemacs-map-properties--label widget-key-sequence-map -536870778)))))) (eval-after-load "cus-edit" (function (lambda nil (if (boundp (quote custom-field-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote custom-field-keymap)) (ergoemacs-map-properties--label custom-field-keymap -536870779)))))) (eval-after-load "isearch" (function (lambda nil (if (boundp (quote isearch-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote isearch-mode-map)) (ergoemacs-map-properties--label isearch-mode-map -536870780)))))) (eval-after-load "ediff-hook" (function (lambda nil (if (boundp (quote menu-bar-ediff-merge-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-ediff-merge-menu)) (ergoemacs-map-properties--label menu-bar-ediff-merge-menu -536870781)))))) (eval-after-load "mule-cmds" (function (lambda nil (if (boundp (quote mule-menu-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mule-menu-keymap)) (ergoemacs-map-properties--label mule-menu-keymap -536870782)))))) (eval-after-load "tabulated-list" (function (lambda nil (if (boundp (quote tabulated-list-sort-button-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote tabulated-list-sort-button-map)) (ergoemacs-map-properties--label tabulated-list-sort-button-map -536870783)))))) (eval-after-load "subr" (function (lambda nil (if (boundp (quote ctl-x-4-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote ctl-x-4-map)) (ergoemacs-map-properties--label ctl-x-4-map -536870784)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote mode-line-coding-system-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mode-line-coding-system-map)) (ergoemacs-map-properties--label mode-line-coding-system-map -536870785)))))) (eval-after-load "help-mode" (function (lambda nil (if (boundp (quote help-mode-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote help-mode-menu)) (ergoemacs-map-properties--label help-mode-menu -536870786)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote abbrev-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote abbrev-map)) (ergoemacs-map-properties--label abbrev-map -536870787)))))) (eval-after-load "wid-edit" (function (lambda nil (if (boundp (quote widget-global-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote widget-global-map)) (ergoemacs-map-properties--label widget-global-map -536870912)))))) (eval-after-load "menu-bar" (function (lambda nil (if (boundp (quote menu-bar-showhide-fringe-ind-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-showhide-fringe-ind-menu)) (ergoemacs-map-properties--label menu-bar-showhide-fringe-ind-menu -536870790)))))) (eval-after-load "menu-bar" (function (lambda nil (if (boundp (quote menu-bar-options-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-options-menu)) (ergoemacs-map-properties--label menu-bar-options-menu -536870791)))))) (eval-after-load "mule-cmds" (function (lambda nil (if (boundp (quote mule-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mule-keymap)) (ergoemacs-map-properties--label mule-keymap -536870792)))))) (eval-after-load "kmacro" (function (lambda nil (if (boundp (quote kmacro-step-edit-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote kmacro-step-edit-map)) (ergoemacs-map-properties--label kmacro-step-edit-map -536870793)))))) (eval-after-load "simple" (function (lambda nil (if (boundp (quote completion-list-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote completion-list-mode-map)) (ergoemacs-map-properties--label completion-list-mode-map -536870794)))))) (eval-after-load "mule-cmds" (function (lambda nil (if (boundp (quote set-coding-system-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote set-coding-system-map)) (ergoemacs-map-properties--label set-coding-system-map -536870795)))))) (eval-after-load "bookmark" (function (lambda nil (if (boundp (quote menu-bar-bookmark-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-bookmark-map)) (ergoemacs-map-properties--label menu-bar-bookmark-map -536870796)))))) (eval-after-load "abbrev" (function (lambda nil (if (boundp (quote edit-abbrevs-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote edit-abbrevs-mode-map)) (ergoemacs-map-properties--label edit-abbrevs-mode-map -536870852)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote ctl-x-r-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote ctl-x-r-map)) (ergoemacs-map-properties--label ctl-x-r-map -536870799)))))) (eval-after-load "ergoemacs-translate" (function (lambda nil (if (boundp (quote ergoemacs-translate--parent-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote ergoemacs-translate--parent-map)) (ergoemacs-map-properties--label ergoemacs-translate--parent-map 536870910)))))) (eval-after-load "lisp-mode" (function (lambda nil (if (boundp (quote lisp-mode-shared-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote lisp-mode-shared-map)) (ergoemacs-map-properties--label lisp-mode-shared-map -536870800)))))) (eval-after-load "edmacro" (function (lambda nil (if (boundp (quote edmacro-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote edmacro-mode-map)) (ergoemacs-map-properties--label edmacro-mode-map -536870801)))))) (eval-after-load "replace" (function (lambda nil (if (boundp (quote query-replace-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote query-replace-map)) (ergoemacs-map-properties--label query-replace-map -536870802)))))) (eval-after-load "menu-bar" (function (lambda nil (if (boundp (quote menu-bar-edit-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-edit-menu)) (ergoemacs-map-properties--label menu-bar-edit-menu -536870803)))))) (eval-after-load "menu-bar" (function (lambda nil (if (boundp (quote menu-bar-encryption-decryption-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-encryption-decryption-menu)) (ergoemacs-map-properties--label menu-bar-encryption-decryption-menu -536870804)))))) (eval-after-load "kmacro" (function (lambda nil (if (boundp (quote kmacro-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote kmacro-keymap)) (ergoemacs-map-properties--label kmacro-keymap -536870805)))))) (eval-after-load "menu-bar" (function (lambda nil (if (boundp (quote menu-bar-replace-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote menu-bar-replace-menu)) (ergoemacs-map-properties--label menu-bar-replace-menu -536870807)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote narrow-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote narrow-map)) (ergoemacs-map-properties--label narrow-map -536870808)))))) (eval-after-load "indent" (function (lambda nil (if (boundp (quote indent-rigidly-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote indent-rigidly-map)) (ergoemacs-map-properties--label indent-rigidly-map -536870809)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote mode-line-input-method-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mode-line-input-method-map)) (ergoemacs-map-properties--label mode-line-input-method-map -536870810)))))) (eval-after-load "buff-menu" (function (lambda nil (if (boundp (quote Buffer-menu-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote Buffer-menu-mode-map)) (ergoemacs-map-properties--label Buffer-menu-mode-map -536870811)))))) (eval-after-load "cus-edit" (function (lambda nil (if (boundp (quote custom-mode-link-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote custom-mode-link-map)) (ergoemacs-map-properties--label custom-mode-link-map -536870812)))))) (eval-after-load "wid-edit" (function (lambda nil (if (boundp (quote widget-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote widget-keymap)) (ergoemacs-map-properties--label widget-keymap -536870813)))))) (eval-after-load "lisp-mode" (function (lambda nil (if (boundp (quote lisp-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote lisp-mode-map)) (ergoemacs-map-properties--label lisp-mode-map -536870814)))))) (eval-after-load "isearch" (function (lambda nil (if (boundp (quote minibuffer-local-isearch-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote minibuffer-local-isearch-map)) (ergoemacs-map-properties--label minibuffer-local-isearch-map -536870815)))))) (eval-after-load "ergoemacs-mode" (function (lambda nil (if (boundp (quote ergoemacs-map-properties--global-map-before-ergoemacs)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote ergoemacs-map-properties--global-map-before-ergoemacs)) (ergoemacs-map-properties--label ergoemacs-map-properties--global-map-before-ergoemacs -536870816)))))) (eval-after-load "facemenu" (function (lambda nil (if (boundp (quote facemenu-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote facemenu-keymap)) (ergoemacs-map-properties--label facemenu-keymap -536870817)))))) (eval-after-load "minibuffer" (function (lambda nil (if (boundp (quote minibuffer-local-completion-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote minibuffer-local-completion-map)) (ergoemacs-map-properties--label minibuffer-local-completion-map -536870818)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote mode-line-buffer-identification-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mode-line-buffer-identification-keymap)) (ergoemacs-map-properties--label mode-line-buffer-identification-keymap -536870819)))))) (eval-after-load "text-mode" (function (lambda nil (if (boundp (quote text-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote text-mode-map)) (ergoemacs-map-properties--label text-mode-map -536870820)))))) (eval-after-load "simple" (function (lambda nil (if (boundp (quote universal-argument-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote universal-argument-map)) (ergoemacs-map-properties--label universal-argument-map -536870821)))))) (eval-after-load "facemenu" (function (lambda nil (if (boundp (quote facemenu-menu)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote facemenu-menu)) (ergoemacs-map-properties--label facemenu-menu -536870823)))))) (eval-after-load "wid-edit" (function (lambda nil (if (boundp (quote widget-text-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote widget-text-keymap)) (ergoemacs-map-properties--label widget-text-keymap -536870824)))))) (eval-after-load "package" (function (lambda nil (if (boundp (quote package-menu-mode-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote package-menu-mode-map)) (ergoemacs-map-properties--label package-menu-mode-map -536870825)))))) (eval-after-load "button" (function (lambda nil (if (boundp (quote button-buffer-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote button-buffer-map)) (ergoemacs-map-properties--label button-buffer-map -536870826)))))) (eval-after-load "bindings" (function (lambda nil (if (boundp (quote mode-line-major-mode-keymap)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote mode-line-major-mode-keymap)) (ergoemacs-map-properties--label mode-line-major-mode-keymap -536870827)))))) (eval-after-load "minibuffer" (function (lambda nil (if (boundp (quote minibuffer-local-must-match-map)) (progn (ergoemacs-command-loop--spinner-display "Label %s" (quote minibuffer-local-must-match-map)) (ergoemacs-map-properties--label minibuffer-local-must-match-map -536870828)))))) ...)
  #<subr eval-buffer>(#<buffer  *load*> nil "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" nil t)
  ad-Advice-eval-buffer(#<subr eval-buffer> #<buffer  *load*> nil "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" nil t)
  apply(ad-Advice-eval-buffer #<subr eval-buffer> (#<buffer  *load*> nil "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" nil t))
  eval-buffer(#<buffer  *load*> nil "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" nil t)  ; Reading at buffer position 83961
  load-with-code-conversion("c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el" nil nil)
  load("c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-global-24-5-1-i686-pc-mingw32.el")
  (if ergoemacs-mode--fast-p nil (load (ergoemacs-map-properties--default-global-file)))
  (progn (if ergoemacs-mode--fast-p nil (load (ergoemacs-map-properties--default-global-file))) (ergoemacs-map-properties--protect-global-map))
  (if (file-readable-p (ergoemacs-map-properties--default-global-file)) (progn (if ergoemacs-mode--fast-p nil (load (ergoemacs-map-properties--default-global-file))) (ergoemacs-map-properties--protect-global-map)) (if noninteractive (ergoemacs-warn "Could not find global map information") (let* ((emacs-exe (ergoemacs-emacs-exe)) (default-directory (expand-file-name (file-name-directory (locate-library "ergoemacs-mode")))) (cmd (format "%s -L %s --batch --load \"ergoemacs-mode\" -Q --eval \"(ergoemacs-map-properties--default-global-gen) (kill-emacs)\"" emacs-exe default-directory))) (message "%s" (shell-command-to-string cmd)) (ergoemacs-map-properties--get-original-global-map))))
  (if ergoemacs-map-properties--get-original-global-map nil (ergoemacs-map-properties--label-atoms) (if (file-readable-p (ergoemacs-map-properties--default-global-file)) (progn (if ergoemacs-mode--fast-p nil (load (ergoemacs-map-properties--default-global-file))) (ergoemacs-map-properties--protect-global-map)) (if noninteractive (ergoemacs-warn "Could not find global map information") (let* ((emacs-exe (ergoemacs-emacs-exe)) (default-directory (expand-file-name (file-name-directory ...))) (cmd (format "%s -L %s --batch --load \"ergoemacs-mode\" -Q --eval \"(ergoemacs-map-properties--default-global-gen) (kill-emacs)\"" emacs-exe default-directory))) (message "%s" (shell-command-to-string cmd)) (ergoemacs-map-properties--get-original-global-map)))))
  ergoemacs-map-properties--get-original-global-map()
  (progn (ergoemacs-map-properties--get-original-global-map))
  (if (and (eq keymap global-map) (not ergoemacs-map-properties--get-original-global-map)) (progn (ergoemacs-map-properties--get-original-global-map)))
  ergoemacs-map-properties--calculate-keys-and-where-is-hash((keymap (keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) user))))) keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870912))) (S-mouse-3 . kmacro-end-call-mouse) (C-wheel-down . mwheel-scroll) (S-wheel-down . mwheel-scroll) (wheel-down . mwheel-scroll) (C-wheel-up . mwheel-scroll) (S-wheel-up . mwheel-scroll) (wheel-up . mwheel-scroll) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (rwindow . ignore) (lwindow . ignore) (language-change . ignore) (C-drag-n-drop . w32-drag-n-drop-other-frame) (drag-n-drop . w32-drag-n-drop) (tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap) (f10 . menu-bar-open) (bottom-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870754))) (down-mouse-1 . mouse-drag-mode-line)) (right-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870753))) (down-mouse-1 . mouse-drag-vertical-line)) (vertical-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870752))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870751))) (mouse-1 . scroll-bar-toolkit-scroll) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870750))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870749))) (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil (quote menu-bar-lines)) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) (S-down-mouse-1 . mouse-appearance-menu) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-primary) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (M-f10 . toggle-frame-maximized) (f11 . toggle-frame-fullscreen) (compose-last-chars . compose-last-chars) ...))
  (if ret nil (ergoemacs-map-properties--calculate-keys-and-where-is-hash keymap) (setq ret (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash (ergoemacs-map-properties--key-hash ...) ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil))) (gethash :extract-where-is (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) nil))) (error nil))))
  (let ((ret (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash ... ...)) (gethash :extract-where-is (and ergoemacs-map-properties--plist-hash ... ...) nil))) (error nil)))) (if ret nil (ergoemacs-map-properties--calculate-keys-and-where-is-hash keymap) (setq ret (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash ... ...)) (gethash :extract-where-is (and ergoemacs-map-properties--plist-hash ... ...) nil))) (error nil)))) ret)
  ergoemacs-map-properties--where-is((keymap (keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) user))))) keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870912))) (S-mouse-3 . kmacro-end-call-mouse) (C-wheel-down . mwheel-scroll) (S-wheel-down . mwheel-scroll) (wheel-down . mwheel-scroll) (C-wheel-up . mwheel-scroll) (S-wheel-up . mwheel-scroll) (wheel-up . mwheel-scroll) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (rwindow . ignore) (lwindow . ignore) (language-change . ignore) (C-drag-n-drop . w32-drag-n-drop-other-frame) (drag-n-drop . w32-drag-n-drop) (tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap) (f10 . menu-bar-open) (bottom-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870754))) (down-mouse-1 . mouse-drag-mode-line)) (right-divider keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870753))) (down-mouse-1 . mouse-drag-vertical-line)) (vertical-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870752))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870751))) (mouse-1 . scroll-bar-toolkit-scroll) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870750))) (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (ergoemacs-labeled lambda nil (interactive) (quote (:map-key -536870749))) (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil (quote menu-bar-lines)) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) (S-down-mouse-1 . mouse-appearance-menu) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-primary) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (M-f10 . toggle-frame-maximized) (f11 . toggle-frame-fullscreen) (compose-last-chars . compose-last-chars) ...))
  (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))
  (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil)))
  (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let ((old-key (car --dolist-tail--))) (ergoemacs-map--puthash old-key key) (if (setq tmp2 (ergoemacs-translate--meta-to-escape old-key)) (progn (ergoemacs-map--puthash tmp2 key))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta old-key)) (progn (ergoemacs-map--puthash tmp2 key))) (if (setq tmp3 (ergoemacs-translate--escape-to-meta key)) (progn (ergoemacs-map--puthash old-key tmp3) (if ... ...) (if ... ...))) (if (setq tmp3 (ergoemacs-translate--meta-to-escape key)) (progn (ergoemacs-map--puthash old-key tmp3) (if ... ...) (if ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let ((old-key ...)) (ergoemacs-map--puthash old-key key) (if (setq tmp2 ...) (progn ...)) (if (setq tmp2 ...) (progn ...)) (if (setq tmp3 ...) (progn ... ... ...)) (if (setq tmp3 ...) (progn ... ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))
  (closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let (...) (ergoemacs-map--puthash old-key key) (if ... ...) (if ... ...) (if ... ...) (if ... ...) (setq --dolist-tail-- ...)))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--)))))([27 113] ergoemacs-compact-uncompact-block)
  funcall((closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let (...) (ergoemacs-map--puthash old-key key) (if ... ...) (if ... ...) (if ... ...) (if ... ...) (setq --dolist-tail-- ...)))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) [27 113] ergoemacs-compact-uncompact-block)
  (progn (funcall function key item))
  (if function (progn (funcall function key item)))
  (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ((map ...)) (if (and ... ... ...) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (unwind-protect (progn (if parent (progn (set-keymap-parent keymap nil))) (if (and (condition-case nil ... ...) (setq prefix-map ...) (condition-case nil ... ...)) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))) (if parent (progn (set-keymap-parent keymap parent))))) (if parent (progn (if (and (condition-case nil (progn ...) (error nil)) (setq prefix-map (lookup-key parent key)) (condition-case nil (progn ...) (error nil))) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or (and prefix (lookup-key flat-keymap prefix)) flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys (cons key nil-keys)))))))
  (let ((key (or (and (consp event) (cons (vconcat prefix (vector ...)) (vconcat prefix (vector ...)))) (vconcat prefix (or (and (stringp event) event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (unwind-protect (progn (if parent (progn ...)) (if (and ... ... ...) (progn ...))) (if parent (progn (set-keymap-parent keymap parent))))) (if parent (progn (if (and (condition-case nil ... ...) (setq prefix-map ...) (condition-case nil ... ...)) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or (and prefix ...) flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys (cons key nil-keys))))))))
  (closure ((tmp . 1) (prefix-map) (calc-parent-p) (parent) (composed-list) (flat-keymap keymap) (nil-keys) (flat-keymap keymap) (prefix . [27]) (original) (keymap keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (function closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq ... ...)) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p ...) (gethash item ... nil))) (progn (let (...) (while --dolist-tail-- ...)))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) t) (event item) (let ((key (or (and (consp event) (cons (vconcat prefix ...) (vconcat prefix ...))) (vconcat prefix (or (and ... event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ... ... ...))) (unwind-protect (progn (if parent ...) (if ... ...)) (if parent (progn ...)))) (if parent (progn (if (and ... ... ...) (progn ...))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or ... flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys ...))))))))(113 ergoemacs-compact-uncompact-block)
  map-keymap((closure ((tmp . 1) (prefix-map) (calc-parent-p) (parent) (composed-list) (flat-keymap keymap) (nil-keys) (flat-keymap keymap) (prefix . [27]) (original) (keymap keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (function closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq ... ...)) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p ...) (gethash item ... nil))) (progn (let (...) (while --dolist-tail-- ...)))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) t) (event item) (let ((key (or (and (consp event) (cons (vconcat prefix ...) (vconcat prefix ...))) (vconcat prefix (or (and ... event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ... ... ...))) (unwind-protect (progn (if parent ...) (if ... ...)) (if parent (progn ...)))) (if parent (progn (if (and ... ... ...) (progn ...))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or ... flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys ...)))))))) (keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)))
  (progn (map-keymap (function (lambda (event item) (let ((key (or ... ...))) (cond ((and ... ...)) ((and ... ... ...)) ((and ... ...)) ((condition-case nil ... ...) (if function ...) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil ...) (if composed-list ... ...) (if parent ...)) (t (if function ...) (cond ... ...)))))) keymap))
  (if (condition-case nil (progn (keymapp keymap)) (error nil)) (progn (map-keymap (function (lambda (event item) (let ((key ...)) (cond (...) (...) (...) (... ... ... ... ... ...) (t ... ...))))) keymap)))
  (let ((flat-keymap (or flat-keymap (if (ergoemacs-map-properties--all-sparse-p keymap) (make-sparse-keymap) (make-keymap)))) composed-list parent calc-parent-p prefix-map tmp) (if (condition-case nil (progn (keymapp keymap)) (error nil)) (progn (map-keymap (function (lambda (event item) (let (...) (cond ... ... ... ... ...)))) keymap))) flat-keymap)
  ergoemacs-map-keymap((closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let (...) (ergoemacs-map--puthash old-key key) (if ... ...) (if ... ...) (if ... ...) (if ... ...) (setq --dolist-tail-- ...)))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) (keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) nil [27] (keymap) nil)
  (progn (ergoemacs-map-keymap function (cond ((eq original :setcdr) (ergoemacs-setcdr (cdr tmp) (cdr (ergoemacs-map-properties--original tmp nil)))) (original (ergoemacs-map-properties--original tmp nil)) (t tmp)) original prefix flat-keymap nil-keys))
  (if tmp (progn (ergoemacs-map-keymap function (cond ((eq original :setcdr) (ergoemacs-setcdr (cdr tmp) (cdr (ergoemacs-map-properties--original tmp nil)))) (original (ergoemacs-map-properties--original tmp nil)) (t tmp)) original prefix flat-keymap nil-keys)))
  (let ((tmp (ergoemacs-map-keymap--expose-keymap sub-keymap))) (if tmp (progn (ergoemacs-map-keymap function (cond ((eq original :setcdr) (ergoemacs-setcdr (cdr tmp) (cdr ...))) (original (ergoemacs-map-properties--original tmp nil)) (t tmp)) original prefix flat-keymap nil-keys))))
  ergoemacs-map-keymap--map-submap((keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let (...) (ergoemacs-map--puthash old-key key) (if ... ...) (if ... ...) (if ... ...) (if ... ...) (setq --dolist-tail-- ...)))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) nil [27] (keymap) nil)
  (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ((map ...)) (if (and ... ... ...) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (unwind-protect (progn (if parent (progn (set-keymap-parent keymap nil))) (if (and (condition-case nil ... ...) (setq prefix-map ...) (condition-case nil ... ...)) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))) (if parent (progn (set-keymap-parent keymap parent))))) (if parent (progn (if (and (condition-case nil (progn ...) (error nil)) (setq prefix-map (lookup-key parent key)) (condition-case nil (progn ...) (error nil))) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or (and prefix (lookup-key flat-keymap prefix)) flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys (cons key nil-keys)))))))
  (let ((key (or (and (consp event) (cons (vconcat prefix (vector ...)) (vconcat prefix (vector ...)))) (vconcat prefix (or (and (stringp event) event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (unwind-protect (progn (if parent (progn ...)) (if (and ... ... ...) (progn ...))) (if parent (progn (set-keymap-parent keymap parent))))) (if parent (progn (if (and (condition-case nil ... ...) (setq prefix-map ...) (condition-case nil ... ...)) (progn (ergoemacs-map-keymap--map-submap prefix-map function original key flat-keymap nil-keys)))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or (and prefix ...) flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys (cons key nil-keys))))))))
  (closure ((tmp) (prefix-map) (calc-parent-p) (parent) (composed-list) (flat-keymap keymap) (nil-keys) (flat-keymap) (prefix) (original) (keymap keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (function closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq ... ...)) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p ...) (gethash item ... nil))) (progn (let (...) (while --dolist-tail-- ...)))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) t) (event item) (let ((key (or (and (consp event) (cons (vconcat prefix ...) (vconcat prefix ...))) (vconcat prefix (or (and ... event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ... ... ...))) (unwind-protect (progn (if parent ...) (if ... ...)) (if parent (progn ...)))) (if parent (progn (if (and ... ... ...) (progn ...))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or ... flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys ...))))))))(27 (keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)))
  map-keymap((closure ((tmp) (prefix-map) (calc-parent-p) (parent) (composed-list) (flat-keymap keymap) (nil-keys) (flat-keymap) (prefix) (original) (keymap keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (function closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap ... ... ... ... ... ... ...) (ergoemacs-labeled lambda nil ... ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap ...) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map ... ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq ... ...)) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p ...) (gethash item ... nil))) (progn (let (...) (while --dolist-tail-- ...)))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) t) (event item) (let ((key (or (and (consp event) (cons (vconcat prefix ...) (vconcat prefix ...))) (vconcat prefix (or (and ... event) (vector event)))))) (cond ((and (not (consp event)) (member key nil-keys))) ((and (not (consp event)) (setq tmp (lookup-key flat-keymap key)) (not (integerp tmp)))) ((and (consp event) (condition-case nil (progn (keymapp item)) (error nil)))) ((condition-case nil (progn (keymapp item)) (error nil)) (if function (progn (funcall function key (quote ergoemacs-prefix)))) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil (setq composed-list (ergoemacs-map-properties--composed-list keymap nil) parent (keymap-parent keymap))) (if composed-list (let ((--dolist-tail-- composed-list)) (while --dolist-tail-- (let ... ... ...))) (unwind-protect (progn (if parent ...) (if ... ...)) (if parent (progn ...)))) (if parent (progn (if (and ... ... ...) (progn ...))))) (t (if function (progn (funcall function key item))) (cond ((consp event) (ergoemacs-map-set-char-table-range (or ... flat-keymap) event item)) (t (define-key flat-keymap key item) (if item nil (setq nil-keys ...)))))))) (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))))
  (progn (map-keymap (function (lambda (event item) (let ((key (or ... ...))) (cond ((and ... ...)) ((and ... ... ...)) ((and ... ...)) ((condition-case nil ... ...) (if function ...) (ergoemacs-map-keymap--map-submap item function original key flat-keymap nil-keys) (if calc-parent-p nil ...) (if composed-list ... ...) (if parent ...)) (t (if function ...) (cond ... ...)))))) keymap))
  (if (condition-case nil (progn (keymapp keymap)) (error nil)) (progn (map-keymap (function (lambda (event item) (let ((key ...)) (cond (...) (...) (...) (... ... ... ... ... ...) (t ... ...))))) keymap)))
  (let ((flat-keymap (or flat-keymap (if (ergoemacs-map-properties--all-sparse-p keymap) (make-sparse-keymap) (make-keymap)))) composed-list parent calc-parent-p prefix-map tmp) (if (condition-case nil (progn (keymapp keymap)) (error nil)) (progn (map-keymap (function (lambda (event item) (let (...) (cond ... ... ... ... ...)))) keymap))) flat-keymap)
  ergoemacs-map-keymap((closure ((ret keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) (hook-deferred) (hook-overrides) (lookup-keymap) (only-modify-p) (menu-bar) (ret) (unbound-passthrough) (tmp3) (tmp2) (tmp) (composed-list) (parent) (local-unbind-list) (use-local-unbind-list-p) (unbind-list) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (lookup-key) (cur-layout . "us") (recursive . t) (map . [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ...)))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap ... ...)) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil]) (layout) (lookup-keymap) ergoemacs-menu-order ess-language ergoemacs-user-keymap ergoemacs-modify-transient-maps ergoemacs-command-loop-type ergoemacs-command-loop--overriding-terminal-local-map cl-struct-ergoemacs-component-struct-tags t) (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn (eq (aref key 0) (quote ergoemacs-labeled))) (error nil))) nil (if (setq tmp (and (ergoemacs-map-properties--where-is global-map) (hash-table-p (ergoemacs-map-properties--where-is global-map)) (gethash item (ergoemacs-map-properties--where-is global-map) nil))) (progn (let ((--dolist-tail-- tmp)) (while --dolist-tail-- (let (...) (ergoemacs-map--puthash old-key key) (if ... ...) (if ... ...) (if ... ...) (if ... ...) (setq --dolist-tail-- ...)))))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--))))) (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))))
  (let ((ret (cond ((and (not lookup-keymap) (string= cur-layout (progn ... ...))) (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref map 3))) ((and (not lookup-keymap) (setq ret (and ... ... ...))) ret) ((not lookup-keymap) (ergoemacs-component-struct--get map cur-layout nil)) (t (error "Cant calculate/lookup keymap."))))) (ergoemacs-map-keymap (function (lambda (key item) (if (or (eq item (quote ergoemacs-prefix)) (condition-case nil (progn ...) (error nil))) nil (if (setq tmp (and ... ... ...)) (progn (let ... ...))) (puthash key item ergoemacs-map--) (if (setq tmp2 (ergoemacs-translate--meta-to-escape key)) (progn (puthash tmp2 item ergoemacs-map--))) (if (setq tmp2 (ergoemacs-translate--escape-to-meta key)) (progn (puthash tmp2 item ergoemacs-map--)))))) ret) ret)
  (cond ((and lookup-keymap (symbolp lookup-keymap) (and ergoemacs-translation-hash (hash-table-p ergoemacs-translation-hash) (gethash lookup-keymap ergoemacs-translation-hash nil))) (ergoemacs-command-loop--modal lookup-keymap)) ((consp (condition-case nil (progn (plist-get (ergoemacs-map-properties--map-fixed-plist lookup-keymap) :map-key)) (error nil))) lookup-keymap) ((and lookup-keymap (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash ... ...)) (gethash :dont-modify-p (and ergoemacs-map-properties--plist-hash ... ...) nil))) (error nil))) lookup-keymap) ((progn (and (vectorp map) (>= (length map) 25) (memq (aref map 0) cl-struct-ergoemacs-component-struct-tags) t)) (let ((ret (cond ((and ... ...) (progn ... ...)) ((and ... ...) ret) ((not lookup-keymap) (ergoemacs-component-struct--get map cur-layout nil)) (t (error "Cant calculate/lookup keymap."))))) (ergoemacs-map-keymap (function (lambda (key item) (if (or ... ...) nil (if ... ...) (puthash key item ergoemacs-map--) (if ... ...) (if ... ...)))) ret) ret)) ((and (consp map) lookup-keymap (or (equal lookup-keymap (make-sparse-keymap)) (equal lookup-keymap (make-keymap)))) lookup-keymap) ((and (consp map) (progn (setq unbind-list (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) t)) (cond ((not lookup-keymap) (setq tmp (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) (setq parent (copy-keymap (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) composed-list (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ret (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map-- (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map--lookup-hash (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map--undefined-keys (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) (define-key parent [menu-bar] tmp) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (puthash lookup-key ret ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--lookup-hash)) ergoemacs-map--lookup-hash ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--undefined-keys)) ergoemacs-map--undefined-keys ergoemacs-map--hash) (setq tmp2 (list)) (if ergoemacs-ignore-prev-global nil (setq tmp (ergoemacs-map-properties--before-ergoemacs)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2)))) (setq tmp (ergoemacs-map-properties--before-ergoemacs t)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq tmp2 (cons tmp tmp2)))) (setq tmp2 (cons ergoemacs-user-keymap tmp2)) (define-key ret [ergoemacs-ignore] (quote ergoemacs-command-loop--ignore)) (setq ret (make-composed-keymap tmp2 ret))) (lookup-keymap (if (string= "" ergoemacs-map--breadcrumb) nil (if (not (condition-case nil ... ...)) (progn (ergoemacs-map-properties--label lookup-keymap) (puthash ... ... ergoemacs-breadcrumb-hash) (puthash ... ... ergoemacs-breadcrumb-hash)))) (setq lookup-keymap (ergoemacs-map-properties--original lookup-keymap) hook-overrides (ergoemacs-map-properties--override-maps lookup-keymap) use-local-unbind-list-p (ergoemacs-map-properties--use-local-unbind-list-p lookup-keymap)) (setq only-modify-p (condition-case nil (progn (and ... ... ...)) (error nil)) lookup-key (ergoemacs-map--lookup-keymap-key lookup-keymap) composed-list (ergoemacs-map--composed-list lookup-keymap lookup-key only-modify-p use-local-unbind-list-p) ret (nth 2 composed-list) local-unbind-list (nth 1 composed-list) composed-list (nth 0 composed-list) parent (and (not recursive) lookup-keymap)) (if hook-overrides (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap) tmp3 (make-composed-keymap hook-overrides)) (ergoemacs-map-properties--put tmp2 :label (quote ...)) (ergoemacs-map-keymap (function ...) tmp3) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-overrides ...)) (setq composed-list (append hook-overrides composed-list)))) (if (setq hook-deferred (ergoemacs-map-properties--deferred-maps lookup-keymap)) (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap)) (ergoemacs-map-properties--put tmp2 :label (quote ...)) (ergoemacs-map-keymap (function ...) (make-composed-keymap hook-deferred)) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-deferred ...)) (setq composed-list (append composed-list hook-deferred)))) (setq unbound-passthrough (make-sparse-keymap)) (if (or hook-overrides hook-deferred) (progn (setq tmp3 (make-composed-keymap ...) tmp (append unbind-list ergoemacs-map--unbound-keys local-unbind-list)) (ergoemacs-map-keymap (function ...) tmp3) (ergoemacs-map-properties--put unbound-passthrough :label (quote ...)))) (cond ((and only-modify-p composed-list) (setq ret (make-composed-keymap composed-list parent)) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn ...)) ret) ((and only-modify-p (not composed-list)) (setq ret parent)) (t (setq ret (let ... ...)) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (if (ergoemacs-map-properties--empty-p unbound-passthrough) nil (setq ret ...)) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn ...)) (if (ergoemacs-map-properties--set-map-p lookup-keymap) (progn ...)))))) ret) ((and (not composed-list) parent) (unwind-protect (progn (set-keymap-parent lookup-keymap nil) (setq ret (ergoemacs-map-- lookup-keymap layout map t))) (set-keymap-parent lookup-keymap parent)) (setq parent (ergoemacs-map-- parent layout map t)) (set-keymap-parent ret parent) ret) (composed-list (make-composed-keymap (mapcar (function (lambda (x) (ergoemacs-map-- x layout map t))) composed-list) (ergoemacs-map-- parent layout map t))) (t (ergoemacs-warn "Component map isn't a proper argument for `ergoemacs-map'") (ergoemacs-warn "  Lookup:%s" lookup-keymap) (ergoemacs-warn " Layout:%s" layout) (ergoemacs-warn "    Map:%s" map) (ergoemacs-warn "  Recursive:%s" recursive) lookup-keymap))
  (let* ((cur-layout (or layout ergoemacs-keyboard-layout)) lookup-key (map (ergoemacs-component-struct--lookup-hash (or map (ergoemacs-theme-components)))) unbind-list use-local-unbind-list-p local-unbind-list parent composed-list tmp tmp2 tmp3 unbound-passthrough ret menu-bar only-modify-p (lookup-keymap lookup-keymap) hook-overrides hook-deferred) (cond ((and lookup-keymap (symbolp lookup-keymap) (and ergoemacs-translation-hash (hash-table-p ergoemacs-translation-hash) (gethash lookup-keymap ergoemacs-translation-hash nil))) (ergoemacs-command-loop--modal lookup-keymap)) ((consp (condition-case nil (progn (plist-get (ergoemacs-map-properties--map-fixed-plist lookup-keymap) :map-key)) (error nil))) lookup-keymap) ((and lookup-keymap (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash ... ...) (hash-table-p ...) (gethash :dont-modify-p ... nil))) (error nil))) lookup-keymap) ((progn (and (vectorp map) (>= (length map) 25) (memq (aref map 0) cl-struct-ergoemacs-component-struct-tags) t)) (let ((ret (cond (... ...) (... ret) (... ...) (t ...)))) (ergoemacs-map-keymap (function (lambda (key item) (if ... nil ... ... ... ...))) ret) ret)) ((and (consp map) lookup-keymap (or (equal lookup-keymap (make-sparse-keymap)) (equal lookup-keymap (make-keymap)))) lookup-keymap) ((and (consp map) (progn (setq unbind-list (progn (or ... ...))) t)) (cond ((not lookup-keymap) (setq tmp (progn (or ... ...))) (setq parent (copy-keymap (ergoemacs-map-properties--original ...)) composed-list (progn (or ... ...)) ret (progn (or ... ...)) ergoemacs-map-- (progn (or ... ...)) ergoemacs-map--lookup-hash (progn (or ... ...)) ergoemacs-map--undefined-keys (progn (or ... ...))) (define-key parent [menu-bar] tmp) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (puthash lookup-key ret ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--lookup-hash)) ergoemacs-map--lookup-hash ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--undefined-keys)) ergoemacs-map--undefined-keys ergoemacs-map--hash) (setq tmp2 (list)) (if ergoemacs-ignore-prev-global nil (setq tmp (ergoemacs-map-properties--before-ergoemacs)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 ...))) (setq tmp (ergoemacs-map-properties--before-ergoemacs t)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq tmp2 ...))) (setq tmp2 (cons ergoemacs-user-keymap tmp2)) (define-key ret [ergoemacs-ignore] (quote ergoemacs-command-loop--ignore)) (setq ret (make-composed-keymap tmp2 ret))) (lookup-keymap (if (string= "" ergoemacs-map--breadcrumb) nil (if (not ...) (progn ... ... ...))) (setq lookup-keymap (ergoemacs-map-properties--original lookup-keymap) hook-overrides (ergoemacs-map-properties--override-maps lookup-keymap) use-local-unbind-list-p (ergoemacs-map-properties--use-local-unbind-list-p lookup-keymap)) (setq only-modify-p (condition-case nil (progn ...) (error nil)) lookup-key (ergoemacs-map--lookup-keymap-key lookup-keymap) composed-list (ergoemacs-map--composed-list lookup-keymap lookup-key only-modify-p use-local-unbind-list-p) ret (nth 2 composed-list) local-unbind-list (nth 1 composed-list) composed-list (nth 0 composed-list) parent (and (not recursive) lookup-keymap)) (if hook-overrides (progn (setq tmp ... tmp2 ... tmp3 ...) (ergoemacs-map-properties--put tmp2 :label ...) (ergoemacs-map-keymap ... tmp3) (if ... nil ...) (setq composed-list ...))) (if (setq hook-deferred (ergoemacs-map-properties--deferred-maps lookup-keymap)) (progn (setq tmp ... tmp2 ...) (ergoemacs-map-properties--put tmp2 :label ...) (ergoemacs-map-keymap ... ...) (if ... nil ...) (setq composed-list ...))) (setq unbound-passthrough (make-sparse-keymap)) (if (or hook-overrides hook-deferred) (progn (setq tmp3 ... tmp ...) (ergoemacs-map-keymap ... tmp3) (ergoemacs-map-properties--put unbound-passthrough :label ...))) (cond ((and only-modify-p composed-list) (setq ret ...) (setq tmp ...) (if tmp ...) ret) ((and only-modify-p ...) (setq ret parent)) (t (setq ret ...) (set-keymap-parent ret ...) (if ... nil ...) (setq tmp ...) (if tmp ...) (if ... ...))))) ret) ((and (not composed-list) parent) (unwind-protect (progn (set-keymap-parent lookup-keymap nil) (setq ret (ergoemacs-map-- lookup-keymap layout map t))) (set-keymap-parent lookup-keymap parent)) (setq parent (ergoemacs-map-- parent layout map t)) (set-keymap-parent ret parent) ret) (composed-list (make-composed-keymap (mapcar (function (lambda (x) (ergoemacs-map-- x layout map t))) composed-list) (ergoemacs-map-- parent layout map t))) (t (ergoemacs-warn "Component map isn't a proper argument for `ergoemacs-map'") (ergoemacs-warn " Lookup:%s" lookup-keymap) (ergoemacs-warn " Layout:%s" layout) (ergoemacs-warn "    Map:%s" map) (ergoemacs-warn "  Recursive:%s" recursive) lookup-keymap)))
  ergoemacs-map--(nil nil [cl-struct-ergoemacs-component-struct "text-transform" (:name "text-transform" :description "Text Transformation" :file "c:/Users/User/.emacs.d/user-lisp/ergoemacs-mode/ergoemacs-themes.el") (keymap (27 keymap (113 . ergoemacs-compact-uncompact-block) (84 . flyspell-auto-correct-word) (116 . ergoemacs-call-keyword-completion) (47 . ergoemacs-toggle-letter-case) (63 . ergoemacs-toggle-camel-case) (119 . ergoemacs-shrink-whitespaces) (39 . comment-dwim)) (ergoemacs-labeled lambda nil (interactive) (quote (:map-key ((-536870912) text-transform us))))) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (isearch-mode-map (keymap (27 keymap (47 . isearch-toggle-case-fold) (63 . isearch-toggle-regexp))) ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-define-mode-map-hook #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (iswitchb-mode-map (keymap (remap keymap (ergoemacs-toggle-letter-case . iswitchb-toggle-regexp) (ergoemacs-toggle-camel-case . iswitchb-toggle-case))) ...)) ...)) nil nil nil nil nil ([134217787]) nil nil nil (meta) ([apps] [menu] [27]) nil nil nil "us" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) global-map nil] t)
  (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t))
  (let ((cur-map (car --dolist-tail--))) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond ((setq tmp2 (lookup-key tmp [menu-bar])) (setq menu-bar (cons (copy-keymap tmp2) menu-bar)) (setq tmp2 (make-sparse-keymap)) (map-keymap (function (lambda (event item) (if ... nil ...))) tmp) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq composed-list (cons tmp2 composed-list)))) (t (setq composed-list (cons tmp composed-list))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond ((setq tmp2 (lookup-key tmp [menu-bar])) (setq menu-bar (cons (copy-keymap tmp2) menu-bar)) (setq tmp2 (make-sparse-keymap)) (map-keymap (function (lambda ... ...)) tmp) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq composed-list (cons tmp2 composed-list)))) (t (setq composed-list (cons tmp composed-list))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (reverse map))) (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond ((setq tmp2 (lookup-key tmp [menu-bar])) (setq menu-bar (cons ... menu-bar)) (setq tmp2 (make-sparse-keymap)) (map-keymap (function ...) tmp) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq composed-list ...))) (t (setq composed-list (cons tmp composed-list))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (setq tmp (make-sparse-keymap)) (let ((--dolist-tail-- map)) (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (let ((--dolist-tail-- (progn ... ...))) (while --dolist-tail-- (let (...) (if ... nil ...) (setq --dolist-tail-- ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- ergoemacs-map--undefined-keys)) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (define-key tmp i (function ergoemacs-map-undefined)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put tmp :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-undefined) (intern ergoemacs-keyboard-layout))) (setq composed-list (cons tmp composed-list)) (setq menu-bar (cons (lookup-key (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map)) [menu-bar]) menu-bar)) (let ((--dolist-tail-- (reverse map))) (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond ((setq tmp2 ...) (setq menu-bar ...) (setq tmp2 ...) (map-keymap ... tmp) (if ... nil ...)) (t (setq composed-list ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp (make-composed-keymap menu-bar)) (let ((i 0) alst) (let ((--dolist-tail-- ergoemacs-menu-order)) (while --dolist-tail-- (let ((menu (car --dolist-tail--))) (setq alst (cons (list menu i) alst)) (setq i (+ i 1)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp (sort tmp (function (lambda (elt1 elt2) (let (... ...) (if i1 ... ...) (if i2 ... ...) (< i1 i2))))))) (setq ret (make-sparse-keymap)) (let ((--dolist-tail-- unbind-list)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (if (not lookup-keymap) (progn (remhash key ergoemacs-map--))) (define-key ret key nil) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp2 nil) (maphash (function (lambda (key item) (let ((--dolist-tail-- item)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))))) ergoemacs-map--lookup-hash) (let ((--dolist-tail-- tmp2)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (remhash key ergoemacs-map--lookup-hash) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put ret :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-unbound) (intern ergoemacs-keyboard-layout))) tmp)
  (ergoemacs-map--cache-- (quote global-menu) (progn (setq tmp (make-sparse-keymap)) (let ((--dolist-tail-- map)) (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- ergoemacs-map--undefined-keys)) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (define-key tmp i (function ergoemacs-map-undefined)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put tmp :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-undefined) (intern ergoemacs-keyboard-layout))) (setq composed-list (cons tmp composed-list)) (setq menu-bar (cons (lookup-key (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map)) [menu-bar]) menu-bar)) (let ((--dolist-tail-- (reverse map))) (while --dolist-tail-- (let ((cur-map (car --dolist-tail--))) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond (... ... ... ... ...) (t ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp (make-composed-keymap menu-bar)) (let ((i 0) alst) (let ((--dolist-tail-- ergoemacs-menu-order)) (while --dolist-tail-- (let ((menu ...)) (setq alst (cons ... alst)) (setq i (+ i 1)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp (sort tmp (function (lambda (elt1 elt2) (let ... ... ... ...)))))) (setq ret (make-sparse-keymap)) (let ((--dolist-tail-- unbind-list)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (if (not lookup-keymap) (progn (remhash key ergoemacs-map--))) (define-key ret key nil) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp2 nil) (maphash (function (lambda (key item) (let ((--dolist-tail-- item)) (while --dolist-tail-- (let ... ... ...))))) ergoemacs-map--lookup-hash) (let ((--dolist-tail-- tmp2)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (remhash key ergoemacs-map--lookup-hash) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put ret :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-unbound) (intern ergoemacs-keyboard-layout))) tmp))
  (or (ergoemacs-map--cache-- (quote global-menu)) (ergoemacs-map--cache-- (quote global-menu) (progn (setq tmp (make-sparse-keymap)) (let ((--dolist-tail-- map)) (while --dolist-tail-- (let ((cur-map ...)) (let (...) (while --dolist-tail-- ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- ergoemacs-map--undefined-keys)) (while --dolist-tail-- (let ((i ...)) (define-key tmp i (function ergoemacs-map-undefined)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put tmp :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-undefined) (intern ergoemacs-keyboard-layout))) (setq composed-list (cons tmp composed-list)) (setq menu-bar (cons (lookup-key (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map)) [menu-bar]) menu-bar)) (let ((--dolist-tail-- (reverse map))) (while --dolist-tail-- (let ((cur-map ...)) (setq tmp (ergoemacs-map-- lookup-keymap layout cur-map t)) (if (ergoemacs-map-properties--empty-p tmp) nil (cond ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp (make-composed-keymap menu-bar)) (let ((i 0) alst) (let ((--dolist-tail-- ergoemacs-menu-order)) (while --dolist-tail-- (let (...) (setq alst ...) (setq i ...) (setq --dolist-tail-- ...)))) (setq tmp (sort tmp (function (lambda ... ...))))) (setq ret (make-sparse-keymap)) (let ((--dolist-tail-- unbind-list)) (while --dolist-tail-- (let ((key ...)) (if (not lookup-keymap) (progn ...)) (define-key ret key nil) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq tmp2 nil) (maphash (function (lambda (key item) (let (...) (while --dolist-tail-- ...)))) ergoemacs-map--lookup-hash) (let ((--dolist-tail-- tmp2)) (while --dolist-tail-- (let ((key ...)) (remhash key ergoemacs-map--lookup-hash) (setq --dolist-tail-- (cdr --dolist-tail--))))) (ergoemacs-map-properties--put ret :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) (quote ergoemacs-unbound) (intern ergoemacs-keyboard-layout))) tmp)))
  (progn (or (ergoemacs-map--cache-- (quote global-menu)) (ergoemacs-map--cache-- (quote global-menu) (progn (setq tmp (make-sparse-keymap)) (let ((--dolist-tail-- map)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- ergoemacs-map--undefined-keys)) (while --dolist-tail-- (let (...) (define-key tmp i ...) (setq --dolist-tail-- ...)))) (ergoemacs-map-properties--put tmp :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original ...)) (quote ergoemacs-undefined) (intern ergoemacs-keyboard-layout))) (setq composed-list (cons tmp composed-list)) (setq menu-bar (cons (lookup-key (ergoemacs-map-properties--original ...) [menu-bar]) menu-bar)) (let ((--dolist-tail-- (reverse map))) (while --dolist-tail-- (let (...) (setq tmp ...) (if ... nil ...) (setq --dolist-tail-- ...)))) (setq tmp (make-composed-keymap menu-bar)) (let ((i 0) alst) (let ((--dolist-tail-- ergoemacs-menu-order)) (while --dolist-tail-- (let ... ... ... ...))) (setq tmp (sort tmp (function ...)))) (setq ret (make-sparse-keymap)) (let ((--dolist-tail-- unbind-list)) (while --dolist-tail-- (let (...) (if ... ...) (define-key ret key nil) (setq --dolist-tail-- ...)))) (setq tmp2 nil) (maphash (function (lambda (key item) (let ... ...))) ergoemacs-map--lookup-hash) (let ((--dolist-tail-- tmp2)) (while --dolist-tail-- (let (...) (remhash key ergoemacs-map--lookup-hash) (setq --dolist-tail-- ...)))) (ergoemacs-map-properties--put ret :label (list (ergoemacs-map-properties--key-hash (ergoemacs-map-properties--original ...)) (quote ergoemacs-unbound) (intern ergoemacs-keyboard-layout))) tmp))))
  (setq tmp (progn (or (ergoemacs-map--cache-- (quote global-menu)) (ergoemacs-map--cache-- (quote global-menu) (progn (setq tmp (make-sparse-keymap)) (let ((--dolist-tail-- map)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- ergoemacs-map--undefined-keys)) (while --dolist-tail-- (let ... ... ...))) (ergoemacs-map-properties--put tmp :label (list (ergoemacs-map-properties--key-hash ...) (quote ergoemacs-undefined) (intern ergoemacs-keyboard-layout))) (setq composed-list (cons tmp composed-list)) (setq menu-bar (cons (lookup-key ... [menu-bar]) menu-bar)) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...))) (setq tmp (make-composed-keymap menu-bar)) (let ((i 0) alst) (let (...) (while --dolist-tail-- ...)) (setq tmp (sort tmp ...))) (setq ret (make-sparse-keymap)) (let ((--dolist-tail-- unbind-list)) (while --dolist-tail-- (let ... ... ... ...))) (setq tmp2 nil) (maphash (function (lambda ... ...)) ergoemacs-map--lookup-hash) (let ((--dolist-tail-- tmp2)) (while --dolist-tail-- (let ... ... ...))) (ergoemacs-map-properties--put ret :label (list (ergoemacs-map-properties--key-hash ...) (quote ergoemacs-unbound) (intern ergoemacs-keyboard-layout))) tmp)))))
  (cond ((not lookup-keymap) (setq tmp (progn (or (ergoemacs-map--cache-- (quote global-menu)) (ergoemacs-map--cache-- (quote global-menu) (progn (setq tmp ...) (let ... ...) (let ... ...) (ergoemacs-map-properties--put tmp :label ...) (setq composed-list ...) (setq menu-bar ...) (let ... ...) (setq tmp ...) (let ... ... ...) (setq ret ...) (let ... ...) (setq tmp2 nil) (maphash ... ergoemacs-map--lookup-hash) (let ... ...) (ergoemacs-map-properties--put ret :label ...) tmp))))) (setq parent (copy-keymap (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) composed-list (progn (or (ergoemacs-map--cache-- (quote global-composed-list)) (ergoemacs-map--cache-- (quote global-composed-list) (progn composed-list)))) ret (progn (or (ergoemacs-map--cache-- (quote global-ret)) (ergoemacs-map--cache-- (quote global-ret) (progn ret)))) ergoemacs-map-- (progn (or (ergoemacs-map--cache-- (quote ergoemacs-map--)) (ergoemacs-map--cache-- (quote ergoemacs-map--) (progn ergoemacs-map--)))) ergoemacs-map--lookup-hash (progn (or (ergoemacs-map--cache-- (quote ergoemacs-map--lookup-hash)) (ergoemacs-map--cache-- (quote ergoemacs-map--lookup-hash) (progn ergoemacs-map--lookup-hash)))) ergoemacs-map--undefined-keys (progn (or (ergoemacs-map--cache-- (quote undefined-keys)) (ergoemacs-map--cache-- (quote undefined-keys) (progn ergoemacs-map--undefined-keys))))) (define-key parent [menu-bar] tmp) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (puthash lookup-key ret ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--lookup-hash)) ergoemacs-map--lookup-hash ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--undefined-keys)) ergoemacs-map--undefined-keys ergoemacs-map--hash) (setq tmp2 (list)) (if ergoemacs-ignore-prev-global nil (setq tmp (ergoemacs-map-properties--before-ergoemacs)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2)))) (setq tmp (ergoemacs-map-properties--before-ergoemacs t)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq tmp2 (cons tmp tmp2)))) (setq tmp2 (cons ergoemacs-user-keymap tmp2)) (define-key ret [ergoemacs-ignore] (quote ergoemacs-command-loop--ignore)) (setq ret (make-composed-keymap tmp2 ret))) (lookup-keymap (if (string= "" ergoemacs-map--breadcrumb) nil (if (not (condition-case nil (progn (plist-get ... :map-key)) (error nil))) (progn (ergoemacs-map-properties--label lookup-keymap) (puthash (intern ergoemacs-map--breadcrumb) (condition-case nil (progn ...) (error nil)) ergoemacs-breadcrumb-hash) (puthash (condition-case nil (progn ...) (error nil)) (intern ergoemacs-map--breadcrumb) ergoemacs-breadcrumb-hash)))) (setq lookup-keymap (ergoemacs-map-properties--original lookup-keymap) hook-overrides (ergoemacs-map-properties--override-maps lookup-keymap) use-local-unbind-list-p (ergoemacs-map-properties--use-local-unbind-list-p lookup-keymap)) (setq only-modify-p (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash ... ...)) (gethash :only-local-modifications-p (and ergoemacs-map-properties--plist-hash ... ...) nil))) (error nil)) lookup-key (ergoemacs-map--lookup-keymap-key lookup-keymap) composed-list (ergoemacs-map--composed-list lookup-keymap lookup-key only-modify-p use-local-unbind-list-p) ret (nth 2 composed-list) local-unbind-list (nth 1 composed-list) composed-list (nth 0 composed-list) parent (and (not recursive) lookup-keymap)) (if hook-overrides (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap) tmp3 (make-composed-keymap hook-overrides)) (ergoemacs-map-properties--put tmp2 :label (quote (fix-hook-remaps))) (ergoemacs-map-keymap (function (lambda (key item) (if ... nil ...))) tmp3) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-overrides (cons tmp2 hook-overrides))) (setq composed-list (append hook-overrides composed-list)))) (if (setq hook-deferred (ergoemacs-map-properties--deferred-maps lookup-keymap)) (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap)) (ergoemacs-map-properties--put tmp2 :label (quote (fix-hook-remaps))) (ergoemacs-map-keymap (function (lambda (key item) (if ... nil ...))) (make-composed-keymap hook-deferred)) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-deferred (cons tmp2 hook-deferred))) (setq composed-list (append composed-list hook-deferred)))) (setq unbound-passthrough (make-sparse-keymap)) (if (or hook-overrides hook-deferred) (progn (setq tmp3 (make-composed-keymap (append hook-overrides hook-deferred)) tmp (append unbind-list ergoemacs-map--unbound-keys local-unbind-list)) (ergoemacs-map-keymap (function (lambda (key item) (if ... nil ...))) tmp3) (ergoemacs-map-properties--put unbound-passthrough :label (quote (unbound-passthrough))))) (cond ((and only-modify-p composed-list) (setq ret (make-composed-keymap composed-list parent)) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq ret (make-composed-keymap tmp ret)))) ret) ((and only-modify-p (not composed-list)) (setq ret parent)) (t (setq ret (let ((--hash-key ...)) (or (ergoemacs-map--cache-- --hash-key) (ergoemacs-map--cache-- --hash-key ...)))) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (if (ergoemacs-map-properties--empty-p unbound-passthrough) nil (setq ret (make-composed-keymap unbound-passthrough ret))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq ret (make-composed-keymap tmp ret)))) (if (ergoemacs-map-properties--set-map-p lookup-keymap) (progn (let (...) (while --dolist-tail-- ...))))))))
  (cond ((and lookup-keymap (symbolp lookup-keymap) (and ergoemacs-translation-hash (hash-table-p ergoemacs-translation-hash) (gethash lookup-keymap ergoemacs-translation-hash nil))) (ergoemacs-command-loop--modal lookup-keymap)) ((consp (condition-case nil (progn (plist-get (ergoemacs-map-properties--map-fixed-plist lookup-keymap) :map-key)) (error nil))) lookup-keymap) ((and lookup-keymap (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash (hash-table-p ergoemacs-map-properties--plist-hash) (gethash ... ergoemacs-map-properties--plist-hash nil)) (hash-table-p (and ergoemacs-map-properties--plist-hash ... ...)) (gethash :dont-modify-p (and ergoemacs-map-properties--plist-hash ... ...) nil))) (error nil))) lookup-keymap) ((progn (and (vectorp map) (>= (length map) 25) (memq (aref map 0) cl-struct-ergoemacs-component-struct-tags) t)) (let ((ret (cond ((and ... ...) (progn ... ...)) ((and ... ...) ret) ((not lookup-keymap) (ergoemacs-component-struct--get map cur-layout nil)) (t (error "Cant calculate/lookup keymap."))))) (ergoemacs-map-keymap (function (lambda (key item) (if (or ... ...) nil (if ... ...) (puthash key item ergoemacs-map--) (if ... ...) (if ... ...)))) ret) ret)) ((and (consp map) lookup-keymap (or (equal lookup-keymap (make-sparse-keymap)) (equal lookup-keymap (make-keymap)))) lookup-keymap) ((and (consp map) (progn (setq unbind-list (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) t)) (cond ((not lookup-keymap) (setq tmp (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) (setq parent (copy-keymap (ergoemacs-map-properties--original (or ergoemacs-saved-global-map global-map))) composed-list (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ret (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map-- (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map--lookup-hash (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...))) ergoemacs-map--undefined-keys (progn (or (ergoemacs-map--cache-- ...) (ergoemacs-map--cache-- ... ...)))) (define-key parent [menu-bar] tmp) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (puthash lookup-key ret ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--lookup-hash)) ergoemacs-map--lookup-hash ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--undefined-keys)) ergoemacs-map--undefined-keys ergoemacs-map--hash) (setq tmp2 (list)) (if ergoemacs-ignore-prev-global nil (setq tmp (ergoemacs-map-properties--before-ergoemacs)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2)))) (setq tmp (ergoemacs-map-properties--before-ergoemacs t)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq tmp2 (cons tmp tmp2)))) (setq tmp2 (cons ergoemacs-user-keymap tmp2)) (define-key ret [ergoemacs-ignore] (quote ergoemacs-command-loop--ignore)) (setq ret (make-composed-keymap tmp2 ret))) (lookup-keymap (if (string= "" ergoemacs-map--breadcrumb) nil (if (not (condition-case nil ... ...)) (progn (ergoemacs-map-properties--label lookup-keymap) (puthash ... ... ergoemacs-breadcrumb-hash) (puthash ... ... ergoemacs-breadcrumb-hash)))) (setq lookup-keymap (ergoemacs-map-properties--original lookup-keymap) hook-overrides (ergoemacs-map-properties--override-maps lookup-keymap) use-local-unbind-list-p (ergoemacs-map-properties--use-local-unbind-list-p lookup-keymap)) (setq only-modify-p (condition-case nil (progn (and ... ... ...)) (error nil)) lookup-key (ergoemacs-map--lookup-keymap-key lookup-keymap) composed-list (ergoemacs-map--composed-list lookup-keymap lookup-key only-modify-p use-local-unbind-list-p) ret (nth 2 composed-list) local-unbind-list (nth 1 composed-list) composed-list (nth 0 composed-list) parent (and (not recursive) lookup-keymap)) (if hook-overrides (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap) tmp3 (make-composed-keymap hook-overrides)) (ergoemacs-map-properties--put tmp2 :label (quote ...)) (ergoemacs-map-keymap (function ...) tmp3) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-overrides ...)) (setq composed-list (append hook-overrides composed-list)))) (if (setq hook-deferred (ergoemacs-map-properties--deferred-maps lookup-keymap)) (progn (setq tmp (ergoemacs-map-properties--keys global-map) tmp2 (make-sparse-keymap)) (ergoemacs-map-properties--put tmp2 :label (quote ...)) (ergoemacs-map-keymap (function ...) (make-composed-keymap hook-deferred)) (if (ergoemacs-map-properties--empty-p tmp2) nil (setq hook-deferred ...)) (setq composed-list (append composed-list hook-deferred)))) (setq unbound-passthrough (make-sparse-keymap)) (if (or hook-overrides hook-deferred) (progn (setq tmp3 (make-composed-keymap ...) tmp (append unbind-list ergoemacs-map--unbound-keys local-unbind-list)) (ergoemacs-map-keymap (function ...) tmp3) (ergoemacs-map-properties--put unbound-passthrough :label (quote ...)))) (cond ((and only-modify-p composed-list) (setq ret (make-composed-keymap composed-list parent)) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn ...)) ret) ((and only-modify-p (not composed-list)) (setq ret parent)) (t (setq ret (let ... ...)) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (if (ergoemacs-map-properties--empty-p unbound-passthrough) nil (setq ret ...)) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn ...)) (if (ergoemacs-map-properties--set-map-p lookup-keymap) (progn ...)))))) ret) ((and (not composed-list) parent) (unwind-protect (progn (set-keymap-parent lookup-keymap nil) (setq ret (ergoemacs-map-- lookup-keymap layout map t))) (set-keymap-parent lookup-keymap parent)) (setq parent (ergoemacs-map-- parent layout map t)) (set-keymap-parent ret parent) ret) (composed-list (make-composed-keymap (mapcar (function (lambda (x) (ergoemacs-map-- x layout map t))) composed-list) (ergoemacs-map-- parent layout map t))) (t (ergoemacs-warn "Component map isn't a proper argument for `ergoemacs-map'") (ergoemacs-warn "  Lookup:%s" lookup-keymap) (ergoemacs-warn " Layout:%s" layout) (ergoemacs-warn "    Map:%s" map) (ergoemacs-warn "  Recursive:%s" recursive) lookup-keymap))
  (let* ((cur-layout (or layout ergoemacs-keyboard-layout)) lookup-key (map (ergoemacs-component-struct--lookup-hash (or map (ergoemacs-theme-components)))) unbind-list use-local-unbind-list-p local-unbind-list parent composed-list tmp tmp2 tmp3 unbound-passthrough ret menu-bar only-modify-p (lookup-keymap lookup-keymap) hook-overrides hook-deferred) (cond ((and lookup-keymap (symbolp lookup-keymap) (and ergoemacs-translation-hash (hash-table-p ergoemacs-translation-hash) (gethash lookup-keymap ergoemacs-translation-hash nil))) (ergoemacs-command-loop--modal lookup-keymap)) ((consp (condition-case nil (progn (plist-get (ergoemacs-map-properties--map-fixed-plist lookup-keymap) :map-key)) (error nil))) lookup-keymap) ((and lookup-keymap (condition-case nil (progn (and (and ergoemacs-map-properties--plist-hash ... ...) (hash-table-p ...) (gethash :dont-modify-p ... nil))) (error nil))) lookup-keymap) ((progn (and (vectorp map) (>= (length map) 25) (memq (aref map 0) cl-struct-ergoemacs-component-struct-tags) t)) (let ((ret (cond (... ...) (... ret) (... ...) (t ...)))) (ergoemacs-map-keymap (function (lambda (key item) (if ... nil ... ... ... ...))) ret) ret)) ((and (consp map) lookup-keymap (or (equal lookup-keymap (make-sparse-keymap)) (equal lookup-keymap (make-keymap)))) lookup-keymap) ((and (consp map) (progn (setq unbind-list (progn (or ... ...))) t)) (cond ((not lookup-keymap) (setq tmp (progn (or ... ...))) (setq parent (copy-keymap (ergoemacs-map-properties--original ...)) composed-list (progn (or ... ...)) ret (progn (or ... ...)) ergoemacs-map-- (progn (or ... ...)) ergoemacs-map--lookup-hash (progn (or ... ...)) ergoemacs-map--undefined-keys (progn (or ... ...))) (define-key parent [menu-bar] tmp) (set-keymap-parent ret (make-composed-keymap composed-list parent)) (puthash lookup-key ret ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--lookup-hash)) ergoemacs-map--lookup-hash ergoemacs-map--hash) (puthash (ergoemacs-map--hashkey (quote ergoemacs-map--undefined-keys)) ergoemacs-map--undefined-keys ergoemacs-map--hash) (setq tmp2 (list)) (if ergoemacs-ignore-prev-global nil (setq tmp (ergoemacs-map-properties--before-ergoemacs)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 ...))) (setq tmp (ergoemacs-map-properties--before-ergoemacs t)) (if (ergoemacs-map-properties--empty-p tmp) nil (setq tmp2 (cons tmp tmp2))) (setq tmp (ergoemacs-map-properties--user parent)) (if tmp (progn (setq tmp2 ...))) (setq tmp2 (cons ergoemacs-user-keymap tmp2)) (define-key ret [ergoemacs-ignore] (quote ergoemacs-command-loop--ignore)) (setq ret (make-composed-keymap tmp2 ret))) (lookup-keymap (if (string= "" ergoemacs-map--breadcrumb) nil (if (not ...) (progn ... ... ...))) (setq lookup-keymap (ergoemacs-map-properties--original lookup-keymap) hook-overrides (ergoemacs-map-properties--override-maps lookup-keymap) use-local-unbind-list-p (ergoemacs-map-properties--use-local-unbind-list-p lookup-keymap)) (setq only-modify-p (condition-case nil (progn ...) (error nil)) lookup-key (ergoemacs-map--lookup-keymap-key lookup-keymap) composed-list (ergoemacs-map--composed-list lookup-keymap lookup-key only-modify-p use-local-unbind-list-p) ret (nth 2 composed-list) local-unbind-list (nth 1 composed-list) composed-list (nth 0 composed-list) parent (and (not recursive) lookup-keymap)) (if hook-overrides (progn (setq tmp ... tmp2 ... tmp3 ...) (ergoemacs-map-properties--put tmp2 :label ...) (ergoemacs-map-keymap ... tmp3) (if ... nil ...) (setq composed-list ...))) (if (setq hook-deferred (ergoemacs-map-properties--deferred-maps lookup-keymap)) (progn (setq tmp ... tmp2 ...) (ergoemacs-map-properties--put tmp2 :label ...) (ergoemacs-map-keymap ... ...) (if ... nil ...) (setq composed-list ...))) (setq unbound-passthrough (make-sparse-keymap)) (if (or hook-overrides hook-deferred) (progn (setq tmp3 ... tmp ...) (ergoemacs-map-keymap ... tmp3) (ergoemacs-map-properties--put unbound-passthrough :label ...))) (cond ((and only-modify-p composed-list) (setq ret ...) (setq tmp ...) (if tmp ...) ret) ((and only-modify-p ...) (setq ret parent)) (t (setq ret ...) (set-keymap-parent ret ...) (if ... nil ...) (setq tmp ...) (if tmp ...) (if ... ...))))) ret) ((and (not composed-list) parent) (unwind-protect (progn (set-keymap-parent lookup-keymap nil) (setq ret (ergoemacs-map-- lookup-keymap layout map t))) (set-keymap-parent lookup-keymap parent)) (setq parent (ergoemacs-map-- parent layout map t)) (set-keymap-parent ret parent) ret) (composed-list (make-composed-keymap (mapcar (function (lambda (x) (ergoemacs-map-- x layout map t))) composed-list) (ergoemacs-map-- parent layout map t))) (t (ergoemacs-warn "Component map isn't a proper argument for `ergoemacs-map'") (ergoemacs-warn " Lookup:%s" lookup-keymap) (ergoemacs-warn " Layout:%s" layout) (ergoemacs-warn "    Map:%s" map) (ergoemacs-warn "  Recursive:%s" recursive) lookup-keymap)))
  ergoemacs-map--(nil)
  (setq ergoemacs-map-- (make-hash-table :test (quote equal)) ergoemacs-map--lookup-hash (make-hash-table :test (quote equal)) ergoemacs-keymap (ergoemacs-map-- nil) ergoemacs-map--alist (make-hash-table) ergoemacs-map--alists (make-hash-table) ergoemacs-map--alist-t (make-hash-table) ergoemacs-map--alist-t-o (make-hash-table) ergoemacs-map--quit-map (make-sparse-keymap) ergoemacs-saved-global-map global-map global-map ergoemacs-keymap)
  ergoemacs-map--install()
  #<subr run-hooks>(ergoemacs-mode-startup-hook)
  apply(#<subr run-hooks> ergoemacs-mode-startup-hook)
  ad-Advice-run-hooks(#<subr run-hooks> ergoemacs-mode-startup-hook)
  apply(ad-Advice-run-hooks #<subr run-hooks> ergoemacs-mode-startup-hook)
  run-hooks(ergoemacs-mode-startup-hook)
  (progn (setq ergoemacs-mode--default-frame-alist nil) (let ((--dolist-tail-- (reverse default-frame-alist))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (setq ergoemacs-mode--default-frame-alist (cons elt ergoemacs-mode--default-frame-alist)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote ergoemacs-mode-startup-hook)) (add-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (add-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (add-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (setq ergoemacs-require--ini-p t ergoemacs-component-struct--apply-ensure-p t) (if refresh-p (message "Ergoemacs-mode keys refreshed (%s:%s)" ergoemacs-keyboard-layout (or ergoemacs-theme "standard")) (message "Ergoemacs-mode turned ON (%s:%s)." ergoemacs-keyboard-layout (or ergoemacs-theme "standard"))))
  (if ergoemacs-mode (progn (setq ergoemacs-mode--default-frame-alist nil) (let ((--dolist-tail-- (reverse default-frame-alist))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (setq ergoemacs-mode--default-frame-alist (cons elt ergoemacs-mode--default-frame-alist)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote ergoemacs-mode-startup-hook)) (add-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (add-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (add-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (setq ergoemacs-require--ini-p t ergoemacs-component-struct--apply-ensure-p t) (if refresh-p (message "Ergoemacs-mode keys refreshed (%s:%s)" ergoemacs-keyboard-layout (or ergoemacs-theme "standard")) (message "Ergoemacs-mode turned ON (%s:%s)." ergoemacs-keyboard-layout (or ergoemacs-theme "standard")))) (modify-all-frames-parameters ergoemacs-mode--default-frame-alist) (if (assoc (quote cursor-type) ergoemacs-mode--default-frame-alist) nil (modify-all-frames-parameters (list (cons (quote cursor-type) (quote box))))) (setq ergoemacs-mode--default-frame-alist nil ergoemacs-component-struct--apply-ensure-p t) (run-hooks (quote ergoemacs-mode-shutdown-hook)) (remove-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (remove-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (remove-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (if refresh-p nil (message "Ergoemacs-mode turned OFF.")))
  (let ((refresh-p ergoemacs-component-struct--refresh-variables)) (if ergoemacs-mode (progn (setq ergoemacs-mode--default-frame-alist nil) (let ((--dolist-tail-- (reverse default-frame-alist))) (while --dolist-tail-- (let ((elt ...)) (setq ergoemacs-mode--default-frame-alist (cons elt ergoemacs-mode--default-frame-alist)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote ergoemacs-mode-startup-hook)) (add-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (add-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (add-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (setq ergoemacs-require--ini-p t ergoemacs-component-struct--apply-ensure-p t) (if refresh-p (message "Ergoemacs-mode keys refreshed (%s:%s)" ergoemacs-keyboard-layout (or ergoemacs-theme "standard")) (message "Ergoemacs-mode turned ON (%s:%s)." ergoemacs-keyboard-layout (or ergoemacs-theme "standard")))) (modify-all-frames-parameters ergoemacs-mode--default-frame-alist) (if (assoc (quote cursor-type) ergoemacs-mode--default-frame-alist) nil (modify-all-frames-parameters (list (cons (quote cursor-type) (quote box))))) (setq ergoemacs-mode--default-frame-alist nil ergoemacs-component-struct--apply-ensure-p t) (run-hooks (quote ergoemacs-mode-shutdown-hook)) (remove-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (remove-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (remove-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (if refresh-p nil (message "Ergoemacs-mode turned OFF."))))
  (if (and (not noninteractive) (not ergoemacs-mode--start-p)) (if ergoemacs-mode (message "Ergoemacs will be started.") (message "Ergoemacs startup canceled.")) (setq ergoemacs-map--hashkey nil) (if ergoemacs-require--ini-p nil (setq ergoemacs-require--ini-p :ini) (if ergoemacs-require (progn (let ((--dolist-tail-- ergoemacs-require)) (while --dolist-tail-- (let (...) (apply ... elt) (setq --dolist-tail-- ...))))))) (let ((refresh-p ergoemacs-component-struct--refresh-variables)) (if ergoemacs-mode (progn (setq ergoemacs-mode--default-frame-alist nil) (let ((--dolist-tail-- (reverse default-frame-alist))) (while --dolist-tail-- (let (...) (setq ergoemacs-mode--default-frame-alist ...) (setq --dolist-tail-- ...)))) (run-hooks (quote ergoemacs-mode-startup-hook)) (add-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (add-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (add-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (setq ergoemacs-require--ini-p t ergoemacs-component-struct--apply-ensure-p t) (if refresh-p (message "Ergoemacs-mode keys refreshed (%s:%s)" ergoemacs-keyboard-layout (or ergoemacs-theme "standard")) (message "Ergoemacs-mode turned ON (%s:%s)." ergoemacs-keyboard-layout (or ergoemacs-theme "standard")))) (modify-all-frames-parameters ergoemacs-mode--default-frame-alist) (if (assoc (quote cursor-type) ergoemacs-mode--default-frame-alist) nil (modify-all-frames-parameters (list (cons (quote cursor-type) (quote box))))) (setq ergoemacs-mode--default-frame-alist nil ergoemacs-component-struct--apply-ensure-p t) (run-hooks (quote ergoemacs-mode-shutdown-hook)) (remove-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (remove-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (remove-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (if refresh-p nil (message "Ergoemacs-mode turned OFF.")))))
  (let ((last-message (current-message))) (setq ergoemacs-mode (if (eq arg (quote toggle)) (not ergoemacs-mode) (> (prefix-numeric-value arg) 0))) (run-hooks (quote ergoemacs-mode-hook) (if ergoemacs-mode (quote ergoemacs-mode-on-hook) (quote ergoemacs-mode-off-hook))) (if (called-interactively-p (quote any)) (progn (customize-mark-as-set (quote ergoemacs-mode)) (if (and (current-message) (not (equal last-message (current-message)))) nil (message "Ergoemacs mode %sabled" (if ergoemacs-mode "en" "dis"))))) (if (and (not noninteractive) (not ergoemacs-mode--start-p)) (if ergoemacs-mode (message "Ergoemacs will be started.") (message "Ergoemacs startup canceled.")) (setq ergoemacs-map--hashkey nil) (if ergoemacs-require--ini-p nil (setq ergoemacs-require--ini-p :ini) (if ergoemacs-require (progn (let ((--dolist-tail-- ergoemacs-require)) (while --dolist-tail-- (let ... ... ...)))))) (let ((refresh-p ergoemacs-component-struct--refresh-variables)) (if ergoemacs-mode (progn (setq ergoemacs-mode--default-frame-alist nil) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (run-hooks (quote ergoemacs-mode-startup-hook)) (add-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (add-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (add-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (setq ergoemacs-require--ini-p t ergoemacs-component-struct--apply-ensure-p t) (if refresh-p (message "Ergoemacs-mode keys refreshed (%s:%s)" ergoemacs-keyboard-layout (or ergoemacs-theme "standard")) (message "Ergoemacs-mode turned ON (%s:%s)." ergoemacs-keyboard-layout (or ergoemacs-theme "standard")))) (modify-all-frames-parameters ergoemacs-mode--default-frame-alist) (if (assoc (quote cursor-type) ergoemacs-mode--default-frame-alist) nil (modify-all-frames-parameters (list (cons ... ...)))) (setq ergoemacs-mode--default-frame-alist nil ergoemacs-component-struct--apply-ensure-p t) (run-hooks (quote ergoemacs-mode-shutdown-hook)) (remove-hook (quote post-command-hook) (function ergoemacs-post-command-hook)) (remove-hook (quote pre-command-hook) (function ergoemacs-pre-command-hook)) (remove-hook (quote after-load-functions) (function ergoemacs-after-load-functions)) (if refresh-p nil (message "Ergoemacs-mode turned OFF."))))))
  ergoemacs-mode(t)
  (closure (ergoemacs-translate--translation-hash ergoemacs-component-struct--apply-ensure-p pcache-directory ergoemacs-require ergoemacs-require--ini-p ergoemacs-map--hashkey ergoemacs-keyboard-layout ergoemacs-component-struct--refresh-variables cl-struct-ergoemacs-component-struct-tags t) nil (setq ergoemacs-mode--start-p t) (ergoemacs-mode ergoemacs-mode) (run-hooks (quote ergoemacs-mode-init-hook)) (add-hook (quote after-load-functions) (function ergoemacs-mode-after-startup-run-load-hooks)))()
  funcall((closure (ergoemacs-translate--translation-hash ergoemacs-component-struct--apply-ensure-p pcache-directory ergoemacs-require ergoemacs-require--ini-p ergoemacs-map--hashkey ergoemacs-keyboard-layout ergoemacs-component-struct--refresh-variables cl-struct-ergoemacs-component-struct-tags t) nil (setq ergoemacs-mode--start-p t) (ergoemacs-mode ergoemacs-mode) (run-hooks (quote ergoemacs-mode-init-hook)) (add-hook (quote after-load-functions) (function ergoemacs-mode-after-startup-run-load-hooks))))
  (let* ((entry-time (current-time)) (ret (funcall function)) val) (if (not ergoemacs-timing-hash) (setq ergoemacs-timing-hash (make-hash-table)) (if (not (setq val (gethash key ergoemacs-timing-hash))) (puthash key (vector 1 (float-time (time-subtract (current-time) entry-time))) ergoemacs-timing-hash) (let* ((v val)) (aset v 0 (+ (aref v 0) 1))) (let* ((v val)) (aset v 1 (+ (aref v 1) (float-time (time-subtract ... entry-time))))) (puthash key val ergoemacs-timing-hash))) ret)
  ergoemacs-timing--(ergoemacs-mode-after-init-emacs (closure (ergoemacs-translate--translation-hash ergoemacs-component-struct--apply-ensure-p pcache-directory ergoemacs-require ergoemacs-require--ini-p ergoemacs-map--hashkey ergoemacs-keyboard-layout ergoemacs-component-struct--refresh-variables cl-struct-ergoemacs-component-struct-tags t) nil (setq ergoemacs-mode--start-p t) (ergoemacs-mode ergoemacs-mode) (run-hooks (quote ergoemacs-mode-init-hook)) (add-hook (quote after-load-functions) (function ergoemacs-mode-after-startup-run-load-hooks))))
  (if ergoemacs-mode--start-p nil (ergoemacs-timing-- (quote ergoemacs-mode-after-init-emacs) (function (lambda nil (setq ergoemacs-mode--start-p t) (ergoemacs-mode ergoemacs-mode) (run-hooks (quote ergoemacs-mode-init-hook)) (add-hook (quote after-load-functions) (function ergoemacs-mode-after-startup-run-load-hooks))))))
  ergoemacs-mode-after-init-emacs()
  #<subr run-hooks>(emacs-startup-hook)
  apply(#<subr run-hooks> emacs-startup-hook)
  ad-Advice-run-hooks(#<subr run-hooks> emacs-startup-hook)
  apply(ad-Advice-run-hooks #<subr run-hooks> emacs-startup-hook)
  run-hooks(emacs-startup-hook)
  command-line-1(nil)
  command-line()
  normal-top-level()

[mattfidler]

Thank you for bringing this to my attention. I think this commit should fix this issue.

I had noticed also noticed a "keymap witness" bug that was a bit difficult to track down, but it should also be fixed. It only at specialized times of `set-transient-map'.

If there is another bug you are seeing let me know.

[mattfidler]

I'm assuming this works.

[sg2002]

Yeah, this seems to work.