[ESS] Polymode keymap error

Tue Mar 9 17:41:33 CET 2021

Tyler, thanks, I'll try to reproduce your example when I get home tonight.

In the meantime, can you try your code without the defer keywords and confirm the absence of an error?

Thanks,
John

On Tue, Mar 9, 2021, at 10:22 AM, Tyler Smith wrote:
> 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
>