Closed mattfidler closed 9 years ago
I get an error as follows:
Debugger entered--Lisp error: (wrong-type-argument window-live-p #<frame EmacsLocal-24.3 (EmacsMate) glaucoma-disease-model-build-data.org: m:/Work/0166/Model/glaucoma-disease-model/src/glaucoma-disease-model-build-data.org 014E7C70>) ad-Orig-select-window(#<frame EmacsLocal-24.3 (EmacsMate) glaucoma-disease-model-build-data.org: m:/Work/0166/Model/glaucoma-disease-model/src/glaucoma-disease-model-build-data.org 014E7C70> nil) select-window(#<frame EmacsLocal-24.3 (EmacsMate) glaucoma-disease-model-build-data.org: m:/Work/0166/Model/glaucoma-disease-model/src/glaucoma-disease-model-build-data.org 014E7C70>) (prog1 (selected-window) (select-window (mwheel-event-window event))) (if mouse-wheel-follow-mouse (prog1 (selected-window) (select-window (mwheel-event-window event)))) (let* ((curwin (if mouse-wheel-follow-mouse (prog1 (selected-window) (select-window (mwheel-event-window event))))) (buffer (window-buffer curwin)) (opoint (with-current-buffer buffer (when (eq (car-safe transient-mark-mode) (quote only)) (point)))) (mods (delq (quote click) (delq (quote double) (delq (quote triple) (event-modifiers event))))) (amt (assoc mods mouse-wheel-scroll-amount))) (if amt (setq amt (cdr amt)) (let ((list-elt mouse-wheel-scroll-amount)) (while (consp (setq amt (pop list-elt)))))) (if (floatp amt) (setq amt (1+ (truncate (* amt (window-height)))))) (when (and mouse-wheel-progressive-speed (numberp amt)) (setq amt (* amt (event-click-count event)))) (unwind-protect (let ((button (mwheel-event-button event))) (cond ((eq button mouse-wheel-down-event) (condition-case nil (funcall mwheel-scroll-down-function amt) (beginning-of-buffer (unwind-protect ... ...)))) ((eq button mouse-wheel-up-event) (condition-case nil (funcall mwheel-scroll-up-function amt) (end-of-buffer (while t ...)))) (t (error "Bad binding in mwheel-scroll")))) (if curwin (select-window curwin))) (when opoint (with-current-buffer buffer (when (/= opoint (point)) (let ((newpoint (point))) (goto-char opoint) (deactivate-mark) (goto-char newpoint)))))) mwheel-scroll((wheel-down (#<frame EmacsLocal-24.3 (EmacsMate) glaucoma-disease-model-build-data.org: m:/Work/0166/Model/glaucoma-disease-model/src/glaucoma-disease-model-build-data.org 014E7C70> nil (0 . 0) 25633538))) ad-Orig-call-interactively(mwheel-scroll t nil) call-interactively(mwheel-scroll t nil) (cond ((condition-case nil (progn (keymapp command)) (error nil)) (popup-menu command nil current-prefix-arg)) (t (call-interactively (ergoemacs-command-loop--modify-mouse-command command) record-flag keys))) ergoemacs-command-loop--call-mouse-command(mwheel-scroll t nil) (let* ((posn (condition-case nil (progn (car (cdr last-command-event))) (error nil))) (area (and posn (posnp posn) (posn-area posn))) (original-command command) (command command) (obj (and posn (posnp posn) (posn-object posn))) form tmp) (if area (progn (setq command (key-binding (vconcat (list area last-command-event)) t)) (if (and obj (consp obj) (setq tmp (get-text-property (cdr obj) (quote local-map) (car obj))) (setq tmp (lookup-key tmp (vconcat ...)))) (progn (setq command tmp))))) (if command nil (setq command original-command)) (ergoemacs-command-loop--call-mouse-command command record-flag keys)) (cond ((and (eventp last-command-event) (consp last-command-event)) (let* ((posn (condition-case nil (progn (car ...)) (error nil))) (area (and posn (posnp posn) (posn-area posn))) (original-command command) (command command) (obj (and posn (posnp posn) (posn-object posn))) form tmp) (if area (progn (setq command (key-binding (vconcat ...) t)) (if (and obj (consp obj) (setq tmp ...) (setq tmp ...)) (progn (setq command tmp))))) (if command nil (setq command original-command)) (ergoemacs-command-loop--call-mouse-command command record-flag keys))) ((and (symbolp command) (not (commandp command)) (string-match-p "^\\(ergoemacs-\\|ergoemacs-translate--\\)\\(.*\\)\\(-modal\\|-universal-argument\\|-negative-argument\\|-digit-argument\\|-modal\\)$" (symbol-name command)) (ergoemacs-translate--get (intern (replace-regexp-in-string "^\\(ergoemacs-\\|ergoemacs-translate--\\)\\(.*\\)\\(-modal\\|-universal-argument\\|-negative-argument\\|-digit-argument\\|-modal\\)$" ":\\2" (symbol-name command)))) (commandp command)) (call-interactively command record-flag keys)) ((and (symbolp command) (not (fboundp command))) (ergoemacs-command-loop--message "Command `%s' is not found" command)) ((and (symbolp command) (not (commandp command))) (ergoemacs-command-loop--message "Command `%s' cannot be called from a key" command)) (t (call-interactively command record-flag keys))) ergoemacs-command-loop--call-interactively(mwheel-scroll t) (unwind-protect (ergoemacs-command-loop--call-interactively this-command t) (setq ergoemacs-command-loop--single-command-keys nil)) (cond ((or (stringp command) (vectorp command)) (let ((tmp (prefix-numeric-value current-prefix-arg))) (cond ((<= tmp 0) (ergoemacs-command-loop--message "The %s keyboard macro was not run %s times" (ergoemacs-key-description (vconcat command)) tmp)) (t (execute-kbd-macro command tmp)))) (setq ergoemacs-command-loop--single-command-keys nil)) (t (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t) before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (progn (let (...) (while --dolist-tail-- ...)))) (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))) (ergoemacs-command-loop--execute-handle-shift-selection this-command) (if keys (progn (setq ergoemacs-command-loop--single-command-keys keys) (if (consp last-command-event) nil (setq last-nonmenu-event last-command-event)))) (unwind-protect (progn (setq ergoemacs-command-loop--running-pre-command-hook-p t) (run-hooks (quote pre-command-hook))) (setq ergoemacs-command-loop--running-pre-command-hook-p nil)) (unwind-protect (ergoemacs-command-loop--call-interactively this-command t) (setq ergoemacs-command-loop--single-command-keys nil)))) (let ((keys (or keys ergoemacs-command-loop--single-command-keys))) (cond ((or (stringp command) (vectorp command)) (let ((tmp (prefix-numeric-value current-prefix-arg))) (cond ((<= tmp 0) (ergoemacs-command-loop--message "The %s keyboard macro was not run %s times" (ergoemacs-key-description ...) tmp)) (t (execute-kbd-macro command tmp)))) (setq ergoemacs-command-loop--single-command-keys nil)) (t (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t) before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (progn (let ... ...))) (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))) (ergoemacs-command-loop--execute-handle-shift-selection this-command) (if keys (progn (setq ergoemacs-command-loop--single-command-keys keys) (if (consp last-command-event) nil (setq last-nonmenu-event last-command-event)))) (unwind-protect (progn (setq ergoemacs-command-loop--running-pre-command-hook-p t) (run-hooks (quote pre-command-hook))) (setq ergoemacs-command-loop--running-pre-command-hook-p nil)) (unwind-protect (ergoemacs-command-loop--call-interactively this-command t) (setq ergoemacs-command-loop--single-command-keys nil))))) (unwind-protect (let ((keys (or keys ergoemacs-command-loop--single-command-keys))) (cond ((or (stringp command) (vectorp command)) (let ((tmp (prefix-numeric-value current-prefix-arg))) (cond ((<= tmp 0) (ergoemacs-command-loop--message "The %s keyboard macro was not run %s times" ... tmp)) (t (execute-kbd-macro command tmp)))) (setq ergoemacs-command-loop--single-command-keys nil)) (t (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t) before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (progn ...)) (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))) (ergoemacs-command-loop--execute-handle-shift-selection this-command) (if keys (progn (setq ergoemacs-command-loop--single-command-keys keys) (if (consp last-command-event) nil (setq last-nonmenu-event last-command-event)))) (unwind-protect (progn (setq ergoemacs-command-loop--running-pre-command-hook-p t) (run-hooks (quote pre-command-hook))) (setq ergoemacs-command-loop--running-pre-command-hook-p nil)) (unwind-protect (ergoemacs-command-loop--call-interactively this-command t) (setq ergoemacs-command-loop--single-command-keys nil)))))) ergoemacs-command-loop--execute(mwheel-scroll) (let ((inhibit-quit nil)) (ergoemacs-command-loop--execute command)) (condition-case nil (let ((inhibit-quit nil)) (ergoemacs-command-loop--execute command)) (quit (setq quit-flag t) (eval (quote (ignore nil))))) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil (let ((inhibit-quit nil)) (ergoemacs-command-loop--execute command)) (quit (setq quit-flag t) (eval (quote (ignore nil)))))) (if (setq continue-read (condition-case nil (progn (keymapp command)) (error nil))) (setq universal nil) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil (let ((inhibit-quit nil)) (ergoemacs-command-loop--execute command)) (quit (setq quit-flag t) (eval (quote (ignore nil)))))) (if quit-flag (progn (ergoemacs-command-loop--message "Quit!"))) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit) current-prefix-arg (if ergoemacs-command-loop--universal current-prefix-arg prefix-arg)) (if (and (not continue-read) (eq ergoemacs-command-loop--exit :ignore-post-command-hook)) (progn (setq continue-read t)))) (cond ((and (or modal-p (not (equal current-key raw-key))) (setq command (lookup-key local-keymap raw-key)) (not (condition-case nil (progn (keymapp command)) (error nil))) (not (and ergoemacs-command-loop--next-key-hash (hash-table-p ergoemacs-command-loop--next-key-hash) (gethash command ergoemacs-command-loop--next-key-hash nil))) (or modal-p (and (symbolp command) (eq (get command :ergoemacs-local) :force)) (not (key-binding current-key t)))) (car (prog1 ergoemacs-command-loop--history (setq ergoemacs-command-loop--history (cdr ergoemacs-command-loop--history)))) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if (eq ergoemacs-command-loop-type :test) nil (ergoemacs-command-loop--call-interactively command)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit))) ((setq command (ergoemacs-command-loop--key-lookup current-key)) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if (setq continue-read (condition-case nil (progn (keymapp command)) (error nil))) (setq universal nil) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil (let ((inhibit-quit nil)) (ergoemacs-command-loop--execute command)) (quit (setq quit-flag t) (eval (quote ...))))) (if quit-flag (progn (ergoemacs-command-loop--message "Quit!"))) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit) current-prefix-arg (if ergoemacs-command-loop--universal current-prefix-arg prefix-arg)) (if (and (not continue-read) (eq ergoemacs-command-loop--exit :ignore-post-command-hook)) (progn (setq continue-read t)))) (if (or (not ergoemacs-command-loop--exit) (and (not continue-read) (setq continue-read unread-command-events))) (progn (ergoemacs-command-loop--internal-end-command)))) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." (ergoemacs-key-description current-key)))) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key (or (and unread-command-events :normal) type) (and (not unread-command-events) universal)) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p (ergoemacs-command-loop--modal-p)) (progn (setq local-keymap (ergoemacs-translate--keymap translation)))) (cond ((and (or modal-p (not (equal current-key raw-key))) (setq command (lookup-key local-keymap raw-key)) (not (condition-case nil (progn (keymapp command)) (error nil))) (not (and ergoemacs-command-loop--next-key-hash (hash-table-p ergoemacs-command-loop--next-key-hash) (gethash command ergoemacs-command-loop--next-key-hash nil))) (or modal-p (and (symbolp command) (eq (get command :ergoemacs-local) :force)) (not (key-binding current-key t)))) (car (prog1 ergoemacs-command-loop--history (setq ergoemacs-command-loop--history (cdr ergoemacs-command-loop--history)))) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if (eq ergoemacs-command-loop-type :test) nil (ergoemacs-command-loop--call-interactively command)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit))) ((setq command (ergoemacs-command-loop--key-lookup current-key)) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if (setq continue-read (condition-case nil (progn (keymapp command)) (error nil))) (setq universal nil) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil (let (...) (ergoemacs-command-loop--execute command)) (quit (setq quit-flag t) (eval ...)))) (if quit-flag (progn (ergoemacs-command-loop--message "Quit!"))) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit) current-prefix-arg (if ergoemacs-command-loop--universal current-prefix-arg prefix-arg)) (if (and (not continue-read) (eq ergoemacs-command-loop--exit :ignore-post-command-hook)) (progn (setq continue-read t)))) (if (or (not ergoemacs-command-loop--exit) (and (not continue-read) (setq continue-read unread-command-events))) (progn (ergoemacs-command-loop--internal-end-command)))) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." (ergoemacs-key-description current-key))))) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key (or (and unread-command-events :normal) type) (and (not unread-command-events) universal)) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p (ergoemacs-command-loop--modal-p)) (progn (setq local-keymap (ergoemacs-translate--keymap translation)))) (cond ((and (or modal-p (not (equal current-key raw-key))) (setq command (lookup-key local-keymap raw-key)) (not (condition-case nil (progn ...) (error nil))) (not (and ergoemacs-command-loop--next-key-hash (hash-table-p ergoemacs-command-loop--next-key-hash) (gethash command ergoemacs-command-loop--next-key-hash nil))) (or modal-p (and (symbolp command) (eq ... :force)) (not (key-binding current-key t)))) (car (prog1 ergoemacs-command-loop--history (setq ergoemacs-command-loop--history (cdr ergoemacs-command-loop--history)))) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if (eq ergoemacs-command-loop-type :test) nil (ergoemacs-command-loop--call-interactively command)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit))) ((setq command (ergoemacs-command-loop--key-lookup current-key)) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if (setq continue-read (condition-case nil (progn ...) (error nil))) (setq universal nil) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil (let ... ...) (quit ... ...))) (if quit-flag (progn (ergoemacs-command-loop--message "Quit!"))) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit) current-prefix-arg (if ergoemacs-command-loop--universal current-prefix-arg prefix-arg)) (if (and (not continue-read) (eq ergoemacs-command-loop--exit :ignore-post-command-hook)) (progn (setq continue-read t)))) (if (or (not ergoemacs-command-loop--exit) (and (not continue-read) (setq continue-read unread-command-events))) (progn (ergoemacs-command-loop--internal-end-command)))) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." (ergoemacs-key-description current-key))))) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events (and from-start-p (ergoemacs-command-loop-persistent-p))) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or (and unread-command-events tmp (append tmp unread-command-events)) tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key (or (and unread-command-events :normal) type) (and (not unread-command-events) universal)) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p (ergoemacs-command-loop--modal-p)) (progn (setq local-keymap (ergoemacs-translate--keymap translation)))) (cond ((and (or modal-p (not ...)) (setq command (lookup-key local-keymap raw-key)) (not (condition-case nil ... ...)) (not (and ergoemacs-command-loop--next-key-hash ... ...)) (or modal-p (and ... ...) (not ...))) (car (prog1 ergoemacs-command-loop--history (setq ergoemacs-command-loop--history ...))) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if (eq ergoemacs-command-loop-type :test) nil (ergoemacs-command-loop--call-interactively command)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation))) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit))) ((setq command (ergoemacs-command-loop--key-lookup current-key)) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if (setq continue-read (condition-case nil ... ...)) (setq universal nil) (if (eq ergoemacs-command-loop-type :test) nil (condition-case nil ... ...)) (if quit-flag (progn ...)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation ... local-keymap ...)) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit) current-prefix-arg (if ergoemacs-command-loop--universal current-prefix-arg prefix-arg)) (if (and ... ...) (progn ...))) (if (or (not ergoemacs-command-loop--exit) (and ... ...)) (progn (ergoemacs-command-loop--internal-end-command)))) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." (ergoemacs-key-description current-key))))) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events (and from-start-p (ergoemacs-command-loop-persistent-p))) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil)) (unwind-protect (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or (and unread-command-events tmp (append tmp unread-command-events)) tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key (or (and unread-command-events :normal) type) (and (not unread-command-events) universal)) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p (ergoemacs-command-loop--modal-p)) (progn (setq local-keymap (ergoemacs-translate--keymap translation)))) (cond ((and (or modal-p ...) (setq command ...) (not ...) (not ...) (or modal-p ... ...)) (car (prog1 ergoemacs-command-loop--history ...)) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if (eq ergoemacs-command-loop-type :test) nil (ergoemacs-command-loop--call-interactively command)) (if (equal type ergoemacs-command-loop--current-type) nil (setq type ergoemacs-command-loop--current-type translation ... local-keymap ...)) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read (not ergoemacs-command-loop--exit))) ((setq command (ergoemacs-command-loop--key-lookup current-key)) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if (setq continue-read ...) (setq universal nil) (if ... nil ...) (if quit-flag ...) (if ... nil ...) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read ... current-prefix-arg ...) (if ... ...)) (if (or ... ...) (progn ...))) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." (ergoemacs-key-description current-key))))) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events (and from-start-p (ergoemacs-command-loop-persistent-p))) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil))) (let* ((type (or type :normal)) (from-start-p ergoemacs-command-loop-start) (continue-read t) (first-type type) raw-key current-key last-current-key (translation (ergoemacs-translate--get type)) (local-keymap (ergoemacs-translate--keymap translation)) modal-p tmp command) (unwind-protect (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or (and unread-command-events tmp (append tmp unread-command-events)) tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key (or ... type) (and ... universal)) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p (ergoemacs-command-loop--modal-p)) (progn (setq local-keymap ...))) (cond ((and ... ... ... ... ...) (car ...) (setq ergoemacs-command-loop--single-command-keys last-current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal ergoemacs-command-loop--exit nil) (if ... nil ...) (if ... nil ...) (setq current-key ergoemacs-command-loop--single-command-keys universal ergoemacs-command-loop--universal ergoemacs-command-loop--single-command-keys nil continue-read ...)) ((setq command ...) (setq ergoemacs-command-loop--single-command-keys current-key universal-argument-num-events 0 ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal nil ergoemacs-command-loop--exit t) (if ... ... ... ... ... ... ...) (if ... ...)) (quit-flag (ergoemacs-command-loop--message "Quit!") (setq quit-flag nil type :normal first-type :normal raw-key nil current-key nil translation ... local-keymap ... ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (t (ergoemacs-command-loop--message "Key %s doesn't do anything." ...)))) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events (and from-start-p (ergoemacs-command-loop-persistent-p))) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil))) command) (progn (if (eq (function ergoemacs-command-loop--this-command-keys) (quote cl--unbound)) (fmakunbound (quote this-command-keys)) (fset (quote this-command-keys) (function ergoemacs-command-loop--this-command-keys))) (let* ((type (or type :normal)) (from-start-p ergoemacs-command-loop-start) (continue-read t) (first-type type) raw-key current-key last-current-key (translation (ergoemacs-translate--get type)) (local-keymap (ergoemacs-translate--keymap translation)) modal-p tmp command) (unwind-protect (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or (and unread-command-events tmp (append tmp unread-command-events)) tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key (ergoemacs-command-loop--read-key current-key ... ...) ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key (nth 1 raw-key) raw-key (nth 0 raw-key) continue-read nil) (if (setq modal-p ...) (progn ...)) (cond (... ... ... ... ... ...) (... ... ... ...) (quit-flag ... ...) (t ...))) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events (and from-start-p ...)) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil))) command)) (unwind-protect (progn (if (eq (function ergoemacs-command-loop--this-command-keys) (quote cl--unbound)) (fmakunbound (quote this-command-keys)) (fset (quote this-command-keys) (function ergoemacs-command-loop--this-command-keys))) (let* ((type (or type :normal)) (from-start-p ergoemacs-command-loop-start) (continue-read t) (first-type type) raw-key current-key last-current-key (translation (ergoemacs-translate--get type)) (local-keymap (ergoemacs-translate--keymap translation)) modal-p tmp command) (unwind-protect (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or (and unread-command-events tmp ...) tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read (setq ergoemacs-command-loop--single-command-keys current-key ergoemacs-command-loop--current-type type ergoemacs-command-loop--universal universal raw-key ... ergoemacs-command-loop--single-command-keys nil universal-argument-num-events 0 last-current-key current-key current-key ... raw-key ... continue-read nil) (if ... ...) (cond ... ... ... ...)) (if quit-flag nil (ergoemacs-command-loop--internal-end-command)) (setq quit-flag nil type :normal continue-read (or unread-command-events ...) first-type :normal raw-key nil current-key nil translation (ergoemacs-translate--get type) local-keymap (ergoemacs-translate--keymap translation) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil))) command)) (if (eq old (quote cl--unbound)) (fmakunbound (quote this-command-keys)) (fset (quote this-command-keys) old))) (let* ((old (if (fboundp (quote this-command-keys)) (symbol-function (quote this-command-keys)) (quote cl--unbound)))) (unwind-protect (progn (if (eq (function ergoemacs-command-loop--this-command-keys) (quote cl--unbound)) (fmakunbound (quote this-command-keys)) (fset (quote this-command-keys) (function ergoemacs-command-loop--this-command-keys))) (let* ((type (or type :normal)) (from-start-p ergoemacs-command-loop-start) (continue-read t) (first-type type) raw-key current-key last-current-key (translation (ergoemacs-translate--get type)) (local-keymap (ergoemacs-translate--keymap translation)) modal-p tmp command) (unwind-protect (progn (setq tmp (ergoemacs-command-loop--listify-key-sequence key initial-key-type) unread-command-events (or ... tmp) ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil ergoemacs-command-loop-start nil) (while continue-read (setq inhibit-quit t) (while continue-read ... ... ...) (if quit-flag nil ...) (setq quit-flag nil type :normal continue-read ... first-type :normal raw-key nil current-key nil translation ... local-keymap ... ergoemacs-command-loop--first-type first-type ergoemacs-command-loop--history nil)) (setq inhibit-quit nil))) command)) (if (eq old (quote cl--unbound)) (fmakunbound (quote this-command-keys)) (fset (quote this-command-keys) old)))) ergoemacs-command-loop--internal(nil nil nil nil) (cond ((and ergoemacs-command-loop-start (not (ergoemacs-command-loop-p))) (ergoemacs-command-loop--message "Start ergoemacs-mode command loop.") (ergoemacs-command-loop--internal key type initial-key-type universal)) (t (setq ergoemacs-command-loop--exit :ignore-post-command-hook prefix-arg current-prefix-arg ergoemacs-command-loop--single-command-keys (or (and key (read-kbd-macro key t)) ergoemacs-command-loop--single-command-keys) unread-command-events (or (and key (ergoemacs-command-loop--listify-key-sequence key initial-key-type)) unread-command-events) ergoemacs-command-loop--universal (if (and ergoemacs-command-loop--universal (not universal)) nil universal) ergoemacs-command-loop--current-type (or type ergoemacs-command-loop--current-type)))) ergoemacs-command-loop() ergoemacs-command-loop-start() ad-Orig-call-interactively(ergoemacs-command-loop-start nil nil) call-interactively(ergoemacs-command-loop-start nil nil)
I get an error as follows: