Re: [ESS] Polymode keymap error

2021-03-08 Thread Tyler Smith via ESS-help
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 ( arg) 
"nil\n\n\\{poly-markdown-mode-map}" (interactive nil) #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))) 

[ESS] Polymode keymap error

2021-03-08 Thread John Haman via ESS-help
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 ( arg) 
"nil\n\n\\{poly-markdown-mode-map}" (interactive nil) #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 

Re: [ESS] Trailing slash deleted from find-file prompt

2021-03-08 Thread Brendan.Halpin via ESS-help
I can fix this by changing ess-synchronize-dirs in ess-inf.el:

(defun ess-synchronize-dirs ()
  "Set Emacs' current directory to be the same as the subprocess directory.
To be used in `ess-idle-timer-functions'."
  (when (and ess-can-eval-in-background
 ess-getwd-command
 (inferior-ess-available-p))
(ess-when-new-input last-sync-dirs
  (ess-if-verbose-write "\n(ess-synchronize-dirs)\n")
  (let ((lpath (car (ess-get-words-from-vector ess-getwd-command
(setq default-directory
  (ess--derive-connection-path default-directory lpath)))
  default-directory)))

Change
  (let ((lpath (car (ess-get-words-from-vector ess-getwd-command
to
  (let ((lpath (file-name-as-directory (car (ess-get-words-from-vector 
ess-getwd-command)

Brendan
-- 
Brendan Halpin, Department of Sociology, University of Limerick, Ireland
Tel: w +353-61-213147
Room F1-007 x 3147
http://teaching.sociology.ul.ie/bhalpin/wordpress
twitter:@BrendanTHalpin
Papers online at: http://teaching.sociology.ul.ie/bhalpin/publications.html
ULSociology on Facebook: Sociology@Limerick twitter:@ULSociology

__
ESS-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/ess-help