search

ergoemacs / ergoemacs-mode

ergoemacs-mode
ergoemacs.github.io/
GNU General Public License v3.0
293 stars 35 forks source link

Imcompatible with Emacs 25 #330

Closed GongYiLiao closed 3 years ago

GongYiLiao commented 9 years ago

Installing ergoemacs within Emacs 25 will lead to the following error message: 

 Invalid slot name: #<ergoemacs-composite-map ergoemacs-composite-map>, nil
mattfidler commented 9 years ago

I don't have Emacs 25 (I'm still using emacs 24.3), but it seems like an eieio issue. Can you get a backtrace and let me know what version of eieio emacs 25 is using?

GongYiLiao commented 9 years ago

The error message: 


Debugger entered--Lisp error: (invalid-slot-name "#<ergoemacs-composite-map ergoemacs-composite-map>" nil)
  signal(invalid-slot-name ("#<ergoemacs-composite-map ergoemacs-composite-map>" nil))
  #[1027 "\300\301\302!D\"\207" [signal invalid-slot-name eieio-object-name] 8 "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from `oref', `oset', and other functions which\ndirectly reference slots in EIEIO objects.\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]] nil oset nil)
  apply(#[1027 "\300\301\302!D\"\207" [signal invalid-slot-name eieio-object-name] 8 "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from `oref', `oset', and other functions which\ndirectly reference slots in EIEIO objects.\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"] [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]] (nil oset nil))
  slot-missing([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]] nil oset nil)
  #[514 "\211\2051
mattfidler commented 9 years ago

You could try to downgrade to ergoemacs-mode stable. Issue #322 reports the stable version works in emacs 25.

magichowl commented 9 years ago

I've tested all stable versions, they all failed with the same problem under emacs25 2015-2-20,

BUT under emacs25 2014-10-03, ergoemacs-mode-5.14.7.3 works.
Waiting for your newer stable one.😊

giacomoi commented 9 years ago

I still have the same problem on Emacs 25.0.50.1 of 2015-03-12 with ergoemacs-mode 5.14.7.3

I'm waiting as well :)

mattfidler commented 9 years ago

I agree. Perhaps someone can point me to some windows binaries.

I do have some issues with finding where the issue is with the current backtrace. I think you would need to remove all the eieio elc files and the ergoemacs elc files for me to figure out what the problem is... Otherwise, I will have to rewrite the core engine to not use eieio. It will be done eventually since this eieio seems to change frequently and may add to the lagginess found in ergoemacs-mode now.

rrmdev commented 9 years ago

I confirm the bug on GNU Emacs 25.0.50.1 (on linux) & ergoemacs-mode-5.14.7.3

Error message: Invalid slot name: ergoemacs-composite-map ergoemacs-composite-map, nil

mattfidler commented 9 years ago

I sent an error message to the cedet development folks to see what is happening. I'm not sure what changed.

mattfidler commented 9 years ago

A more complete backtrace is:

