bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

[Jean Louis]

When I do this:

(read-file-name "File name for export: " (getenv "HOME") nil nil (concat "Location-Set-ID-" "731" ".gpx"))

The file name in the prompt s displayed as:

File name for export: ~Location-Set-ID-731.gpx

without slash, rather than as:

File name for export: ~/Location-Set-ID-731.gpx

as that is where slash should be, as ~Location-Set-ID-731.gpx makes to
me little sense as I understand that ~SOMETHING would be a user name in
the system, and I get uncertainty if that works or not.


In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.17.4, Xaw scroll bars)
 of 2021-03-15 built on protected.rcdrun.com
Repository revision: 5120b612f8520a855fc1819c3ebf86453c361e55
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12010000
Configured using:
 'configure --with-x-toolkit=lucid'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBSYSTEMD LIBXML2 MODULES NOTIFY INOTIFY PDUMPER PNG RSVG
SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XDBE XIM XPM LUCID ZLIB

Important settings:
  value of $LC_ALL: en_US.UTF-8
  value of $LANG: de_DE.UTF-8
  value of $XMODIFIERS: @im=exwm-xim
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs
rfc822 mml mml-sec epa derived epg epg-config gnus-util rmail
rmail-loaddefs auth-source cl-seq eieio eieio-core cl-macs
eieio-loaddefs password-cache json map text-property-search time-date
subr-x seq byte-opt gv bytecomp byte-compile cconv mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail
rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils help-fns
radix-tree cl-print debug backtrace help-mode find-func cl-loaddefs
cl-lib iso-transl tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar
rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock
font-lock syntax facemenu font-core term/tty-colors frame minibuffer
cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai
tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian
slovak czech european ethiopic indian cyrillic chinese composite
charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev
obarray cl-preloaded nadvice button loaddefs faces cus-face macroexp
files window text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable backquote threads
dbusbind inotify lcms2 dynamic-setting system-font-setting
font-render-setting cairo x-toolkit x multi-tty make-network-process
emacs)

Memory information:
((conses 16 61358 5838)
 (symbols 48 7506 0)
 (strings 32 22017 2163)
 (string-bytes 1 705006)
 (vectors 16 15265)
 (vector-slots 8 200717 5706)
 (floats 8 26 54)
 (intervals 56 378 0)
 (buffers 992 13))

-- 
Thanks,
Jean Louis
⎔ λ 🄯 𝍄 𝌡 𝌚

bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

[Eli Zaretskii]

> From: Jean Louis <bugs@gnu.support>
> Date: Thu, 18 Mar 2021 21:16:11 +0300
> 
> 
> When I do this:
> 
> (read-file-name "File name for export: " (getenv "HOME") nil nil (concat "Location-Set-ID-" "731" ".gpx"))
> 
> The file name in the prompt s displayed as:
> 
> File name for export: ~Location-Set-ID-731.gpx
> 
> without slash, rather than as:
> 
> File name for export: ~/Location-Set-ID-731.gpx

That's a cockpit error: you should run the directory through
expand-file-name if you want to use (getenv "HOME") in that context.

bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

[Michael Albinus]

Eli Zaretskii <eliz@gnu.org> writes:

>> When I do this:
>>
>> (read-file-name "File name for export: " (getenv "HOME") nil nil (concat "Location-Set-ID-" "731" ".gpx"))
>>
>> The file name in the prompt s displayed as:
>>
>> File name for export: ~Location-Set-ID-731.gpx
>>
>> without slash, rather than as:
>>
>> File name for export: ~/Location-Set-ID-731.gpx
>
> That's a cockpit error: you should run the directory through
> expand-file-name if you want to use (getenv "HOME") in that context.

Likely, it's not sufficient:

(expand-file-name "~") => "/home/albinus"

Better, run it through file-name-as-directory.

Best regards, Michael.

bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

[Lars Ingebrigtsen]

Michael Albinus <michael.albinus@gmx.de> writes:

> Likely, it's not sufficient:
>
> (expand-file-name "~") => "/home/albinus"
>
> Better, run it through file-name-as-directory.

Yup.  In any case, there doesn't seem to be a bug here, so I'm closing
this bug report.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#47247: 28.0.50; read-file-name: should display slash correctly in the prompt

[Jean Louis]

* Lars Ingebrigtsen <larsi@gnus.org> [2021-03-19 11:40]:
> Michael Albinus <michael.albinus@gmx.de> writes:
> 
> > Likely, it's not sufficient:
> >
> > (expand-file-name "~") => "/home/albinus"
> >
> > Better, run it through file-name-as-directory.
> 
> Yup.  In any case, there doesn't seem to be a bug here, so I'm closing
> this bug report.

Thank you, I will then use this, it works better.

(read-file-name "File name for export: " (file-name-as-directory (getenv "HOME")) nil nil (concat "Location-Set-ID-" id ".gpx")