31.0.50; shell, virtualenv

[Andreas Röhler]

Have in init a command like that:

(defun aktivate-My-shell-virtualenv-root()
  (interactive)
  (when (boundp 'My-shell-virtualenv-root)
    (unless (string= "" My-shell-virtualenv-root)
      (dired My-shell-virtualenv-root)
      (setq default-directory My-shell-virtualenv-root)
      (shell)
      (virtualenv-activate My-shell-virtualenv-root))))

When calling this, get an error like:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  find-file-name-handler(nil file-remote-p)
  file-remote-p(nil)
  with-connection-local-variables-1(#f(compiled-function () #<bytecode 
0x16056352af86ac49>))
  shell()
  (if (string= "" My-shell-virtualenv-root) nil (dired 
My-shell-virtualenv-root) (setq default-directory 
My-shell-virtualenv-root) (shell) (virtualenv-activate 
My-shell-virtualenv-root))
  (progn (if (string= "" My-shell-virtualenv-root) nil (dired 
My-shell-virtualenv-root) (setq default-directory 
My-shell-virtualenv-root) (shell) (virtualenv-activate 
My-shell-virtualenv-root)))
  (if (boundp 'My-shell-virtualenv-root) (progn (if (string= "" 
My-shell-virtualenv-root) nil (dired My-shell-virtualenv-root) (setq 
default-directory My-shell-virtualenv-root) (shell) (virtualenv-activate 
My-shell-virtualenv-root))))
  aktivate-My-shell-virtualenv-root()

The error goes away, when the custom-file is loaded manually before 
evaluating.

A bug?

Cheers,

Andreas

GNU Emacs 31.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.33, 
cairo version 1.16.0) of 2024-12-11