bug#33375: 27.0.50; Nested function definitions

[Andreas Röhler]

On 14.11.2018 10:39, Andreas Röhler wrote:
> In GNU Emacs 27.0.50 (build 2, i686-pc-linux-gnu, GTK+ Version 3.14.5)
>   of 2018-11-09
>
>
>
> (defun foo1 ()
>    "[Some docu]
>
> (defun other-foo "
>    (interactive)
>    ;; defining another function inside
>    (defun foo2 ()
>      (interactive)
>      (message "%s"   "Foo2")
> ;; another syntactically correct function just badly indented
> (defun foo3 ()
>    (interactive)
>    (message "%s" Foo3))
>        )
>    (message "%s" "Foo1"))
>
> ;;;;
> Results of evaluation:
>
> (foo1) ==> "Foo1"
> (foo2) ==> foo3 ?
> (foo3) ==> Debugger entered--Lisp error: (void-variable Foo3)
>    (message "%s" Foo3)
>    foo3()
>    eval((foo3) nil)
>    elisp--eval-last-sexp(nil)
>    eval-last-sexp(nil)
>    funcall-interactively(eval-last-sexp nil)
>    call-interactively(eval-last-sexp nil nil)
>    command-execute(eval-last-sexp)
>
> Also strange: M-x foo2 RET messages the correct "Foo2"
>
> Cheers,
> Andreas
> GNU Emacs 27.0.50 (build 2, i686-pc-linux-gnu, GTK+ Version 3.14.5) of 
> 2018-11-09
>
>
>
> Repository revision: 4f0e54223a60a34818365475440e023747eab7e9
> Windowing system distributor 'The X.Org Foundation', version 11.0.11604000
> System Description: Debian GNU/Linux 8 (jessie)
>
> Recent messages:
> "Foo1"
> Foo2
> foo3
> Entering debugger...
> Mark set
> Saved text from "Debugger entered--Lisp error: (void-vari"
> Mark set
> Saving file /home/speck/foo.el...
> Wrote /home/speck/foo.el
> Foo2
>
> Configured using:
>   'configure --with-modules --enable-checking
>   --enable-check-lisp-object-type --with-mailutils'
>
> Configured features:
> XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GSETTINGS GLIB
> NOTIFY INOTIFY ACL GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB
> TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS GMP
>
> Important settings:
>    value of $LANG: de_DE.utf8
>    value of $XMODIFIERS: @im=ibus
>    locale-coding-system: utf-8-unix
>
> Major mode: Emacs-Lisp
>
> 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 seq byte-opt gv
> bytecomp byte-compile cconv dired dired-loaddefs format-spec rfc822 mml
> mml-sec password-cache epa derived epg epg-config gnus-util rmail
> rmail-loaddefs time-date 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 easymenu find-func cl-loaddefs cl-lib
> elec-pair mule-util 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 menu-bar
> rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock
> syntax facemenu font-core term/tty-colors frame 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 minibuffer
> cl-preloaded nadvice loaddefs button faces cus-face macroexp files
> text-properties overlay sha1 md5 base64 format env code-pages mule
> custom widget hashtable-print-readable backquote threads dbusbind
> inotify dynamic-setting system-font-setting font-render-setting
> move-toolbar gtk x-toolkit x multi-tty make-network-process emacs)
>
> Memory information:
> ((conses 8 158015 10577)
>   (symbols 24 34540 1)
>   (strings 16 57691 2348)
>   (string-bytes 1 1065410)
>   (vectors 8 15056)
>   (vector-slots 4 522266 19972)
>   (floats 8 54 150)
>   (intervals 28 437 232)
>   (buffers 528 13)
>   (heap 1024 41340 869))

Update: there where missing string-quotes, error changed:

(defun foo1 ()
  "[Some docu]

(defun other-foo "
  (interactive)
  ;; defining another function inside
  (defun foo2 ()
    (interactive)
    (message "%s"   "Foo2")
;; another syntactically correct function just badly indented
(defun foo3 ()
  (interactive)
  (message "%s" "Foo3"))
      )
  (message "%s" "Foo1"))

;;;;
Results of evaluation:

(foo1) ==> "Foo1"
(foo2) ==> foo3 ?
(foo3) ==> "Foo3"