31.0.50; shell, virtualenv

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

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