[ESS] Polymode keymap error

[Tyler Smith]

I can't reproduce your problem. I tried opening `emacs -Q`, then 
running the following code. It works without any error. Is this 
enough to cause the error on your system? If not, there's 
something else in your config creating the issue:


```
(setq package-load-list
      '((use-package t)
	(bind-key t)))
(package-initialize)

(require 'use-package)

(use-package polymode
  :defer t
  :ensure t)

(use-package poly-R
  :defer t
  :after polymode
  :ensure t)

(use-package poly-markdown
  :defer t
  :after polymode
  :mode
  ("\\.Rmd\\'" . poly-markdown+R-mode)
  :ensure t)

```


John Haman writes:

> Thanks, I've been using this use-package declaration for some 
> time (with a few of my custom functions omitted for brevity)
>
> (use-package polymode
>   :defer t
>   :ensure t)
>
> (use-package poly-R
>   :defer t
>   :after polymode
>   :ensure t)
>
> (use-package poly-markdown
>   :defer t
>   :after polymode
>   :mode
>   ("\\.Rmd\\'" . poly-markdown+R-mode)
>   :ensure t)
>
>
>
> On Mon, Mar 8, 2021, at 10:32 PM, Tyler Smith wrote:
>> Can you show us your Emacs config, or at least the use-package 
>> expression you use for poly-mode?
>> 
>> Best,
>> 
>> Tyler
>> 
>> John Haman via ESS-help writes:
>> 
>> > I'm having an issue with Poly-R or poly-markdown. When I 
>> > start 
>> > up my 
>> > Emacs installation, I get a strange error about a keymap:
>> >
>> > Error (use-package): poly-markdown/:catch: Symbol’s value as 
>> > variable is 
>> > void: keymap Disable showing Disable logging
>> >
>> > I have no issues loading polymode, but either of poly-R or 
>> > poly-markdown 
>> > triggers the error.
>> >
>> > Thanks everyone.
>> >
>> > The traceback is below.
>> >
>> > Debugger entered--Lisp error: (void-variable keymap)
>> > byte-code("\306\307!\210\310\311!\210\312\313\10!\203\23\0\10\202O\0\313\10!\203\35\0\314\202E\0\315\11J!\2036\0\316\10\11J\"\317\n\2@\"\20\211A\262..." 
>> > [keymap parent keylist parent-conf polymode-minor-mode-map 
>> > parent-conf-name make-variable-buffer-local 
>> > poly-markdown-mode 
>> > makunbound poly-markdown-mode-map (lambda (def-tmp-var) 
>> > (defvar 
>> > poly-markdown-mode-map def-tmp-var "Keymap for 
>> > poly-markdown-mode.")) 
>> > keymapp nil eieio-object-p 
>> > pm--get-keylist\.keymap-from-parent 
>> > append 
>> > derived-mode-map-name eieio-oref -minor-mode 
>> > easy-mmode-define-keymap 
>> > :inherit poly-markdown-polymode (lambda (def-tmp-var) (defvar 
>> > poly-markdown-polymode def-tmp-var "Configuration object for 
>> > `poly-markdown-mode' poly...")) clone :name 
>> > "poly-markdown-polymode" 
>> > :innermodes (poly-markdown-fenced-code-innermode 
>> > poly-markdown-displayed-math-innermode 
>> > poly-markdown-inline-math-innermode 
>> > poly-markdown-yaml-metadata-innermode) :hostmode 
>> > poly-markdown-hostmode 
>> > pm-polymode defalias #f(compiled-function (&optional arg) 
>> > "nil\n\n\\{poly-markdown-mode-map}" (interactive nil) 
>> > #<bytecode 
>> > 0x141a4722905af83a>) add-minor-mode " PM" add-to-list 
>> > auto-mode-alist 
>> > ("\\.md\\'" . poly-markdown-mode)] 11)
>> >    require(poly-markdown nil t)
>> >    (not (require 'poly-markdown nil t))
>> >    (if (not (require 'poly-markdown nil t)) (display-warning 
>> > 'use-package (format "Cannot load %s" 'poly-markdown) :error) 
>> > (use-package-statistics-gather :config 'poly-markdown nil) 
>> > (use-package-statistics-gather :config 'poly-markdown t))
>> >    (progn (use-package-statistics-gather :init 'poly-markdown 
>> >    nil) (if 
>> > (not (require 'poly-markdown nil t)) (display-warning 
>> > 'use-package 
>> > (format "Cannot load %s" 'poly-markdown) :error) 
>> > (use-package-statistics-gather :config 'poly-markdown nil) 
>> > (use-package-statistics-gather :config 'poly-markdown t)) 
>> > (use-package-statistics-gather :init 'poly-markdown t))
>> >    (closure (t) nil (progn (use-package-statistics-gather 
>> >    :init 
>> > 'poly-markdown nil) (if (not (require 'poly-markdown nil t)) 
>> > (display-warning 'use-package (format "Cannot load %s" 
>> > 'poly-markdown) 
>> > :error) (use-package-statistics-gather :config 'poly-markdown 
>> > nil) 
>> > (use-package-statistics-gather :config 'poly-markdown t)) 
>> > (use-package-statistics-gather :init 'poly-markdown t)))()
>> >    eval-after-load(polymode (closure (t) nil (progn 
>> > (use-package-statistics-gather :init 'poly-markdown nil) (if 
>> > (not 
>> > (require 'poly-markdown nil t)) (display-warning 'use-package 
>> > (format 
>> > "Cannot load %s" 'poly-markdown) :error) 
>> > (use-package-statistics-gather 
>> > :config 'poly-markdown nil) (use-package-statistics-gather 
>> > :config 
>> > 'poly-markdown t)) (use-package-statistics-gather :init 
>> > 'poly-markdown t))))
>> >    (condition-case err (eval-after-load 'polymode #'(lambda 
>> >    nil 
>> >    (progn 
>> > (use-package-statistics-gather :init 'poly-markdown nil) (if 
>> > (not 
>> > (require ... nil t)) (display-warning 'use-package (format 
>> > "Cannot load 
>> > %s" ...) :error) (use-package-statistics-gather :config 
>> > 'poly-markdown 
>> > nil) (use-package-statistics-gather :config 'poly-markdown 
>> > t)) 
>> > (use-package-statistics-gather :init 'poly-markdown t)))) 
>> > ((debug error) 
>> > (funcall use-package--warning102 :catch err)))
>> >    (progn (use-package-statistics-gather :use-package 
>> >    'poly-markdown 
>> > nil) (use-package-ensure-elpa 'poly-markdown '(t) 'nil) 
>> > (defvar 
>> > use-package--warning102 #'(lambda (keyword err) (let ((msg 
>> > (format 
>> > "%s/%s: %s" ... keyword ...))) (display-warning 'use-package 
>> > msg 
>> > :error)))) (condition-case err (eval-after-load 'polymode 
>> > #'(lambda nil 
>> > (progn (use-package-statistics-gather :init 'poly-markdown 
>> > nil) 
>> > (if (not 
>> > ...) (display-warning ... ... :error) 
>> > (use-package-statistics-gather 
>> > :config ... nil) (use-package-statistics-gather :config ... 
>> > t)) 
>> > (use-package-statistics-gather :init 'poly-markdown t)))) 
>> > ((debug error) 
>> > (funcall use-package--warning102 :catch err))) 
>> > (use-package-statistics-gather :use-package 'poly-markdown 
>> > t))
>> >    (progn (progn (use-package-statistics-gather :use-package 
>> > 'poly-markdown nil) (use-package-ensure-elpa 'poly-markdown 
>> > '(t) 
>> > 'nil) 
>> > (defvar use-package--warning102 #'(lambda (keyword err) (let 
>> > ((msg ...)) 
>> > (display-warning 'use-package msg :error)))) (condition-case 
>> > err 
>> > (eval-after-load 'polymode #'(lambda nil (progn 
>> > (use-package-statistics-gather :init ... nil) (if ... ... ... 
>> > ...) 
>> > (use-package-statistics-gather :init ... t)))) ((debug error) 
>> > (funcall 
>> > use-package--warning102 :catch err))) 
>> > (use-package-statistics-gather 
>> > :use-package 'poly-markdown t)))
>> >    eval((progn (progn (use-package-statistics-gather 
>> >    :use-package 
>> > 'poly-markdown nil) (use-package-ensure-elpa 'poly-markdown 
>> > '(t) 
>> > 'nil) 
>> > (defvar use-package--warning102 #'(lambda (keyword err) (let 
>> > (...) 
>> > (display-warning ... msg :error)))) (condition-case err 
>> > (eval-after-load 
>> > 'polymode #'(lambda nil (progn ... ... ...))) ((debug error) 
>> > (funcall 
>> > use-package--warning102 :catch err))) 
>> > (use-package-statistics-gather 
>> > :use-package 'poly-markdown t))) t)
>> >    elisp--eval-last-sexp(nil)
>> >    eval-last-sexp(nil)
>> >    funcall-interactively(eval-last-sexp nil)
>> >    call-interactively(eval-last-sexp nil nil)
>> >    command-execute(eval-last-sexp)
>> >
>> > ______________________________________________
>> > ESS-help using r-project.org mailing list
>> > https://stat.ethz.ch/mailman/listinfo/ess-help
>> 
>> 
>> -- 
>> Tyler Smith
>> plantarum.ca
>>


-- 
Tyler Smith
plantarum.ca