31.0.50; shell, virtualenv

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

Re: 31.0.50; shell, virtualenv

[Jean Louis]

* Andreas Röhler <andreas.roehler@easy-emacs.de> [2024-12-16 11:54]:
> 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))))

You could ensure that `My-shell-virtualenv-root' is string by using:

(unless (and My-shell-virtualenv-root
	     (stringp My-shell-virtualenv-root)
	     (string= "" My-shell-virtualenv-root))

and I guess you may do this too:

(unless (and (boundp 'My-shell-virtualenv-root) ;; that it is bound
	     My-shell-virtualenv-root           ;; that it is not NIL
	     (stringp My-shell-virtualenv-root) ;; that it is string
	     (string= "" My-shell-virtualenv-root)) ;; that string is empty string

-- 
Jean Louis