bug#48479: 28.0.50; Crash on `read--expression'

[Jean Louis <bug@gnu.support>]

This function is not complete, I was just testing things. But when I
invoke interactively M-x rcd-hash-edit then Emacs crashes. I did not
want to place "nil" down, this comes from testing. It crashes with emacs
-Q when you evaluate this function and invoke it interactively.

(defun rcd-hash-edit ()
  "Interactively choose a hash to edit."
  (interactive)
  (let ((hash (condition-case nil
		  (read--expression "Hash to edit: ")
		nil)))
    (if (eq (type-of (symbol-value hash)) 'hash-table)
	(rcd-hash-edit-hash hash)
      (message "Symbol is not a hash"))))

Fatal error 11: Segmentation fault
Backtrace:
emacs(+0x14a014)[0x558271bec014]
emacs(+0x43835)[0x558271ae5835]
emacs(+0x43d0a)[0x558271ae5d0a]
emacs(+0x1482dd)[0x558271bea2dd]
emacs(+0x148359)[0x558271bea359]
/usr/lib/libpthread.so.0(+0x13960)[0x7f8dd29c2960]
emacs(+0x1b1f9b)[0x558271c53f9b]
emacs(+0x1b0832)[0x558271c52832]
emacs(+0x1b1b0b)[0x558271c53b0b]
emacs(+0x1b0832)[0x558271c52832]
emacs(+0x1b1455)[0x558271c53455]
emacs(+0x1adfc7)[0x558271c4ffc7]
emacs(+0x1aa701)[0x558271c4c701]
emacs(+0x1ae08b)[0x558271c5008b]
emacs(+0x1b0249)[0x558271c52249]
emacs(+0x1abdfa)[0x558271c4ddfa]
emacs(+0x1ae08b)[0x558271c5008b]
emacs(+0x1eaaa0)[0x558271c8caa0]
emacs(+0x1adfc7)[0x558271c4ffc7]
emacs(+0x1eaaa0)[0x558271c8caa0]
emacs(+0x1adfc7)[0x558271c4ffc7]
emacs(+0x1aa701)[0x558271c4c701]
emacs(+0x1ae08b)[0x558271c5008b]
emacs(+0x1b0168)[0x558271c52168]
emacs(+0x1abdfa)[0x558271c4ddfa]
emacs(+0x1ae08b)[0x558271c5008b]
emacs(+0x1eaaa0)[0x558271c8caa0]
emacs(+0x1adfc7)[0x558271c4ffc7]
emacs(+0x1ae14a)[0x558271c5014a]
emacs(+0x13f60d)[0x558271be160d]
emacs(+0x1acfe7)[0x558271c4efe7]
emacs(+0x12ff94)[0x558271bd1f94]
emacs(+0x1af713)[0x558271c51713]
emacs(+0x12ff3b)[0x558271bd1f3b]
emacs(+0x1356e6)[0x558271bd76e6]
emacs(+0x135a12)[0x558271bd7a12]
emacs(+0x4c03f)[0x558271aee03f]
/usr/lib/libc.so.6(__libc_start_main+0xd5)[0x7f8dd265bb25]
emacs(+0x4c64e)[0x558271aee64e]



In GNU Emacs 28.0.50 (build 2, x86_64-pc-linux-gnu, X toolkit, cairo version 1.17.4, Xaw3d scroll bars)
 of 2021-05-13 built on protected.rcdrun.com
Repository revision: ec574a72f7198d9793b466f33382fff397ac4ce1
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12011000
System Description: Parabola GNU/Linux-libre

Configured using:
 'configure --prefix=/package/text/emacs --with-x-toolkit=lucid'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY
PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11
XAW3D 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: Shell

Minor modes in effect:
  shell-dirtrack-mode: t
  tooltip-mode: t
  global-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 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
time-date subr-x mm-decode mm-bodies mm-encode mail-parse rfc2231
mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
mm-util mail-prsvr mail-utils shell pcomplete comint ansi-color ring
cus-edit cus-start cus-load wid-edit misearch multi-isearch dired-aux
cl-loaddefs cl-lib dired dired-loaddefs bookmark seq byte-opt gv
bytecomp byte-compile cconv text-property-search pp 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
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 89766 5983)
 (symbols 48 9629 3)
 (strings 32 27590 1395)
 (string-bytes 1 857514)
 (vectors 16 17777)
 (vector-slots 8 224289 8351)
 (floats 8 37 63)
 (intervals 56 1292 193)
 (buffers 992 16))

-- 
Thanks,
Jean Louis

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns