bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

~dir


From: Devon Sean McCullough
Subject: ~dir
Date: Sun, 3 Feb 2002 19:54:47 -0500 (EST)

In GNU Emacs 19.34.2 (sparc-sun-solaris2.5.1, X toolkit) of Tue Jan 14 1997 on 
tarkin
Also in Emacs 21.1

Two demos clarify bug:
[Note ~foo~/~foo~
 and ~dir~/~dir~ below]

$ emacs -q
C-x d / t m p RET
+ ~ f o o ~ RET
RET
+ b a r RET
make-directory: Creating directory: no such file or directory, 
/tmp/~foo~/~foo~/bar

$ cat bugdemo.el
(let ((debug-on-error t))
  (shell-command "echo shell expands to: ~dir~ ~file~")
  (make-directory "./~dir~")
  (cd "./~dir~")
  (find-file "./~file~"))
$ emacs -q -l bugdemo.el
Signaling: (error "Variable binding depth exceeds max-specpdl-size")
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~" (43) (nil))
  file-truename("~/~dir~/~dir~/~file~")
  find-file-noselect("./~file~")
  find-file("./~file~")
  (let ((debug-on-error t)) (shell-command "echo shell expands to: ~dir~ 
~file~") (delete-directory "./~dir~") (make-directory "./~dir~") (cd "./~dir~") 
(find-file "./~file~"))
  load("/home/ai/devon/bugdemo.el" nil t)
  command-line-1(("-l" "bugdemo.el"))
  command-line()
  normal-top-level()

Recent input:
M-x r e p o r TAB RET ~ d i r RET

Recent messages:
shell expands to: ~dir~ ~file~
Loading debug...
Loading debug...done
Entering debugger...
 [2 times]
Making completion list...
Loading emacsbug...
Loading emacsbug...done
Loading mailalias...
Loading mailalias...done



reply via email to

[Prev in Thread] Current Thread [Next in Thread]