ergoemacs / ergoemacs-mode

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

Unable to use ergoemacs-theme #210

Closed shahinism closed 10 years ago

shahinism commented 10 years ago

Just upgraded to the last available version /ergoemacs-mode-20140502.1020/ and I can not set any default theme to use. This is what I got using --debug-init:

Debugger entered--Lisp error: (wrong-type-argument keymapp nil)
  copy-keymap(nil)
  ergoemacs-rm-key(nil "\n")
  #[(key) "\305    \"\305\n   \"\305    \"\305\f   \"\211\207" [ergoemacs-read-input-keymap key ergoemacs-shortcut-keymap ergoemacs-keymap ergoemacs-unbind-keymap ergoemacs-rm-key] 3]("\n")
  mapc(#[(key) "\305   \"\305\n   \"\305    \"\305\f   \"\211\207" [ergoemacs-read-input-keymap key ergoemacs-shortcut-keymap ergoemacs-keymap ergoemacs-unbind-keymap ergoemacs-rm-key] 3] ("\n"))
  ergoemacs-theme-remove-key-list(("\n") t)
  (progn (ergoemacs-theme-remove-key-list (list key) t))
  (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t)))
  (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t))))
  (if (and (vectorp key) (eq (elt key 0) (quote menu-bar))) nil (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t)))))
  (if (and (boundp (quote no-ergoemacs-advice)) no-ergoemacs-advice) nil (if (and (vectorp key) (eq (elt key 0) (quote menu-bar))) nil (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t))))))
  ergoemacs-global-set-key-after("\n" ace-jump-mode)
  (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def)))
  (progn (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))
  (if (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (progn (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def)))))
  (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))
  (progn (if (and (boundp (quote ergoemacs-run-mode-hooks)) ergoemacs-run-mode-hooks (not (equal keymap (current-global-map))) (not (equal keymap ergoemacs-keymap))) (let ((ergoemacs-run-mode-hooks nil) (new-key (read-kbd-macro (format "<ergoemacs-user> %s" (key-description key))))) (unwind-protect (define-key keymap new-key def)))) (setq ad-return-value (with-no-warnings (ad-Orig-define-key keymap key def))) (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def)))))
  (let (ad-return-value) (progn (if (and (boundp (quote ergoemacs-run-mode-hooks)) ergoemacs-run-mode-hooks (not (equal keymap (current-global-map))) (not (equal keymap ergoemacs-keymap))) (let ((ergoemacs-run-mode-hooks nil) (new-key (read-kbd-macro (format "<ergoemacs-user> %s" ...)))) (unwind-protect (define-key keymap new-key def)))) (setq ad-return-value (with-no-warnings (ad-Orig-define-key keymap key def))) (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))) ad-return-value)
  define-key((keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command ace-jump-mode kill-line recenter-top-bottom newline-and-indent next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command ace-jump-mode kill-line recenter-top-bottom newline-and-indent next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (33554436 . duplicate-current-line) (f5 . compile) (S-mouse-3 . kmacro-end-call-mouse) (S-down . windmove-down) (S-up . windmove-up) (S-right . windmove-right) (S-left . windmove-left) (C-mouse-5 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (mouse-5 . mwheel-scroll) (C-mouse-4 . mwheel-scroll) (S-mouse-4 . mwheel-scroll) (mouse-4 . mwheel-scroll) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap) (f10 . menu-bar-open) (vertical-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (drag-mouse-3 . scroll-bar-scroll-down) (mouse-3 . scroll-bar-scroll-down) (down-mouse-2 . scroll-bar-drag) (drag-mouse-1 . scroll-bar-scroll-up) (mouse-1 . scroll-bar-scroll-up) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil (quote menu-bar-lines)) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) (S-down-mouse-1 . mouse-appearance-menu) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-primary) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (compose-last-chars . compose-last-chars) (f1 . help-command) (help . help-command) (f2 . 2C-command) (menu-bar keymap (file "File" keymap (new-file menu-item "New" ergoemacs-new-empty-buffer :keys "") (make-frame menu-item "New Frame" make-frame-command :keys "Ctl+X 5 2") (open-file menu-item "Open..." find-file :keys "Ctl+X Ctl+F") (open-last-closed menu-item "Open last closed" ergoemacs-open-last-closed :keys "") (kill-buffer menu-item "Close" ergoemacs-close-current-buffer :keys "") (separator1 menu-item "--") (save-buffer menu-item "Save" save-buffer :keys "Ctl+X Ctl+S") (write-file menu-item "Save As..." write-file :keys "Ctl+X Ctl+W") (revert-buffer menu-item "Revert to Saved" revert-buffer :keys "") (print-buffer menu-item "Print" print-buffer :keys "") (ps-print-buffer-faces menu-item "Print (font+color)" ps-print-buffer-faces :keys "") (separator4 menu-item "--") (split-window menu-item "Split Window" split-window-vertically :keys "") (split-window-leftright menu-item "Split Window left/right" split-window-horizontally :keys "") (one-window menu-item "Unsplit Window" delete-other-windows :keys "Ctl+X 1") (separator5 menu-item "--") (execute-command menu-item "Execute Command" execute-extended-command :keys "Alt+X") (repeat-earlier-command "Repeat Earlier Command" repeat-complex-command) (separator6 menu-item "--") (exit-emacs menu-item "Quit" save-buffers-kill-emacs :keys "") "File") (edit "Edit" keymap (undo menu-item "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote undo)) (listp pending-undo-list) (consp buffer-undo-list))) :help "Undo last operation" :keys "Ctrl+Z") (redo menu-item "Redo" redo :keys "Ctrl+Y") (redo-sep menu-item "--") (cut menu-item "Cut" clipboard-kill-region :help "Delete text in region and copy it to the clipboard" :keys "Ctrl+X") (copy menu-item "Copy" clipboard-kill-ring-save :help "Copy text in region to the clipboard" :keys "Ctrl+C") (paste menu-item "Paste" clipboard-yank :help "Paste text from clipboard" :keys "Ctrl+V") (paste-from-menu menu-item "Paste from Kill Menu" yank-menu :enable (and (cdr yank-menu) (not buffer-read-only)) :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region :enable (and mark-active (not buffer-read-only)) :help "Delete the text in region between mark and current position" :keys "Del") (mark-whole-buffer menu-item "Select All" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy" :keys "Ctrl+A") (separator-search menu-item "--") (blank-operations menu-item "Blank/Whitespace Operations" (keymap (trim-trailing-space menu-item "Trim Trailing Space" delete-trailing-whitespace :help "Trim Trailing spaces on each line" :keys "") (separator-tabify menu-item "--") (tabify-region menu-item "Change multiple spaces to tabs (Tabify)" (lambda nil (interactive) (if mark-active ... ...)) :help "Convert multiple spaces in the nonempty region to tabs when possible" :enable (not buffer-read-only)) (untabify menu-item "Change Tabs To Spaces (Untabify)" (lambda nil (interactive) (if mark-active ... ...)) :help "Convert all tabs in the nonempty region or buffer to multiple spaces" :enable (not buffer-read-only)))) (copy-to-clipboard menu-item "Copy File/Path to Clipboard" (keymap (copy-full-path menu-item "Current Full File Path to Clipboard" ergoemacs-copy-full-path :enable (buffer-file-name) :keys "") (copy-file-name menu-item "Current File Name to Clipboard" ergoemacs-copy-file-name :enable (buffer-file-name) :keys "") (copy-dir-path menu-item "Current Dir. Path to Clipboard" ergoemacs-copy-dir-path :enable (buffer-file-name) :keys ""))) (convert-case-to menu-item "Convert Case To" (keymap (capitalize-region menu-item "Capitalize" capitalize-region :help "Capitalize (initial caps) words in the nonempty region" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (downcase-region menu-item "Downcase" downcase-region :help "Make words in the nonempty region lower-case" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "Ctl+X Ctl+L") (upcase-region menu-item "Upcase" upcase-region :help "Make words in the nonempty region upper-case" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "Ctl+X Ctl+U") (toggle-case-region menu-item "Toggle Capitalization/Case" ergoemacs-toggle-letter-case :enable (not buffer-read-only) :keys "") (toggle-camel menu-item "Toggle CamelCase to camel_case" ergoemacs-toggle-camel-case :enable (not buffer-read-only) :keys ""))) (eol-conversion menu-item "EOL Conversion" (keymap (windows menu-item "Windows/DOS" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))) (unix menu-item "Unix/OSX" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))) (mac menu-item "Old Mac" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))))) (sort menu-item "Sort" (keymap (regexp-fields menu-item "Regexp Fields" sort-regexp-fields :help "Sort the nonempty region lexicographically" :enable (and last-kbd-macro (not buffer-read-only) mark-active (> ... ...)) :keys "") (pages menu-item "Pages" sort-pages :help "Sort pages in the nonempty region alphabetically" :enable (and last-kbd-macro (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-paragraphs menu-item "Paragraphs" sort-paragraphs :help "Sort paragraphs in the nonempty region alphabetically" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-numeric-fields menu-item "Numeric Field" sort-numeric-fields :help "Sort lines in the nonempty region numerically by the Nth field" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-fields menu-item "Field" sort-fields :help "Sort lines in the nonempty region lexicographically by the Nth field" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-columns menu-item "Columns" sort-columns :help "Sort lines in the nonempty region alphabetically, by a certain range of columns" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-lines menu-item "Lines" sort-lines :help "Sort lines in the nonempty region alphabetically" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (reverse-region menu-item "Reverse" reverse-region :help "Reverse the order of the selected lines" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys ""))) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region :enable (and mark-active (not buffer-read-only)) :help "Fill text in region to fit between left and right margin" :keys "") (props menu-item "Text Properties" facemenu-menu) "Edit") (search "Search" keymap (search-forward menu-item "String Forward..." search-forward :keys "find") (search-backward menu-item "    Backward..." search-backward :keys "") (re-search-forward menu-item "Regexp Forward..." re-search-forward :keys "") (re-search-backward menu-item "    Backward..." re-search-backward :keys "") (separator-repeat-search menu-item "--") (repeat-forward menu-item "Repeat Forward" nonincremental-repeat-search-forward :enable (or (and (memq menu-bar-last-search-type (quote ...)) search-ring) (and (eq menu-bar-last-search-type (quote regexp)) regexp-search-ring)) :help "Repeat last search forward" :keys "") (repeat-backward menu-item "    Repeat Backward" nonincremental-repeat-search-backward :enable (or (and (memq menu-bar-last-search-type (quote ...)) search-ring) (and (eq menu-bar-last-search-type (quote regexp)) regexp-search-ring)) :help "Repeat last search forward" :keys "") (separator-isearch menu-item "--") (i-search menu-item "Incremental Search" (keymap (isearch-forward menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it" :keys "Ctl+S") (isearch-backward menu-item "    Backward..." isearch-backward :help "Search backwards for a string as you type it" :keys "Ctl+R") (isearch-forward-regexp menu-item "Forward Regexp..." isearch-forward-regexp :help "Search forward for a regular expression as you type it" :keys "Ctl+Alt+S") (isearch-backward-regexp menu-item "    Backward..." isearch-backward-regexp :help "Search backwards for a regular expression as you type it" :keys "Ctl+Alt+R") "Incremental Search")) (replace menu-item "Replace" (keymap (query-replace menu-item "Replace String..." query-replace :enable (not buffer-read-only) :help "Replace string interactively, ask about each occurrence" :keys "Alt+%") (query-replace-regexp menu-item "Replace Regexp..." query-replace-regexp :enable (not buffer-read-only) :help "Replace regular expression interactively, ask about each occurrence" :keys "Ctl+Alt+%") (separator-replace-tags menu-item "--") (tags-repl menu-item "Replace in Tagged Files..." tags-query-replace :help "Interactively replace a regexp in all tagged files" :keys "") (tags-repl-continue menu-item "Continue Replace" tags-loop-continue :help "Continue last tags replace operation" :keys "Alt+,") "Replace")) (grep menu-item "Grep..." grep :enable (executable-find "grep") :keys "") (occur menu-item "Occurrences in buffer..." occur :help "Show Lines in a buffer that match a regular expression" :keys "Alt+S o") (moccur menu-item "Occurrences in all buffers..." multi-occur :help "Show Lines in all buffers that match a regular expression" :keys "") (separator-go-to menu-item "--") (goto menu-item "Go To" (keymap (go-to-line menu-item "Goto Line..." goto-line :help "Read a line number and go to that line" :keys "Alt+G g") (separator-tags menu-item "--") (find-tag menu-item "Find Tag..." find-tag :help "Find definition of function or variable" :keys "Alt+.") (find-tag-otherw menu-item "Find Tag in Other Window..." find-tag-other-window :help "Find function/variable definition in another window" :keys "Ctl+X 4 .") (next-tag menu-item "Find Next Tag" menu-bar-next-tag :enable (and (boundp ...) (not ...)) :help "Find next function/variable matching last tag name" :keys "") (next-tag-otherw menu-item "Next Tag in Other Window" menu-bar-next-tag-other-window :enable (and (boundp ...) (not ...)) :help "Find next function/variable matching last tag name in another window" :keys "") (apropos-tags menu-item "Tags Apropos..." tags-apropos :help "Find function/variables whose names match regexp" :keys "") (separator-tag-file menu-item "--") (set-tags-name menu-item "Set Tags File Name..." visit-tags-table :help "Tell Tags commands which tag table file to use" :keys "") "Go To") (separator-packages)) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) "Search") (view "View" keymap (menu-font-size menu-item "Zoom" (keymap (zoom-in menu-item "Zoom In" text-scale-increase :keys "") (zoom-out menu-item "Zoom Out" text-scale-decrease :keys "") (zoom-reset menu-item "Zoom Reset" text-scale-normal-size :keys ""))) (menu-set-font menu-item "Set Default Font..." menu-set-font :visible (display-multi-font-p) :help "Select a default font" :keys "") (color-theme menu-item "Customize Color Themes" customize-themes :help "Customize Emacs Themes." :keys "") (separator-font-size menu-item "--") (highlight-current-line menu-item "Highlight Current Line" global-hl-line-mode :help "Have the cursor line always Highlighted" :button (:toggle and (boundp (quote global-hl-line-mode)) global-hl-line-mode) :keys "") (paren-mode menu-item "Highlight Matching Parentheses" show-paren-mode :button (:toggle . show-paren-mode) :keys "") (ruler-mode menu-item "Ruler Mode" ruler-mode :button (:toggle . ruler-mode) :keys "") (blink-cursor menu-item "Cursor Blink" blink-cursor-mode :button (:toggle . blink-cursor-mode) :keys "") (tabbar-mode menu-item "Tabbar" ergoemacs-menu-tabbar-toggle :button (:toggle and (boundp (quote tabbar-mode)) tabbar-mode) :keys "") (separator-speedbar menu-item "--") (showhide-speedbar menu-item "Speedbar" speedbar-frame-mode :help "Display a Speedbar quick-navigation frame" :button (:toggle and (boundp (quote speedbar-frame)) (frame-live-p (symbol-value (quote speedbar-frame))) (frame-visible-p (symbol-value (quote speedbar-frame)))) :keys "") (linecolumn-separator "--") (line-number-mode menu-item "Line Numbers" line-number-mode :help "Show the current line number in the mode line" :button (:toggle and (default-boundp (quote line-number-mode)) (default-value (quote line-number-mode))) :keys "") (global-whitespace-mode menu-item "Show/Hide whitespaces" global-whitespace-mode :button (:toggle . global-whitespace-mode) :keys "") (global-linum-mode menu-item "Show/Hide line numbers in margin" global-linum-mode :button (:toggle . global-linum-mode) :keys "")) (languages "Languages" keymap (A menu-item "A" (keymap (ada-mode menu-item "Ada" ada-mode) (antlr-mode menu-item "Antlr" antlr-mode) (archive-mode menu-item "Archive" archive-mode) (asm-mode menu-item "Asm" asm-mode) (autoconf-mode menu-item "Autoconf" autoconf-mode) (awk-mode menu-item "Awk" awk-mode))) (B menu-item "B" (keymap (bibtex-mode menu-item "Bibtex" bibtex-mode) (bibtex-style-mode menu-item "Bibtex style" bibtex-style-mode) (bovine-grammar-mode menu-item "Bovine grammar" bovine-grammar-mode))) (C menu-item "C" (keymap (c-mode menu-item "C" c-mode) (c++-mode menu-item "C++" c++-mode) (change-log-mode menu-item "Change log" change-log-mode) (compilation-mode menu-item "Compilation" compilation-mode) (conf-unix-mode menu-item "Conf unix" conf-unix-mode) (css-mode menu-item "Css" css-mode))) (D menu-item "D" (keymap (dcl-mode menu-item "Dcl" dcl-mode) (delphi-mode menu-item "Delphi" delphi-mode) (dns-mode menu-item "Dns" dns-mode) (doctex-mode menu-item "Doctex" doctex-mode) (dsssl-mode menu-item "Dsssl" dsssl-mode))) (E menu-item "E" (keymap (emacs-lisp-mode menu-item "Emacs lisp" emacs-lisp-mode) (ses-mode menu-item "Emacs Spreadsheet" ses-mode))) (F menu-item "F" (keymap (f90-mode menu-item "F90" f90-mode) (fortran-mode menu-item "Fortran" fortran-mode))) (G menu-item "G" (keymap (gdb-script-mode menu-item "Gdb script" gdb-script-mode) (graphviz-dot-mode menu-item "Graphviz dot" graphviz-dot-mode))) (html-mode menu-item "Html" html-mode) (I menu-item "I" (keymap (icon-mode menu-item "Icon" icon-mode) (idl-mode menu-item "Idl" idl-mode) (idlwave-mode menu-item "Idlwave" idlwave-mode))) (J menu-item "J" (keymap (java-mode menu-item "Java" java-mode) (javascript-mode menu-item "Javascript" javascript-mode) (jinja2-mode menu-item "Jinja2" jinja2-mode))) (L menu-item "L" (keymap (latex-mode menu-item "Latex" latex-mode) (ld-script-mode menu-item "Ld script" ld-script-mode) (lisp-mode menu-item "Lisp" lisp-mode))) (M menu-item "M" (keymap (m4-mode menu-item "M4" m4-mode) (makefile-automake-mode menu-item "Makefile automake" makefile-automake-mode) (makefile-gmake-mode menu-item "Makefile gmake" makefile-gmake-mode) (makefile-imake-mode menu-item "Makefile imake" makefile-imake-mode) (makefile-makepp-mode menu-item "Makefile makepp" makefile-makepp-mode) (markdown-mode menu-item "Markdown" markdown-mode) (metafont-mode menu-item "Metafont" metafont-mode) (metapost-mode menu-item "Metapost" metapost-mode) (mixal-mode menu-item "Mixal" mixal-mode) (m2-mode menu-item "Modula-2" m2-mode))) (nroff-mode menu-item "Nroff" nroff-mode) (O menu-item "O" (keymap (objc-mode menu-item "Objc" objc-mode) (org-mode menu-item "Org" org-mode))) (P menu-item "P" (keymap (pascal-mode menu-item "Pascal" pascal-mode) (perl-mode menu-item "Perl" perl-mode) (pike-mode menu-item "Pike" pike-mode) (prolog-mode menu-item "Prolog" prolog-mode) (ps-mode menu-item "Ps" ps-mode) (python-mode menu-item "Python" python-mode))) (R menu-item "R" (keymap (rst-mode menu-item "Rst" rst-mode) (ruby-mode menu-item "Ruby" ruby-mode))) (S menu-item "S" (keymap (scheme-mode menu-item "Scheme" scheme-mode) (conf-mode menu-item "Settings" conf-mode) (sgml-mode menu-item "Sgml" sgml-mode) (sh-mode menu-item "Sh" sh-mode) (shell-script-mode menu-item "Shell script" shell-script-mode) (sieve-mode menu-item "Sieve" sieve-mode) (simula-mode menu-item "Simula" simula-mode) (snmp-mode menu-item "SKMP MIBs" snmp-mode) (snmpv2-mode menu-item "SNMPv2 MIBs" snmpv2-mode) (sql-mode menu-item "Sql" sql-mode) (srecode-template-mode menu-item "Srecode template" srecode-template-mode))) (T menu-item "T" (keymap (tcl-mode menu-item "Tcl" tcl-mode) (tex-mode menu-item "Tex" tex-mode) (texinfo-mode menu-item "Texinfo" texinfo-mode) (text-mode menu-item "Text" text-mode))) (V menu-item "V" (keymap (vera-mode menu-item "Vera" vera-mode) (verilog-mode menu-item "Verilog" verilog-mode) (vhdl-mode menu-item "Vhdl" vhdl-mode))) (wisent-grammar-mode menu-item "Wisent grammar" wisent-grammar-mode) (xml-mode menu-item "Xml" xml-mode) (separator1 menu-item "--") (package menu-item "Manage Packages" list-packages)) (options "Options" keymap (transient-mark-mode menu-item "Highlight Active Region" transient-mark-mode :enable (not cua-mode) :help "Make text in active region stand out in color (Transient Mark mode)" :button (:toggle and (default-boundp (quote transient-mark-mode)) (default-value (quote transient-mark-mode)))) (highlight-paren-mode menu-item "Highlight Matching Parentheses" show-paren-mode :help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button (:toggle and (default-boundp (quote show-paren-mode)) (default-value (quote show-paren-mode)))) (highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" #[nil "\203

Also my ergoemacs configuration is (in case needed):

(setq ergoemacs-theme "master")
(setq ergoemacs-keyboard-layout "workman") ;; Assumes QWERTY keyboard layout
(ergoemacs-mode 1)

I tried to remove ergoemacs-theme line and everything just works fine.

mattfidler commented 10 years ago

I can't find the master theme. Is it one you created? If not I will have to dig some more. Or you can remind me what it was. I didn't create the backward compatibility layer for the old themes yet. On May 3, 2014 3:36 AM, "Shahin Azad" notifications@github.com wrote:

Just upgraded to the last available version /ergoemacs-mode-20140502.1020/and I can not set any default theme to use. This is what I got using --debug-init:

Debugger entered--Lisp error: (wrong-type-argument keymapp nil) copy-keymap(nil) ergoemacs-rm-key(nil "\n")

(key) "\305 \"\305\n \"\305 \"\305\f \"\211\207" [ergoemacs-read-input-keymap key ergoemacs-shortcut-keymap ergoemacs-keymap ergoemacs-unbind-keymap ergoemacs-rm-key] 3

mapc(#(key) "\305 \"\305\n \"\305 \"\305\f \"\211\207" [ergoemacs-read-input-keymap key ergoemacs-shortcut-keymap ergoemacs-keymap ergoemacs-unbind-keymap ergoemacs-rm-key] 3) ergoemacs-theme-remove-key-list(("\n") t) (progn (ergoemacs-theme-remove-key-list (list key) t)) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t))) (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t)))) (if (and (vectorp key) (eq (elt key 0) (quote menu-bar))) nil (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t))))) (if (and (boundp (quote no-ergoemacs-advice)) no-ergoemacs-advice) nil (if (and (vectorp key) (eq (elt key 0) (quote menu-bar))) nil (let ((no-ergoemacs-advice t)) (add-to-list (quote ergoemacs-global-changed-cache) (key-description key)) (if ergoemacs-global-not-changed-cache (progn (delete (key-description key) ergoemacs-global-not-changed-cache))) (add-to-list (quote ergoemacs-global-override-rm-keys) key) (if ergoemacs-mode (progn (ergoemacs-theme-remove-key-list (list key) t)))))) ergoemacs-global-set-key-after("\n" ace-jump-mode) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))) (progn (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def)))) (if (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (progn (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))) (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def)))) (progn (if (and (boundp (quote ergoemacs-run-mode-hooks)) ergoemacs-run-mode-hooks (not (equal keymap (current-global-map))) (not (equal keymap ergoemacs-keymap))) (let ((ergoemacs-run-mode-hooks nil) (new-key (read-kbd-macro (format " %s" (key-description key))))) (unwind-protect (define-key keymap new-key def)))) (setq ad-return-value (with-no-warnings (ad-Orig-define-key keymap key def))) (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))) (let (ad-return-value) (progn (if (and (boundp (quote ergoemacs-run-mode-hooks)) ergoemacs-run-mode-hooks (not (equal keymap (current-global-map))) (not (equal keymap ergoemacs-keymap))) (let ((ergoemacs-run-mode-hooks nil) (new-key (read-kbd-macro (format " %s" ...)))) (unwind-protect (define-key keymap new-key def)))) (setq ad-return-value (with-no-warnings (ad-Orig-define-key keymap key def))) (when (or (equal keymap (current-global-map)) (equal keymap global-map) (equal keymap ergoemacs-keymap)) (let ((vk key)) (ergoemacs-global-set-key-after key def) (unless (vectorp vk) (setq vk (read-kbd-macro (key-description key) t)) (ergoemacs-global-set-key-after vk def))))) ad-return-value) define-key((keymap #^[nil nil keymap

^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command ace-jump-mode kill-line recenter-top-bottom newline-and-indent next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0

^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command ace-jump-mode kill-line recenter-top-bottom newline-and-indent next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-comm

and self -insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert -command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...](33554436 . duplicate-current-line) (f5 . compile) (S-mouse-3 . kmacro-end-call-mouse) (S-down . windmove-down) (S-up . windmove-up) (S-right . windmove-right) (S-left . windmove-left) (C-mouse-5 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (mouse-5 . mwheel-scroll) (C-mouse-4 . mwheel-scroll) (S-mouse-4 . mwheel-scroll) (mouse-4 . mwheel-sc roll) (p aste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap) (f10 . menu-bar-open) (vertical-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (drag-mouse-3 . scroll-bar-scroll-down) (mouse-3 . scroll-bar-scroll-down) (down-mouse-2 . scroll-bar-drag) (drag-mouse-1 . scroll-bar-scroll-up) (mouse-1 . scroll-bar-scroll-up) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window )) (C-do wn-mouse-3 menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil (quote menu-bar-lines)) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) (S-down-mouse-1 . mouse-appearance-menu) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-primary) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (compose-last-chars . compose-last-chars) (f1 . help-command) (help . help-command) (f2 . 2C-command) (menu-bar keymap (file "File" keymap (new-file menu-item "New" ergoemacs-new-empty-buffer :keys "") (make-frame menu-item "New Frame" make-frame-command :keys "Ctl+X 5 2") (op en-file menu-item "Open..." find-file :keys "Ctl+X Ctl+F") (open-last-closed menu-item "Open last closed" ergoemacs-open-last-closed :keys "") (kill-buffer menu-item "Close" ergoemacs-close-current-buffer :keys "") (separator1 menu-item "--") (save-buffer menu-item "Save" save-buffer :keys "Ctl+X Ctl+S") (write-file menu-item "Save As..." write-file :keys "Ctl+X Ctl+W") (revert-buffer menu-item "Revert to Saved" revert-buffer :keys "") (print-buffer menu-item "Print" print-buffer :keys "") (ps-print-buffer-faces menu-item "Print (font+color)" ps-print-buffer-faces :keys "") (separator4 menu-item "--") (split-window menu-item "Split Window" split-window-vertically :keys "") (split-window-leftright menu-item "Split Window left/right" split-window-horizontally :keys "") (one-window menu-item "Unsplit Window" delete-other-windows :keys "Ctl+X 1") (separator5 menu-item "--") (execute-command menu-item "Execute Command" execute-extended-command :keys "Alt+X") (repeat-earlier-command "Repe at Earli er Command" repeat-complex-command) (separator6 menu-item "--") (exit-emacs menu-item "Quit" save-buffers-kill-emacs :keys "") "File") (edit "Edit" keymap (undo menu-item "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote undo)) (listp pending-undo-list) (consp buffer-undo-list))) :help "Undo last operation" :keys "Ctrl+Z") (redo menu-item "Redo" redo :keys "Ctrl+Y") (redo-sep menu-item "--") (cut menu-item "Cut" clipboard-kill-region :help "Delete text in region and copy it to the clipboard" :keys "Ctrl+X") (copy menu-item "Copy" clipboard-kill-ring-save :help "Copy text in region to the clipboard" :keys "Ctrl+C") (paste menu-item "Paste" clipboard-yank :help "Paste text from clipboard" :keys "Ctrl+V") (paste-from-menu menu-item "Paste from Kill Menu" yank-menu :enable (and (cdr yank-menu) (not buffer-read-only)) :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region :enable (and mark-ac tive (not buffer-read-only)) :help "Delete the text in region between mark and current position" :keys "Del") (mark-whole-buffer menu-item "Select All" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy" :keys "Ctrl+A") (separator-search menu-item "--") (blank-operations menu-item "Blank/Whitespace Operations" (keymap (trim-trailing-space menu-item "Trim Trailing Space" delete-trailing-whitespace :help "Trim Trailing spaces on each line" :keys "") (separator-tabify menu-item "--") (tabify-region menu-item "Change multiple spaces to tabs (Tabify)" (lambda nil (interactive) (if mark-active ... ...)) :help "Convert multiple spaces in the nonempty region to tabs when possible" :enable (not buffer-read-only)) (untabify menu-item "Change Tabs To Spaces (Untabify)" (lambda nil (interactive) (if mark-active ... ...)) :help "Convert all tabs in the nonempty region or buffer to multiple spaces" :enable (not buffer-read-only)))) (copy-to-clipboard menu-item "Copy File/Pat h to Clipboard" (keymap (copy-full-path menu-item "Current Full File Path to Clipboard" ergoemacs-copy-full-path :enable (buffer-file-name) :keys "") (copy-file-name menu-item "Current File Name to Clipboard" ergoemacs-copy-file-name :enable (buffer-file-name) :keys "") (copy-dir-path menu-item "Current Dir. Path to Clipboard" ergoemacs-copy-dir-path :enable (buffer-file-name) :keys ""))) (convert-case-to menu-item "Convert Case To" (keymap (capitalize-region menu-item "Capitalize" capitalize-region :help "Capitalize (initial caps) words in the nonempty region" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (downcase-region menu-item "Downcase" downcase-region :help "Make words in the nonempty region lower-case" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "Ctl+X Ctl+L") (upcase-region menu-item "Upcase" upcase-region :help "Make words in the nonempty region upper-case" :enable (and (not buffer-read-only) mark-active (> ... ...) ) :keys "Ctl+X Ctl+U") (toggle-case-region menu-item "Toggle Capitalization/Case" ergoemacs-toggle-letter-case :enable (not buffer-read-only) :keys "") (toggle-camel menu-item "Toggle CamelCase to camel_case" ergoemacs-toggle-camel-case :enable (not buffer-read-only) :keys ""))) (eol-conversion menu-item "EOL Conversion" (keymap (windows menu-item "Windows/DOS" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))) (unix menu-item "Unix/OSX" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))) (mac menu-item "Old Mac" (lambda nil (interactive) (ergoemacs-eol-conversion ...)) :enable (not (ergoemacs-eol-p ...))))) (sort menu-item "Sort" (keymap (regexp-fields menu-item "Regexp Fields" sort-regexp-fields :help "Sort the nonempty region lexicographically" :enable (and last-kbd-macro (not buffer-read-only) mark-active (> ... ...)) :keys "") (pages menu-item "Pages" sort-pages :help "Sort pages i n the no nempty region alphabetically" :enable (and last-kbd-macro (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-paragraphs menu-item "Paragraphs" sort-paragraphs :help "Sort paragraphs in the nonempty region alphabetically" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-numeric-fields menu-item "Numeric Field" sort-numeric-fields :help "Sort lines in the nonempty region numerically by the Nth field" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-fields menu-item "Field" sort-fields :help "Sort lines in the nonempty region lexicographically by the Nth field" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-columns menu-item "Columns" sort-columns :help "Sort lines in the nonempty region alphabetically, by a certain range of columns" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (sort-lines menu-item "Lines" sort-lines :help "Sort lines in t he nonem pty region alphabetically" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys "") (reverse-region menu-item "Reverse" reverse-region :help "Reverse the order of the selected lines" :enable (and (not buffer-read-only) mark-active (> ... ...)) :keys ""))) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region :enable (and mark-active (not buffer-read-only)) :help "Fill text in region to fit between left and right margin" :keys "") (props menu-item "Text Properties" facemenu-menu) "Edit") (search "Search" keymap (search-forward menu-item "String Forward..." search-forward :keys "find") (search-backward menu-item " Backward..." search-backward :keys "") (re-search-forward menu-item "Regexp Forward..." re-search-forward :keys "") (re-search-backward menu-item " Backward..." re-search-backward :keys "") (separator-repeat-search menu-item "--") (repeat-forward menu-item "Repeat Forward" nonincremental-repeat-search-forward :enable (or (an d (memq menu-bar-last-search-type (quote ...)) search-ring) (and (eq menu-bar-last-search-type (quote regexp)) regexp-search-ring)) :help "Repeat last search forward" :keys "") (repeat-backward menu-item " Repeat Backward" nonincremental-repeat-search-backward :enable (or (and (memq menu-bar-last-search-type (quote ...)) search-ring) (and (eq menu-bar-last-search-type (quote regexp)) regexp-search-ring)) :help "Repeat last search forward" :keys "") (separator-isearch menu-item "--") (i-search menu-item "Incremental Search" (keymap (isearch-forward menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it" :keys "Ctl+S") (isearch-backward menu-item " Backward..." isearch-backward :help "Search backwards for a string as you type it" :keys "Ctl+R") (isearch-forward-regexp menu-item "Forward Regexp..." isearch-forward-regexp :help "Search forward for a regular expression as you type it" :keys "Ctl+Alt+S") (isearch-backward-regexp menu-item " Backwa rd..." isearch-backward-regexp :help "Search backwards for a regular expression as you type it" :keys "Ctl+Alt+R") "Incremental Search")) (replace menu-item "Replace" (keymap (query-replace menu-item "Replace String..." query-replace :enable (not buffer-read-only) :help "Replace string interactively, ask about each occurrence" :keys "Alt+%") (query-replace-regexp menu-item "Replace Regexp..." query-replace-regexp :enable (not buffer-read-only) :help "Replace regular expression interactively, ask about each occurrence" :keys "Ctl+Alt+%") (separator-replace-tags menu-item "--") (tags-repl menu-item "Replace in Tagged Files..." tags-query-replace :help "Interactively replace a regexp in all tagged files" :keys "") (tags-repl-continue menu-item "Continue Replace" tags-loop-continue :help "Continue last tags replace operation" :keys "Alt+,") "Replace")) (grep menu-item "Grep..." grep :enable (executable-find "grep") :keys "") (occur menu-item "Occurrences in buffer..." occur :hel p "Show Lines in a buffer that match a regular expression" :keys "Alt+S o") (moccur menu-item "Occurrences in all buffers..." multi-occur :help "Show Lines in all buffers that match a regular expression" :keys "") (separator-go-to menu-item "--") (goto menu-item "Go To" (keymap (go-to-line menu-item "Goto Line..." goto-line :help "Read a line number and go to that line" :keys "Alt+G g") (separator-tags menu-item "--") (find-tag menu-item "Find Tag..." find-tag :help "Find definition of function or variable" :keys "Alt+.") (find-tag-otherw menu-item "Find Tag in Other Window..." find-tag-other-window :help "Find function/variable definition in another window" :keys "Ctl+X 4 .") (next-tag menu-item "Find Next Tag" menu-bar-next-tag :enable (and (boundp ...) (not ...)) :help "Find next function/variable matching last tag name" :keys "") (next-tag-otherw menu-item "Next Tag in Other Window" menu-bar-next-tag-other-window :enable (and (boundp ...) (not ...)) :help "Find next function/var iable ma tching last tag name in another window" :keys "") (apropos-tags menu-item "Tags Apropos..." tags-apropos :help "Find function/variables whose names match regexp" :keys "") (separator-tag-file menu-item "--") (set-tags-name menu-item "Set Tags File Name..." visit-tags-table :help "Tell Tags commands which tag table file to use" :keys "") "Go To") (separator-packages)) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) "Search") (view "View" keymap (menu-font-size menu-item "Zoom" (keymap (zoom-in menu-item "Zoom In" text-scale-increase :keys "") (zoom-out menu-item "Zoom Out" text-scale-decrease :keys "") (zoom-reset menu-item "Zoom Reset" text-scale-normal-size :keys ""))) (menu-set-font menu-item "Set Default Font..." menu-set-font :visible (display-multi-font-p) :help "Select a default font" :keys "") (color-theme menu-item "Customize Color Themes" customize-themes :help "Customize Emacs Themes." :keys "") (separator-font-size menu-item "--") (highlight-current-line me nu-item "Highlight Current Line" global-hl-line-mode :help "Have the cursor line always Highlighted" :button (:toggle and (boundp (quote global-hl-line-mode)) global-hl-line-mode) :keys "") (paren-mode menu-item "Highlight Matching Parentheses" show-paren-mode :button (:toggle . show-paren-mode) :keys "") (ruler-mode menu-item "Ruler Mode" ruler-mode :button (:toggle . ruler-mode) :keys "") (blink-cursor menu-item "Cursor Blink" blink-cursor-mode :button (:toggle . blink-cursor-mode) :keys "") (tabbar-mode menu-item "Tabbar" ergoemacs-menu-tabbar-toggle :button (:toggle and (boundp (quote tabbar-mode)) tabbar-mode) :keys "") (separator-speedbar menu-item "--") (showhide-speedbar menu-item "Speedbar" speedbar-frame-mode :help "Display a Speedbar quick-navigation frame" :button (:toggle and (boundp (quote speedbar-frame)) (frame-live-p (symbol-value (quote speedbar-frame))) (frame-visible-p (symbol-value (quote speedbar-frame)))) :keys "") (linecolumn-separator "--") (line-number-mode menu-it em "Line Numbers" line-number-mode :help "Show the current line number in the mode line" :button (:toggle and (default-boundp (quote line-number-mode)) (default-value (quote line-number-mode))) :keys "") (global-whitespace-mode menu-item "Show/Hide whitespaces" global-whitespace-mode :button (:toggle . global-whitespace-mode) :keys "") (global-linum-mode menu-item "Show/Hide line numbers in margin" global-linum-mode :button (:toggle . global-linum-mode) :keys "")) (languages "Languages" keymap (A menu-item "A" (keymap (ada-mode menu-item "Ada" ada-mode) (antlr-mode menu-item "Antlr" antlr-mode) (archive-mode menu-item "Archive" archive-mode) (asm-mode menu-item "Asm" asm-mode) (autoconf-mode menu-item "Autoconf" autoconf-mode) (awk-mode menu-item "Awk" awk-mode))) (B menu-item "B" (keymap (bibtex-mode menu-item "Bibtex" bibtex-mode) (bibtex-style-mode menu-item "Bibtex style" bibtex-style-mode) (bovine-grammar-mode menu-item "Bovine grammar" bovine-grammar-mode))) (C menu-it em "C" ( keymap (c-mode menu-item "C" c-mode) (c++-mode menu-item "C++" c++-mode) (change-log-mode menu-item "Change log" change-log-mode) (compilation-mode menu-item "Compilation" compilation-mode) (conf-unix-mode menu-item "Conf unix" conf-unix-mode) (css-mode menu-item "Css" css-mode))) (D menu-item "D" (keymap (dcl-mode menu-item "Dcl" dcl-mode) (delphi-mode menu-item "Delphi" delphi-mode) (dns-mode menu-item "Dns" dns-mode) (doctex-mode menu-item "Doctex" doctex-mode) (dsssl-mode menu-item "Dsssl" dsssl-mode))) (E menu-item "E" (keymap (emacs-lisp-mode menu-item "Emacs lisp" emacs-lisp-mode) (ses-mode menu-item "Emacs Spreadsheet" ses-mode))) (F menu-item "F" (keymap (f90-mode menu-item "F90" f90-mode) (fortran-mode menu-item "Fortran" fortran-mode))) (G menu-item "G" (keymap (gdb-script-mode menu-item "Gdb script" gdb-script-mode) (graphviz-dot-mode menu-item "Graphviz dot" graphviz-dot-mode))) (html-mode menu-item "Html" html-mode) (I menu-item "I" (keymap (icon-mode menu-item "Icon" icon-mode) (idl-mode menu-item "Idl" idl-mode) (idlwave-mode menu-item "Idlwave" idlwave-mode))) (J menu-item "J" (keymap (java-mode menu-item "Java" java-mode) (javascript-mode menu-item "Javascript" javascript-mode) (jinja2-mode menu-item "Jinja2" jinja2-mode))) (L menu-item "L" (keymap (latex-mode menu-item "Latex" latex-mode) (ld-script-mode menu-item "Ld script" ld-script-mode) (lisp-mode menu-item "Lisp" lisp-mode))) (M menu-item "M" (keymap (m4-mode menu-item "M4" m4-mode) (makefile-automake-mode menu-item "Makefile automake" makefile-automake-mode) (makefile-gmake-mode menu-item "Makefile gmake" makefile-gmake-mode) (makefile-imake-mode menu-item "Makefile imake" makefile-imake-mode) (makefile-makepp-mode menu-item "Makefile makepp" makefile-makepp-mode) (markdown-mode menu-item "Markdown" markdown-mode) (metafont-mode menu-item "Metafont" metafont-mode) (metapost-mode menu-item "Metapost" metapost-mode) (mixal-mode menu-item "Mixal" mixal-mode) (m2-mode menu-item "M odula-2" m2-mode))) (nroff-mode menu-item "Nroff" nroff-mode) (O menu-item "O" (keymap (objc-mode menu-item "Objc" objc-mode) (org-mode menu-item "Org" org-mode))) (P menu-item "P" (keymap (pascal-mode menu-item "Pascal" pascal-mode) (perl-mode menu-item "Perl" perl-mode) (pike-mode menu-item "Pike" pike-mode) (prolog-mode menu-item "Prolog" prolog-mode) (ps-mode menu-item "Ps" ps-mode) (python-mode menu-item "Python" python-mode))) (R menu-item "R" (keymap (rst-mode menu-item "Rst" rst-mode) (ruby-mode menu-item "Ruby" ruby-mode))) (S menu-item "S" (keymap (scheme-mode menu-item "Scheme" scheme-mode) (conf-mode menu-item "Settings" conf-mode) (sgml-mode menu-item "Sgml" sgml-mode) (sh-mode menu-item "Sh" sh-mode) (shell-script-mode menu-item "Shell script" shell-script-mode) (sieve-mode menu-item "Sieve" sieve-mode) (simula-mode menu-item "Simula" simula-mode) (snmp-mode menu-item "SKMP MIBs" snmp-mode) (snmpv2-mode menu-item "SNMPv2 MIBs" snmpv2-mode) (sql-mode menu-item "Sql" sql -mode) ( srecode-template-mode menu-item "Srecode template" srecode-template-mode))) (T menu-item "T" (keymap (tcl-mode menu-item "Tcl" tcl-mode) (tex-mode menu-item "Tex" tex-mode) (texinfo-mode menu-item "Texinfo" texinfo-mode) (text-mode menu-item "Text" text-mode))) (V menu-item "V" (keymap (vera-mode menu-item "Vera" vera-mode) (verilog-mode menu-item "Verilog" verilog-mode) (vhdl-mode menu-item "Vhdl" vhdl-mode))) (wisent-grammar-mode menu-item "Wisent grammar" wisent-grammar-mode) (xml-mode menu-item "Xml" xml-mode) (separator1 menu-item "--") (package menu-item "Manage Packages" list-packages)) (options "Options" keymap (transient-mark-mode menu-item "Highlight Active Region" transient-mark-mode :enable (not cua-mode) :help "Make text in active region stand out in color (Transient Mark mode)" :button (:toggle and (default-boundp (quote transient-mark-mode)) (default-value (quote transient-mark-mode)))) (highlight-paren-mode menu-item "Highlight Matching Parentheses" show-pare n-mode : help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button (:toggle and (default-boundp (quote show-paren-mode)) (default-value (quote show-paren-mode)))) (highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" #[nil "\203

Also my ergoemacs configuration is (in case needed):

(setq ergoemacs-theme "master") (setq ergoemacs-keyboard-layout "workman") ;; Assumes QWERTY keyboard layout (ergoemacs-mode 1)

I tried to remove ergoemacs-theme line and everything just works fine.

— Reply to this email directly or view it on GitHubhttps://github.com/ergoemacs/ergoemacs-mode/issues/210 .

shahinism commented 10 years ago

Actually I was using theme named 'hardcore' for long time and yesterday I got this error and checked out the readme file and encountered this master-mode there. So I tried to use that and nothing special... the error was just there!

mattfidler commented 10 years ago

Thanks for reporting the error, I need some sort of error handling if ergoemacs doesn't know the theme.

The normal theme has been adjusted so you can turn on and off certain components without changing themes. I haven't wrote the documentation about it yet.

For the old hard core theme, this is equivalent to

(setq ergoemacs-keyboard-layout "workman")
(setq ergoemacs-theme nil)
(ergoemacs-theme-option-on '(guru no-backspace))
shahinism commented 10 years ago

Whom, I'm getting this since I putted your new configs to .emacs:

Debugger entered--Lisp error: (void-function ergoemacs-theme-option-on)
  (ergoemacs-theme-option-on (quote (guru no-backspace)))
  eval-buffer(#<buffer  *load*> nil "/home/shahin/.emacs" nil t)  ; Reading at buffer position 8976
  load-with-code-conversion("/home/shahin/.emacs" "/home/shahin/.emacs" t t)
  load("~/.emacs" t t)
  #[0 "\205\262
mattfidler commented 10 years ago

I added some autoload cookies to the function ergoemacs-theme-option-on, perhaps that will fix the issue for you...?

shahinism commented 10 years ago

Now there is another problem. With this I even can't load ergoemacs with default theme!

Debugger entered--Lisp error: (void-function shift-select-mode)
  shift-select-mode(t)
  byte-code("\306\307!\210\306\310!\210\306\311!\210\306\312!\210\313\314\315\316\317\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211  \n\f
\317@ABCDE!%#FGHIJKLMNOPQRSTU\320\321N\203v
shahinism commented 10 years ago

Removing all the old installations files and reinstalling the package have done the job and everything is working well. I think bite compiled files were cause of the problem. Thank you and your great Emacs package ;-)

mattfidler commented 10 years ago

I've been noticing many bugs based on byte compiled recently. On May 7, 2014 9:57 AM, "Shahin Azad" notifications@github.com wrote:

Removing all the old installations file and reinstalling the package have done the job and everything is working well. I think bite compiled files were cause of the problem. Thank you and your great Emacs package ;-)

— Reply to this email directly or view it on GitHubhttps://github.com/ergoemacs/ergoemacs-mode/issues/210#issuecomment-42437680 .