Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Imcompatible with Emacs 25 #330

Closed
GongYiLiao opened this issue Feb 15, 2015 · 50 comments
Closed

Imcompatible with Emacs 25 #330

GongYiLiao opened this issue Feb 15, 2015 · 50 comments
Labels
bug

Comments

@GongYiLiao
Copy link

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

 Invalid slot name: #<ergoemacs-composite-map ergoemacs-composite-map>, nil
@mattfidler
Copy link
Member

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?

@mattfidler mattfidler added the bug label Feb 16, 2015
@mattfidler mattfidler mentioned this issue Feb 16, 2015
Closed
@GongYiLiao
Copy link
Author

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
Copy link
Member

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

@magichowl
Copy link

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
Copy link

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
Copy link
Member

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
Copy link

rrmdev commented Mar 17, 2015

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
Copy link
Member

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

@mattfidler
Copy link
Member

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
Copy link
Member

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

mattfidler added a commit that referenced this issue Mar 18, 2015
@mattfidler
Work-around for new eieio implementation. See #330
71319c2
@mattfidler
Copy link
Member

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

@mattfidler
Copy link
Member

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

@magichowl
Copy link

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 mattfidler reopened this Mar 29, 2015
mattfidler added a commit that referenced this issue Mar 30, 2015
@mattfidler
Last stable, See #340
295ce7a 
Work-around for new eieio implementation. See #330

Conflicts:
	ergoemacs-theme-engine.el
@mattfidler
Copy link
Member

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
Copy link

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
Copy link
Member

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
Copy link
Member

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
Copy link
Author

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

@mattfidler
Copy link
Member

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

@mattfidler
Copy link
Member

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
Copy link
Author

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
Copy link
Member

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
Copy link
Member

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
Copy link

can't init both 24.4 and 25,

Error in post-command-hook (ergoemacs-map--modify-active): (void-variable fn)

@magichowl
Copy link

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
Copy link

error msg in minibuffer is:

Symbol's value as variable is void: fn

@mattfidler
Copy link
Member

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
Copy link
Member

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

@mattfidler
Copy link
Member

Maybe this is related to Issue #351

mattfidler added a commit that referenced this issue Aug 19, 2015
@mattfidler
Fix Issue #352 (w/test). See also Issue #330
50ad625
@mattfidler
Copy link
Member

It seems to work for me now.

mattfidler added a commit that referenced this issue Aug 19, 2015
@mattfidler
Fix Issue #351 (w/test). See also Issue #330
92ddfe7
@mattfidler
Copy link
Member

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

@magichowl
Copy link

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
Copy link
Member

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
Copy link
Member

@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
Copy link

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
Copy link
Member

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
Copy link

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

@mattfidler
Copy link
Member

Please let me know any issues you find.

@mattfidler
Copy link
Member

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
#330 (comment),
or mute the thread
https://github.com/notifications/unsubscribe-auth/AAfa2g3Rg9QKGIH4UCVVUebo4_3r5wCbks5qxRvCgaJpZM4DgvyL
.

@SpaceSageSeven
Copy link

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
Copy link

Here's the back-trace from emacs debug:

ErgoEmacsBackTrace.txt

@mattfidler
Copy link
Member

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

@mattfidler mattfidler reopened this Oct 12, 2016
@SpaceSageSeven
Copy link

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

And thank you!

@mattfidler
Copy link
Member

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

@SpaceSageSeven
Copy link

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
Copy link
Member

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
#330 (comment),
or mute the thread
https://github.com/notifications/unsubscribe-auth/AAfa2iDoltXy2eiJOD588YZPCLet-h_9ks5q07cagaJpZM4DgvyL
.

@SpaceSageSeven
Copy link

No worries.

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

Thanks! :)

@alexei28
Copy link

alexei28 commented Nov 6, 2016

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

@poulpoulsen
Copy link

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
bug
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
8 participants
@GongYiLiao @mattfidler @magichowl @giacomoi @poulpoulsen @rrmdev @SpaceSageSeven @alexei28