Debugger entered--Lisp error: (invalid-slot-name "#<ergoemacs-composite-map ergoemacs-composite-map>" nil)
  signal(invalid-slot-name ("#<ergoemacs-composite-map ergoemacs-composite-map>" nil))
  (progn (signal (quote invalid-slot-name) (list (eieio-object-name object) slot-name)))
  (closure (t) (object slot-name _operation &optional _new-value) "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from `oref', `oset', and other functions which\ndirectly reference slots in EIEIO objects." (progn (signal (quote invalid-slot-name) (list (eieio-object-name object) slot-name))))([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil oset nil)
  apply((closure (t) (object slot-name _operation &optional _new-value) "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from `oref', `oset', and other functions which\ndirectly reference slots in EIEIO objects." (progn (signal (quote invalid-slot-name) (list (eieio-object-name object) slot-name)))) [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] (nil oset nil))
  slot-missing([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil oset nil)
  (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots))))
  (let ((rn (eieio--initarg-to-attribute (eieio--object-class-object obj) (car slots)))) (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots)))))
  (while slots (let ((rn (eieio--initarg-to-attribute (eieio--object-class-object obj) (car slots)))) (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots))))) (setq slots (cdr (cdr slots))))
  (progn (while slots (let ((rn (eieio--initarg-to-attribute (eieio--object-class-object obj) (car slots)))) (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots))))) (setq slots (cdr (cdr slots)))))
  (closure (t) (obj slots) "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine." (progn (while slots (let ((rn (eieio--initarg-to-attribute (eieio--object-class-object obj) (car slots)))) (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots))))) (setq slots (cdr (cdr slots))))))([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] (nil))
  apply((closure (t) (obj slots) "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine." (progn (while slots (let ((rn (eieio--initarg-to-attribute (eieio--object-class-object obj) (car slots)))) (if (not rn) (slot-missing obj (car slots) (quote oset) (car (cdr slots))) (eieio-oset obj rn (car (cdr slots))))) (setq slots (cdr (cdr slots)))))) [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] (nil))
  shared-initialize([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] (nil))
  (if params (shared-initialize nobj params))
  (let ((nobj (copy-sequence obj))) (if (stringp (car params)) (funcall (if eieio-backward-compatibility (function ignore) (function message)) "Obsolete name %S passed to clone" (car-safe (prog1 params (setq params (cdr params)))))) (if params (shared-initialize nobj params)) nobj)
  (let* nil (let ((nobj (copy-sequence obj))) (if (stringp (car params)) (funcall (if eieio-backward-compatibility (function ignore) (function message)) "Obsolete name %S passed to clone" (car-safe (prog1 params (setq params (cdr params)))))) (if params (shared-initialize nobj params)) nobj))
  (progn (let* nil (let ((nobj (copy-sequence obj))) (if (stringp (car params)) (funcall (if eieio-backward-compatibility (function ignore) (function message)) "Obsolete name %S passed to clone" (car-safe (prog1 params (setq params ...))))) (if params (shared-initialize nobj params)) nobj)))
  (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj (copy-sequence obj))) (if (stringp (car params)) (funcall (if eieio-backward-compatibility (function ignore) (function message)) "Obsolete name %S passed to clone" (car-safe (prog1 params ...)))) (if params (shared-initialize nobj params)) nobj))))([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  apply((closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj (copy-sequence obj))) (if (stringp (car params)) (funcall (if eieio-backward-compatibility (function ignore) (function message)) "Obsolete name %S passed to clone" (car-safe (prog1 params ...)))) (if params (shared-initialize nobj params)) nobj)))) ([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil))
  (closure ((args [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil) (next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args)))([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  apply((closure ((args [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil) (next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args))) [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  (let* ((newname (and (stringp (car params)) (car-safe (prog1 params (setq params (cdr params)))))) (nobj (apply cl--cnm obj params)) (nm (slot-value obj (quote object-name)))) (eieio-oset obj (quote object-name) (or newname (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (and nm ...) (let ... ...) (concat nm "-1"))) (set-match-data save-match-data-internal (quote evaporate)))))) nobj)
  (let* nil (let* ((newname (and (stringp (car params)) (car-safe (prog1 params (setq params ...))))) (nobj (apply cl--cnm obj params)) (nm (slot-value obj (quote object-name)))) (eieio-oset obj (quote object-name) (or newname (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if ... ... ...)) (set-match-data save-match-data-internal (quote evaporate)))))) nobj))
  (progn (let* nil (let* ((newname (and (stringp (car params)) (car-safe (prog1 params ...)))) (nobj (apply cl--cnm obj params)) (nm (slot-value obj (quote object-name)))) (eieio-oset obj (quote object-name) (or newname (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))) nobj)))
  (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname (and (stringp ...) (car-safe ...))) (nobj (apply cl--cnm obj params)) (nm (slot-value obj (quote object-name)))) (eieio-oset obj (quote object-name) (or newname (let (...) (unwind-protect ... ...)))) nobj))))((closure ((args [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil) (next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args))) [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  apply((closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname (and (stringp ...) (car-safe ...))) (nobj (apply cl--cnm obj params)) (nm (slot-value obj (quote object-name)))) (eieio-oset obj (quote object-name) (or newname (let (...) (unwind-protect ... ...)))) nobj)))) (closure ((args [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil) (next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args))) ([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil))
  (closure ((next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply met-fun (function (lambda (&rest cnm-args) (apply next (or cnm-args args)))) args))([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  apply((closure ((next closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (met-fun closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ((newname ...) (nobj ...) (nm ...)) (eieio-oset obj (quote object-name) (or newname ...)) nobj)))) (fun closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let ((nobj ...)) (if (stringp ...) (funcall ... "Obsolete name %S passed to clone" ...)) (if params (shared-initialize nobj params)) nobj)))) (method . [cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn (let* nil (let* ... ... nobj))))]) (generic . [cl-struct-cl--generic clone ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (eieio-named) nil t (closure (t) (cl--cnm obj &rest params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-instance-inheritor) nil t (closure (t) (cl--cnm obj &rest _params) "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))] [cl-struct-cl--generic-method (eieio-default-superclass) nil nil (closure (t) (obj &rest params) "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)" (progn ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply met-fun (function (lambda (&rest cnm-args) (apply next (or cnm-args args)))) args)) [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  clone([eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] nil)
  #[(obj) "\302 \303   \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]([eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  apply(#[(obj) "\302 \303 \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9] [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args))
  (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old))
  (let* ((vnew cnm) (vnew (function (lambda nil (cl--generic-isnot-nnm-p cnm)))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))
  (closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303   \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil (cl--generic-isnot-nnm-p cnm)))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old))))((closure ((args [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil]) (next closure ((method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag ...] [cl-struct-cl--generic-generalizer 0 ... ...])) ([cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply (function cl-no-next-method) generic method args)) (met-fun closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303 \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil ...))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))) (fun) (method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure ((doc-only) (args obj) (docstring) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew ...) (old ...) (old ...)) (unwind-protect (progn ... ... ...) (fset ... old) (fset ... old))))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-composite-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-variable-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-fixed-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args))) [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  apply((closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303 \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[(key o2) "\304\305\306\"\"\307  !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil (cl--generic-isnot-nnm-p cnm)))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))) (closure ((args [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil]) (next closure ((method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag ...] [cl-struct-cl--generic-generalizer 0 ... ...])) ([cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply (function cl-no-next-method) generic method args)) (met-fun closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303 \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil ...))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))) (fun) (method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure ((doc-only) (args obj) (docstring) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew ...) (old ...) (old ...)) (unwind-protect (progn ... ... ...) (fset ... old) (fset ... old))))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-composite-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-variable-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-fixed-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest cnm-args) (apply next (or cnm-args args))) [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  (closure ((next closure ((method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag ...] [cl-struct-cl--generic-generalizer 0 ... ...])) ([cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply (function cl-no-next-method) generic method args)) (met-fun closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil ...))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))) (fun) (method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure ((doc-only) (args obj) (docstring) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew ...) (old ...) (old ...)) (unwind-protect (progn ... ... ...) (fset ... old) (fset ... old))))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-composite-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-variable-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-fixed-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply met-fun (function (lambda (&rest cnm-args) (apply next (or cnm-args args)))) args))([eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  apply((closure ((next closure ((method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag ...] [cl-struct-cl--generic-generalizer 0 ... ...])) ([cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...] [cl-struct-cl--generic-method ... nil t ...]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply (function cl-no-next-method) generic method args)) (met-fun closure ((doc-only) (args obj) (docstring) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[(obj) "\302 \303  \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew (function (lambda nil ...))) (old (symbol-function (quote next-method-p))) (old (symbol-function (quote call-next-method)))) (unwind-protect (progn (fset (quote next-method-p) vnew) (fset (quote call-next-method) vnew) (apply code args)) (fset (quote next-method-p) old) (fset (quote call-next-method) old)))) (fun) (method . [cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure ((doc-only) (args obj) (docstring) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (specializers (arg ergoemacs-theme-component-maps)) (uses-cnm . t) (specializer . ergoemacs-theme-component-maps) (code . #[... "\302 \303    \304\305\306    \304\"\307\306  \304\"\310\"\"#\210\311\306 \304\"!\210\312\313\306 \314\"\"\210\303    \304\306    \304\"#\210\303 \315\302 #\210\303  \316\302\317\320\"#\210\303 \321\322\306    \321\"!#\210\303    \314#)\207" [newmaps obj make-hash-table eieio-oset global clone slot-value eieio-oref object-name ergoemacs-copy-obj maphash #[... "\304\305\306\"\"\307   !\210\310\n #)\207" [o2 new-obj key newmaps clone eieio-oref object-name ergoemacs-copy-obj puthash] 5] maps fixed-maps hooks :test equal init ergoemacs-copy-list] 9]) (argclass . ergoemacs-theme-component-maps) (kind) (method . ergoemacs-copy-obj) t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ((vnew cnm) (vnew ...) (old ...) (old ...)) (unwind-protect (progn ... ... ...) (fset ... old) (fset ... old))))]) (generic . [cl-struct-cl--generic ergoemacs-copy-obj ((0 [cl-struct-cl--generic-generalizer 50 cl--generic-struct-tag (closure ... ... ...)] [cl-struct-cl--generic-generalizer 0 (closure ... ... nil) (closure ... ... ...)])) ([cl-struct-cl--generic-method (ergoemacs-theme-component-maps) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-composite-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-variable-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))] [cl-struct-cl--generic-method (ergoemacs-fixed-map) nil t (closure (... ... ... ... ... ... ... ... ... ... ... t) (cnm &rest args) "\n\n(fn CL-CNM OBJ)" (let* ... ...))]) nil]) cl-struct-cl--generic-tags cl-struct-cl--generic-method-tags cl-struct-cl--generic-generalizer-tags t) (&rest args) (apply met-fun (function (lambda (&rest cnm-args) (apply next (or cnm-args args)))) args)) [eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil] nil)
  ergoemacs-copy-obj([eieio-class-tag--ergoemacs-theme-component-maps nil "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "Move Beginning/End of buffer" "" "us" [eieio-class-tag--ergoemacs-composite-map nil t "\\(?:^\\|<\\)\\(?:<\\(?:\\(?:apps\\|menu\\)>\\)\\|M-\\)" "" "us" nil unbound nil nil [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom*" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top*" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil]] #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 ( ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil "" nil])
  ergoemacs-theme-component--version("5.7.5")
  (lambda nil (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") (quote ergoemacs-beginning-or-end-of-buffer)) (ergoemacs-define-key (quote global-map) (kbd "M-N") (quote ergoemacs-end-or-beginning-of-buffer)) nil (ergoemacs-theme-component--version "5.7.5") (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") nil) (ergoemacs-define-key (quote global-map) (kbd "M-N") nil))()
  ergoemacs-theme-component--create-component((:name "move-buffer" :description "Move Beginning/End of buffer") (lambda nil (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") (quote ergoemacs-beginning-or-end-of-buffer)) (ergoemacs-define-key (quote global-map) (kbd "M-N") (quote ergoemacs-end-or-beginning-of-buffer)) nil (ergoemacs-theme-component--version "5.7.5") (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") nil) (ergoemacs-define-key (quote global-map) (kbd "M-N") nil)))
  #[nil "\300\301\302\"\207" [ergoemacs-theme-component--create-component (:name "move-buffer" :description "Move Beginning/End of buffer") (lambda nil (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") (quote ergoemacs-beginning-or-end-of-buffer)) (ergoemacs-define-key (quote global-map) (kbd "M-N") (quote ergoemacs-end-or-beginning-of-buffer)) nil (ergoemacs-theme-component--version "5.7.5") (ergoemacs-define-key (quote global-map) (kbd "M->") nil) (ergoemacs-define-key (quote global-map) (kbd "M-<") nil) (ergoemacs-define-key (quote global-map) (kbd "M-n") nil) (ergoemacs-define-key (quote global-map) (kbd "M-N") nil))] 3 "Move Beginning/End of buffer"]()
  ergoemacs-theme-get-component(move-buffer nil)
  #[(comp) "\302   \"\207" [comp version ergoemacs-theme-get-component] 3](move-buffer)
  mapcar(#[(comp) "\302    \"\207" [comp version ergoemacs-theme-get-component] 3] (reduction-theme copy dired-to-wdired execute fixed-newline help kill-line misc move-bracket move-buffer move-char move-line move-page move-paragraph move-word search select-items switch text-transform ergoemacs-remaps standard-vars save-options-on-exit apps-swap quit multiple-cursors-remaps helm-remaps ido-remaps standard-fixed fixed-bold-italic f2-edit fn-keys backspace-is-back backspace-del-seq apps apps-apps apps-punctuation))
  ergoemacs-theme-get-component((reduction-theme copy dired-to-wdired execute fixed-newline help kill-line misc move-bracket move-buffer move-char move-line move-page move-paragraph move-word search select-items switch text-transform ergoemacs-remaps standard-vars save-options-on-exit apps-swap quit multiple-cursors-remaps helm-remaps ido-remaps standard-fixed fixed-bold-italic f2-edit fn-keys backspace-is-back backspace-del-seq apps apps-apps apps-punctuation) nil "reduction")
  ergoemacs-theme-get-obj("reduction" nil)
  ergoemacs-theme-install("reduction")
  ergoemacs-setup-keys(t)
  ergoemacs-mode(toggle)
  funcall-interactively(ergoemacs-mode toggle)
  call-interactively(ergoemacs-mode record nil)
  command-execute(ergoemacs-mode record)
  execute-extended-command(nil "ergoemacs-mode" "ergoemacs-mode")
  funcall-interactively(execute-extended-command nil "ergoemacs-mode" "ergoemacs-mode")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)
mattfidler commented 9 years ago

eieio has been rewritten their objects so they are no longer compatable...

mattfidler commented 9 years ago

The latest unstable works with the new eieio implementation, at least for me.

mattfidler commented 9 years ago

I will mark this as closed, unless anyone sees the problem again.

magichowl commented 9 years ago

ergoemacs-mode-20150318.1413 on GNU Emacs 25.0.50.1 2014-10-03 goes smoothly.

BUT on GNU Emacs 25.0.50.1 snapshot 2015-03-13 still have the problem:

Debugger entered--Lisp error: (invalid-slot-name "#" nil) signal(invalid-slot-name ("#" nil))

[1027 "\300\301\302!D\"\207" [signal invalid-slot-name eieio-object-name] 8 "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from oref',oset', and other functions which\ndirectly reference slots in EIEIO objects.\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]([eieio-class-tag--ergoemacs-composite-map nil t "\%28?:^|<\%29\%28?:<\%28?:\%28?:apps|menu\%29>\%29|M-\%29" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t %28keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]] nil oset nil)

apply(#[1027 "\300\301\302!D\"\207" [signal invalid-slot-name eieio-object-name] 8 "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from oref',oset', and other functions which\ndirectly reference slots in EIEIO objects.\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"] [eieio-class-tag--ergoemacs-composite-map nil t "(?:^|<)(?:<(?:(?:apps|menu)>)|M-)" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]](nil oset nil)) slot-missing([eieio-class-tag--ergoemacs-composite-map nil t "(?:^|<)(?:<(?:(?:apps|menu)>)|M-)" "" "us" nil unbound nil nil nil unbound unbound [eieio-class-tag--ergoemacs-fixed-map nil unbound t (keymap) nil (keymap) (keymap) (keymap) (keymap) nil nil nil nil nil nil unbound nil nil nil unbound unbound nil] #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) [eieio-class-tag--ergoemacs-variable-map nil t "us" "" nil "" (("M-N" ergoemacs-end-or-beginning-of-buffer "↓ Bottom" nil nil) ("M-n" ergoemacs-beginning-or-end-of-buffer "↑ Top" nil nil) ("M-<" nil "nil" nil nil) ("M->" nil "nil" nil nil)) #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ( ...)) nil unbound nil nil unbound unbound nil]] nil oset nil)

[514 "\211\2051

mattfidler commented 9 years ago

I've also modified the last stable to have the work-around with emacs 25.

I have also contacted Stefan Monnier about the eieio issue.

magichowl commented 9 years ago

Do you mean the branch 5.14.7.3.1?

I use this latest stable with Emacs 25 snapshot, error message is of size 1.1M, so I only paste the head part of it: 

Debugger entered--Lisp error: (invalid-slot-name "#<ergoemacs-theme-component-map-list ergoemacs-theme-component-map-list>" standard)
  signal(invalid-slot-name ("#<ergoemacs-theme-component-map-list ergoemacs-theme-component-map-list>" standard))
  #[1027 "\300\301\302!D\"\207" [signal invalid-slot-name eieio-object-name] 8 "Method invoked when an attempt to access a slot in OBJECT fails.\nSLOT-NAME is the name of the failed slot, OPERATION is the type of access\nthat was requested, and optional NEW-VALUE is the value that was desired\nto be set.\n\nThis method is called from `oref', `oset', and other functions which\ndirectly reference slots in EIEIO objects.\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]([eieio-class-tag--ergoemacs-theme-component-map-list "" nil nil #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...))] standard oset :map-list)
mattfidler commented 9 years ago

Yes, I meant the branch 5.14.7.3.1; It worked in the emacs 25 that I downloaded (precompiled windows binaries, but I forget the revision). However, Stefan said that he ran into another error. He is trying to track it down from the eieio/emacs core perspective. On my end, I'm trying to remove eieio dependence.

mattfidler commented 9 years ago

I haven't worked on other bugs since removing the eieio dependence changes the core structure of ergoemacs-mode. At that point, I will work on resolving the other bugs...

GongYiLiao commented 9 years ago

The new branch modify-maps-new-engine works with last snapshot version (25.0.50.1) of Emacs

mattfidler commented 9 years ago

I figured it might. It is also faster. However, it is very unstable currently.

mattfidler commented 9 years ago

It no longer depends on eieio, but has some issues still. I need to rewrite some core funtions still and establish the command loop again.

GongYiLiao commented 9 years ago

Yes, that new branch works much faster than emacs 24.4.1 + ergoemacs 5.14.7.3.1 with emacs 25.0.50.1

mattfidler commented 9 years ago

If you are brave you can try it. I currently need to work on hooks for keymaps (which means that minibuffer keymaps may not behave as expected), local keymaps in the command loop, modal support, and allowing the command loop to recover if there is an error in emacs. Once that happens I will merge it into the main branch and then start working on incorporating backward compatible functions (such as generating a keyboard image).

mattfidler commented 9 years ago

The master branch now may work correctly with emacs 25. I haven't verified this, though. It depends on eieio indirectly with persistent-soft, though I don't think that this is likely an issue with emacs 25.

magichowl commented 9 years ago

can't init both 24.4 and 25, 

Error in post-command-hook (ergoemacs-map--modify-active): (void-variable fn)
mattfidler commented 9 years ago

Did you pull the latest? There was some issue in the test suite for 24.4 and 24.5, but I think they now can run some of the tests.

magichowl commented 9 years ago

Yes, latest from branch master, Oddly, emacs start normally if I don't require a new 'ergoemacs-theme-component'

I.e., the error occurs when the following sentence is enabled

(ergoemacs-theme-component pan ()
  "My personal modifications to ergoemacs-mode keys."
  (global-set-key (kbd "C-'") 'ido-switch-buffer)
  (global-set-key (kbd "<C-next>") 'next-buffer)
  (global-set-key (kbd "<C-prior>") 'previous-buffer)
  (global-set-key (kbd "M-t") 'ispell-word)
  (global-set-key "\M-c" 'toggle-current-char-case)
  (global-set-key "\C-e" 'eshell)
  (global-set-key "\C-w" 'ergoemacs-close-current-buffer)
  (global-set-key (kbd "C-S-o") 'xah-open-in-external-app)
  (global-set-key (kbd "C-S-d") 'ergoemacs-open-in-desktop)
  (global-set-key (kbd "M-;") 'comment-dwim)
  (global-set-key (kbd "<menu> b") 'bbdb)
  ;; (global-set-key (kbd "<f6>") 'undefined)
)
(ergoemacs-require 'pan)
magichowl commented 9 years ago

error msg in minibuffer is:

Symbol's value as variable is void: fn
mattfidler commented 9 years ago

Hm. I tried again to run emacs 24.4 and 24.5 and there was some issues. I will try again to get it to work correctly.

mattfidler commented 9 years ago

(It was working earlier today... :()

mattfidler commented 9 years ago

Maybe this is related to Issue #351

mattfidler commented 9 years ago

It seems to work for me now.

mattfidler commented 9 years ago

Does anyone know if emacs 25 works? I don't have ready access to the unstable emacs 25.

magichowl commented 9 years ago

under GNU Emacs 25.0.50.2 (x86_64-pc-linux-gnu, GTK+ Version 3.14.13) of 2015-08-11 on lgw01-06

Error in post-command-hook (ergoemacs-map--modify-active): (wrong-type-argument keymapp nil)
if: Symbol's value as variable is void: &rest
mattfidler commented 9 years ago

Part of this is probably addressed by Fixes #357 and #358. However, I'm unsure where the keymapp error is coming from. I attempted to run this from a recent windows build of emacs 25 and didn't see the errors.

mattfidler commented 9 years ago

@magichowl, if you can post a link to your configuration, I can try to see if I can figure out where this keymapp issue is coming from.

magichowl commented 9 years ago

Sorry for the delayed reply. backtrace under emacs 25 is 

Debugger entered--Lisp error: (void-function format-message)
  format-message("The package `%s' has already been loaded by\npackage.el, attempting to load el-get version instead. To avoid\nthis warning either uninstall one of the el-get or package.el\nversion of %s, or call `el-get' before `package-initialize' to\nprevent package.el from loading it." dash dash)
  apply(format-message "The package `%s' has already been loaded by\npackage.el, attempting to load el-get version instead. To avoid\nthis warning either uninstall one of the el-get or package.el\nversion of %s, or call `el-get' before `package-initialize' to\nprevent package.el from loading it." (dash dash))
  lwarn(el-get :warning "The package `%s' has already been loaded by\npackage.el, attempting to load el-get version instead. To avoid\nthis warning either uninstall one of the el-get or package.el\nversion of %s, or call `el-get' before `package-initialize' to\nprevent package.el from loading it." dash dash)
  el-get-do-init(dash)
  el-get-init-and-install(nil)
  el-get(sync)
  eval-buffer(#<buffer  *load*-883058> nil "/home/pan/.emacs.d/lisp/init-el-get.el" nil t)  ; Reading at buffer position 1092
  load-with-code-conversion("/home/pan/.emacs.d/lisp/init-el-get.el" "/home/pan/.emacs.d/lisp/init-el-get.el" nil t)
  #<subr require>(init-el-get nil nil)
  ad-Advice-require(#<subr require> init-el-get)
  apply(ad-Advice-require #<subr require> init-el-get)
  require(init-el-get)
  eval-buffer(#<buffer  *load*-133535> nil "/home/pan/.emacs.d/lisp/init-loadpackages.el" nil t)  ; Reading at buffer position 330
  load-with-code-conversion("/home/pan/.emacs.d/lisp/init-loadpackages.el" "/home/pan/.emacs.d/lisp/init-loadpackages.el" nil nil)
  load("~/.emacs.d/lisp/init-loadpackages.el")
  eval-buffer(#<buffer  *load*> nil "/home/pan/.emacs.d/init.el" nil t)  ; Reading at buffer position 1566
  load-with-code-conversion("/home/pan/.emacs.d/init.el" "/home/pan/.emacs.d/init.el" t t)
  load("/home/pan/.emacs.d/init" t t)
  #[0 "\205\262

my config is 

;;  ergoemacs-mode
(setq ergoemacs-theme nil)
(setq ergoemacs-keyboard-layout "us")
(el-get 'sync 'ergoemacs-mode)
(require 'ergoemacs-mode)
(setq ergoemacs-handle-ctl-c-or-ctl-x 'only-C-c-and-C-x)
(ergoemacs-mode 1)
;; the following remap is need only under windows' emacs
(when *windows*
(define-key key-translation-map (kbd "<apps>") (kbd "<menu>")))
(ergoemacs-theme-component pan ()
  "My personal modifications to ergoemacs-mode keys."
  (global-set-key (kbd "<C-next>") 'next-buffer)
  (global-set-key (kbd "<C-prior>") 'previous-buffer)
  (global-set-key (kbd "M-t") 'ispell-word)
  (global-set-key "\M-c" 'toggle-current-char-case)
  (global-set-key "\C-e" 'eshell)
  (global-set-key "\C-w" 'ergoemacs-close-current-buffer)
  (global-set-key (kbd "C-S-o") 'xah-open-in-external-app)
  (global-set-key (kbd "C-S-d") 'ergoemacs-open-in-desktop)
  (global-set-key (kbd "M-;") 'comment-dwim)
  (global-set-key (kbd "<menu> b") 'bbdb)
  (global-set-key "\M-s" 'other-window)  ;; (global-set-key (kbd "<f6>") 'undefined)
)
;; (add-hook 'ergoemacs-mode-hook
;;           (lambda ()
;;             (ergoemacs-require 'pan)))
(ergoemacs-require 'pan)
;; customize keys start with <menu>
;; (global-set-key (kbd "M-s") 'ergoemacs-move-cursor-next-pane)
(global-set-key (kbd "C-\'") 'ido-switch-buffer)
(global-set-key (kbd "<menu>") nil)
(global-set-key (kbd "<menu> <C-prior>") 'previous-buffer)
(global-set-key (kbd "<menu> <C-next>") 'next-buffer)
(global-set-key (kbd "<menu> a") 'scratch)
(global-set-key (kbd "<menu> c") 'calendar)
(global-set-key (kbd "<menu> d") 'delete-rectangle)
(global-set-key (kbd "<menu> e") 'eshell)
(global-set-key (kbd "<menu> f") 'ergoemacs-copy-full-path)
(global-set-key (kbd "<menu> g") 'insert-register)
(global-set-key (kbd "<menu> r") 'copy-rectangle-as-kill)
(global-set-key (kbd "<menu> i") 'string-insert-rectangle)
(global-set-key (kbd "<menu> j") 'jump-to-register)
(global-set-key (kbd "<menu> m") 'mu4e-update-mail-and-index)
(global-set-key (kbd "<menu> n") 'rectangle-number-lines)
(global-set-key (kbd "<menu> p") 'ergoemacs-copy-dir-path)
(global-set-key (kbd "<menu> s") 'copy-to-register)
(global-set-key (kbd "<menu> t") 'transpose-words)
(global-set-key (kbd "<menu> v") 'yank-rectangle)
(global-set-key (kbd "<menu> x") 'kill-rectangle)
(global-set-key (kbd "<menu> SPC") 'point-to-register)
(global-set-key (kbd "<menu> <menu>") 'execute-extended-command)
(global-set-key (kbd "<menu> 8") 'bookmark-set)
(global-set-key (kbd "C-\"") 'bookmark-jump)

(provide 'init-ergoemacs)

and under emacs 24.4.1

Error in post-command-hook (ergoemacs-map--modify-active): (wrong-type-argument stringp nil)

occurs the first or second time calling C-\' ( i.e. ido-switch-buffer) strangely, the function ido-switch-buffer still takes effect.

mattfidler commented 9 years ago

From a clean state, I evaluated your code, and could not produce the issue.

I also noticed the <menu> keys didn't work at all in windows.

magichowl commented 9 years ago

Maybe some of my configs implicitly conflict with ergoemacs-mode, I'll troubleshoot one by one. You may close the issue now. Thanks.

mattfidler commented 9 years ago

Please let me know any issues you find.

mattfidler commented 8 years ago

Are you using the melpa version?

On Thu, Oct 6, 2016, 11:03 AM Alex notifications@github.com wrote:

I'm using Emacs 25.1, But still get this error: Invalid slot name: #, standard

— You are receiving this because you modified the open/close state. Reply to this email directly, view it on GitHub https://github.com/ergoemacs/ergoemacs-mode/issues/330#issuecomment-252008617, or mute the thread https://github.com/notifications/unsubscribe-auth/AAfa2g3Rg9QKGIH4UCVVUebo4_3r5wCbks5qxRvCgaJpZM4DgvyL .

SpaceSageSeven commented 8 years ago

Hi,

I'm trying to get ergoemacs+emacs (25.1-x86_64-w64-mingw32) running on my office Windows 7 computer.

However I get the following error on loading ergoemacs package: Invalid slot name: #, standard

Ergoemacs 5.14.7.3 package was installed using elpa.

This is the closest thread I could find on this error. Please do let me know if ergoemacs is working with emacs 25.1 on Windows and how to rectify this error. (It seems to work just fine on Linux but not on Windows)

Thanks!

SpaceSageSeven commented 8 years ago

Here's the back-trace from emacs debug:

ErgoEmacsBackTrace.txt

mattfidler commented 8 years ago

Thanks. Sorry it took so long to get back to you. I haven't updated the stable melpa or elpa repository recently. I need to update this so it can be used on emacs 25.1

SpaceSageSeven commented 8 years ago

Glad to hear that. Will look forward to getting back on ergoemacs soon!

And thank you!

mattfidler commented 8 years ago

I have updated the stable melpa, but haven't updated the stable elpa.

SpaceSageSeven commented 7 years ago

Hi Matt,

Would you be updating the stable Elpa soon?

If not I'll go ahead and add the melpa repo to my emacs.

Thanks!

mattfidler commented 7 years ago

I can't remember how. I need to find the help page again...

On Mon, Oct 17, 2016, 12:57 PM SpaceSageSeven notifications@github.com wrote:

Hi Matt,

Would you be updating the stable Elpa soon?

If not I'll go ahead and add the melpa repo to my emacs.

Thanks!

— You are receiving this because you modified the open/close state. Reply to this email directly, view it on GitHub https://github.com/ergoemacs/ergoemacs-mode/issues/330#issuecomment-254283505, or mute the thread https://github.com/notifications/unsubscribe-auth/AAfa2iDoltXy2eiJOD588YZPCLet-h_9ks5q07cagaJpZM4DgvyL .

SpaceSageSeven commented 7 years ago

No worries.

I just went ahead with the melpa repo. Works like a charm now.

Thanks! :)

alexei28 commented 7 years ago

Install ergoemacs-mode from melpa. It's work with Emacs 25.1

poulpoulsen commented 7 years ago

hello, unfortunately for me it is not working. I use emacs 25.1.2 on Win81 64bit. Just installed the version from melpa: ergoemacs-mode-20170723.1921

here is my .emacs file ;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (require 'package) ;; You might already have this line (let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) (not (gnutls-available-p)))) (url (concat (if no-ssl "http" "https") "://melpa.org/packages/"))) (add-to-list 'package-archives (cons "melpa" url) t)) (when (< emacs-major-version 24) ;; For important compatibility libraries like cl-lib (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/"))) (package-initialize) ;; You might already have this line

(custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. (setq ergoemacs-theme "lvl2") ;; Uses Standard Ergoemacs keyboard theme (setq ergoemacs-keyboard-layout "de") (require 'ergoemacs-mode) (ergoemacs-mode 1) '(package-selected-packages (quote (org-wiki)))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. )

after starting emacs there is a warning message: Warning (initialization): An error occurred while loading ‘c:/Users/Held/.emacs’: Wrong type argument: listp, lvl2

Pls let me know whats wrong with it.

Regards Poul