bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

This is with my setup, not emacs -Q.

I added a call to `(debug)' in a section of my code that is eval'd during
application of a completion function for file names.  Below is what happened.

What should have happened: *Backtrace* opens in a separate, special-display
frame (because "*Backtrace*" matches my value of `special-display-regexps').

Apparently, when Emacs tried to create the frame it ran into some problems in
`x-create-frame'.  Why `x-create-frame' would call `directory-files' on
"~/.emacs.d/auto-save-list/" I have no idea.  And why that should raise this
error, and what this error means, I also have no idea.  This means nothing to me
- what is going on here?

BTW, why is Emacs suddenly formatting the `report-emacs-bug' text I wrote?  I
copied (`M-w') and yanked (`C-y') the backtrace into that report buffer, then
pasted, after `C-c C-c', from the clipboard into my mail client (Outlook), as
usual.  But now it seems that each line gets split at the same position and
`=<newline>' is added.

Is this a new feature?  Is there a way to turn it off or otherwise control it?
Why `='?


Debugger entered--Lisp error: (file-error "Opening directory" "no error" "c=
:/.emacs.d/auto-save-list/")
  directory-files("~/.emacs.d/auto-save-list/" nil "\\`\\.saves-" t)
  (and auto-save-list-file-prefix (file-directory-p (file-name-directory au=
to-save-list-file-prefix)) (directory-files (file-name-directory auto-save-=
list-file-prefix) nil (concat "\\`" (regexp-quote (file-name-nondirectory a=
uto-save-list-file-prefix))) t))
  x-create-frame(((visibility) (fringe . 0) (right-fringe . 0) (left-fringe=
 . 0) (icon-type) (minibuffer) (cursor-type . bar) (tool-bar-lines . 0) (wi=
dth . 80) (height . 14) (menu-bar-lines . 1) (top . 0) (left . 0) (unsplitt=
able . t) (user-position . t) (vertical-scroll-bars . right) (height . 14) =
(width . 80) (unsplittable . t)))
  x-create-frame-with-faces(((fringe . 0) (right-fringe . 0) (left-fringe .=
 0) (icon-type) (minibuffer) (cursor-type . bar) (tool-bar-lines . 0) (font=
 . "-*-Lucida Console-normal-r-*-*-14-112-96-96-c-*-iso8859-1") (width . 80=
) (height . 14) (mouse-color . "Yellow") (cursor-color . "Yellow") (menu-ba=
r-lines . 1) (foreground-color . "Black") (background-color . "LightSteelBl=
ue") (top . 0) (left . 0) (unsplittable . t) (user-position . t) (vertical-=
scroll-bars . right) (height . 14) (width . 80) (unsplittable . t)))
  make-frame(((font . "-*-Lucida Console-normal-r-*-*-14-112-96-96-c-*-iso8=
859-1") (width . 80) (height . 14) (mouse-color . "Yellow") (cursor-color .=
 "Yellow") (menu-bar-lines . 1) (foreground-color . "Black") (background-co=
lor . "LightSteelBlue") (top . 0) (left . 0) (unsplittable . t) (user-posit=
ion . t) (vertical-scroll-bars . right) (height . 14) (width . 80) (unsplit=
table . t)))
  special-display-popup-frame(#<buffer *Backtrace*> nil)
  funcall(special-display-popup-frame #<buffer *Backtrace*> nil)
  (lambda (buffer _alist) (funcall special-display-function buffer (quote n=
il)))(#<buffer *Backtrace*> ((previous-window . #<window 48>)))
  display-buffer(#<buffer *Backtrace*> ((display-buffer-reuse-window displa=
y-buffer-in-previous-window) (previous-window . #<window 48>)))
  pop-to-buffer(#<buffer *Backtrace*> ((display-buffer-reuse-window display=
-buffer-in-previous-window) (previous-window . #<window 48>)))
  debug()
  (progn (debug))
  (if (icicle-string-match-p "ici" filname) (progn (debug)))
  (lambda (G50106 G50107 filname) (if (icicle-string-match-p "ici" filname)=
 (progn (debug))) (and (funcall predicate filname) (or find-file-run-dired =
(not (file-directory-p filname))) (let* ((buf (find-file-noselect filname))=
 (found (save-current-buffer (set-buffer buf) (message "Matching buffer con=
tents...") (save-excursion (goto-char ...) (re-search-forward ... nil t))))=
) (if (and (boundp (quote existing-bufs)) (boundp (quote new-bufs--to-kill)=
) (not (memq buf existing-bufs))) (progn (add-to-list (quote new-bufs--to-k=
ill) buf))) found)))(--content-pat-- --file-pat-- "icicles.el~")
  apply((lambda (G50106 G50107 filname) (if (icicle-string-match-p "ici" fi=
lname) (progn (debug))) (and (funcall predicate filname) (or find-file-run-=
dired (not (file-directory-p filname))) (let* ((buf (find-file-noselect fil=
name)) (found (save-current-buffer (set-buffer buf) (message "Matching buff=
er contents...") (save-excursion (goto-char ...) (re-search-forward ... nil=
 t))))) (if (and (boundp (quote existing-bufs)) (boundp (quote new-bufs--to=
-kill)) (not (memq buf existing-bufs))) (progn (add-to-list (quote new-bufs=
--to-kill) buf))) found))) --content-pat-- --file-pat-- "icicles.el~")
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G50106 G50107 filname)=
 (if (icicle-string-match-p "ici" filname) (progn (debug))) (and (funcall p=
redicate filname) (or find-file-run-dired (not (file-directory-p filname)))=
 (let* ((buf ...) (found ...)) (if (and ... ... ...) (progn ...)) found))))=
 (quote --content-pat--) (quote --file-pat--) --cl-rest--))("icicles.el~")
  file-name-completion("ici" "c:/drews-lisp-20/" (lambda (&rest --cl-rest--=
) (apply (quote (lambda (G50106 G50107 filname) (if (icicle-string-match-p =
"ici" filname) (progn (debug))) (and (funcall predicate filname) (or find-f=
ile-run-dired (not (file-directory-p filname))) (let* ((buf ...) (found ...=
)) (if (and ... ... ...) (progn ...)) found)))) (quote --content-pat--) (qu=
ote --file-pat--) --cl-rest--)))
  #[0 "..." ["c:/drews-lisp-20/ici" (lambda (&rest --cl-rest--) (apply (quo=
te (lambda (G50106 G50107 filname) (if (icicle-string-match-p "ici" filname=
) (progn ...)) (and (funcall predicate filname) (or find-file-run-dired ...=
) (let* ... ... found)))) (quote --content-pat--) (quote --file-pat--) --cl=
-rest--)) nil start string regexp metadata (metadata (category . file)) "\\=
`~[^/\\]*\\'" nil t string-match completion-table-with-context "~" mapcar #=
[257 "\211\300P\207" ["/"] 3 "\n\n(fn U)"] system-users 1 boundaries file-n=
ame-directory "/" lambda zerop file-exists-p file-name-nondirectory file-na=
me-completion file-name-all-completions (nil file-exists-p) file-directory-=
p #[257 "..." [0 47] 4 "\n\n(fn S)"] expand-file-name inhibit-changing-matc=
h-data default-directory] 10 "\n\n(fn)"]()
  funcall(#[...]" ["c:/drews-lisp-20/ici" (lambda (&rest --cl-rest--) (appl=
y (quote (lambda (G50106 G50107 filname) (if (icicle-string-match-p "ici" f=
ilname) (progn ...)) (and (funcall predicate filname) (or find-file-run-dir=
ed ...) (let* ... ... found)))) (quote --content-pat--) (quote --file-pat--=
) --cl-rest--)) nil start string regexp metadata (metadata (category . file=
)) "\\`~[^/\\]*\\'" nil t string-match completion-table-with-context "~" ma=
pcar #[257 "\211\300P\207" ["/"] 3 "\n\n(fn U)"] system-users 1 boundaries =
file-name-directory "/" lambda zerop file-exists-p file-name-nondirectory f=
ile-name-completion file-name-all-completions (nil file-exists-p) file-dire=
ctory-p #[...] expand-file-name inhibit-changing-match-data default-directo=
ry] 10 "\n\n(fn)"])
  completion-file-name-table("c:/drews-lisp-20/ici" (lambda (&rest --cl-res=
t--) (apply (quote (lambda (G50106 G50107 filname) (if (icicle-string-match=
-p "ici" filname) (progn (debug))) (and (funcall predicate filname) (or fin=
d-file-run-dired (not (file-directory-p filname))) (let* ((buf ...) (found =
...)) (if (and ... ... ...) (progn ...)) found)))) (quote --content-pat--) =
(quote --file-pat--) --cl-rest--)) nil)
  try-completion("c:/drews-lisp-20/ici" completion-file-name-table (lambda =
(&rest --cl-rest--) (apply (quote (lambda (G50106 G50107 filname) (if (icic=
le-string-match-p "ici" filname) (progn (debug))) (and (funcall predicate f=
ilname) (or find-file-run-dired (not (file-directory-p filname))) (let* ((b=
uf ...) (found ...)) (if (and ... ... ...) (progn ...)) found)))) (quote --=
content-pat--) (quote --file-pat--) --cl-rest--)))
  completion--file-name-table("c:/drews-lisp-20/ici" (lambda (&rest --cl-re=
st--) (apply (quote (lambda (G50106 G50107 filname) (if (icicle-string-matc=
h-p "ici" filname) (progn (debug))) (and (funcall predicate filname) (or fi=
nd-file-run-dired (not (file-directory-p filname))) (let* ((buf ...) (found=
 ...)) (if (and ... ... ...) (progn ...)) found)))) (quote --content-pat--)=
 (quote --file-pat--) --cl-rest--)) nil)
  complete-with-action(nil completion--file-name-table "c:/drews-lisp-20/ic=
i" (lambda (&rest --cl-rest--) (apply (quote (lambda (G50106 G50107 filname=
) (if (icicle-string-match-p "ici" filname) (progn (debug))) (and (funcall =
predicate filname) (or find-file-run-dired (not (file-directory-p filname))=
) (let* ((buf ...) (found ...)) (if (and ... ... ...) (progn ...)) found)))=
) (quote --content-pat--) (quote --file-pat--) --cl-rest--)))
  #[...](completion--file-name-table)
  #[...]()
  funcall(#[...])
  completion--some(#[...] (completion--embedded-envvar-table completion--fi=
le-name-table))
  read-file-name-internal("c:/drews-lisp-20/ici" (lambda (&rest --cl-rest--=
) (apply (quote (lambda (G50106 G50107 filname) (if (icicle-string-match-p =
"ici" filname) (progn (debug))) (and (funcall predicate filname) (or find-f=
ile-run-dired (not (file-directory-p filname))) (let* ((buf ...) (found ...=
)) (if (and ... ... ...) (progn ...)) found)))) (quote --content-pat--) (qu=
ote --file-pat--) --cl-rest--)) nil)
  (progn (read-file-name-internal (symbol-value --cl-file-pat--) (symbol-va=
lue (quote --cl-content-pred--)) completion-mode))
  (let ((--cl-content-pred-- (if (equal "" (symbol-value --cl-content-pat--=
)) predicate (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote =
apply) (list (quote quote) (function ...)) (list (quote quote) --cl-content=
-pat--) (list (quote quote) --cl-file-pat--) (quote --cl-rest--)))))) (prog=
n (read-file-name-internal (symbol-value --cl-file-pat--) (symbol-value (qu=
ote --cl-content-pred--)) completion-mode)))
  (progn (defvar --cl-content-pred--) (let ((--cl-content-pred-- (if (equal=
 "" (symbol-value --cl-content-pat--)) predicate (list (quote lambda) (quot=
e (&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... --cl-co=
ntent-pat--) (list ... --cl-file-pat--) (quote --cl-rest--)))))) (progn (re=
ad-file-name-internal (symbol-value --cl-file-pat--) (symbol-value (quote -=
-cl-content-pred--)) completion-mode))))
  (progn (progn (defvar --cl-content-pred--) (let ((--cl-content-pred-- (if=
 (equal "" (symbol-value --cl-content-pat--)) predicate (list (quote lambda=
) (quote ...) (list ... ... ... ... ...))))) (progn (read-file-name-interna=
l (symbol-value --cl-file-pat--) (symbol-value (quote --cl-content-pred--))=
 completion-mode)))))
  (let ((--cl-content-pat-- (make-symbol "--content-pat--"))) (let* ((v --c=
l-content-pat--)) (set v (let ((icicle-list-use-nth-parts (quote (2)))) (ic=
icle-transform-multi-completion strg)))) (progn (progn (defvar --cl-content=
-pred--) (let ((--cl-content-pred-- (if (equal "" ...) predicate (list ... =
... ...)))) (progn (read-file-name-internal (symbol-value --cl-file-pat--) =
(symbol-value (quote --cl-content-pred--)) completion-mode))))))
  (progn (let ((--cl-content-pat-- (make-symbol "--content-pat--"))) (let* =
((v --cl-content-pat--)) (set v (let ((icicle-list-use-nth-parts (quote ...=
))) (icicle-transform-multi-completion strg)))) (progn (progn (defvar --cl-=
content-pred--) (let ((--cl-content-pred-- (if ... predicate ...))) (progn =
(read-file-name-internal (symbol-value --cl-file-pat--) (symbol-value ...) =
completion-mode)))))))
  (let ((--cl-file-pat-- (make-symbol "--file-pat--"))) (let* ((v --cl-file=
-pat--)) (set v (let ((icicle-list-use-nth-parts (quote (1)))) (icicle-tran=
sform-multi-completion strg)))) (progn (let ((--cl-content-pat-- (make-symb=
ol "--content-pat--"))) (let* ((v --cl-content-pat--)) (set v (let ((icicle=
-list-use-nth-parts ...)) (icicle-transform-multi-completion strg)))) (prog=
n (progn (defvar --cl-content-pred--) (let ((--cl-content-pred-- ...)) (pro=
gn (read-file-name-internal ... ... completion-mode))))))))
  icicle-find-file-of-content-multi-complete(#("c:/drews-lisp-20/ici=07\nde=
fmacro" 20 22 (display "\n")) file-exists-p nil)
  try-completion(#("c:/drews-lisp-20/ici=07\ndefmacro" 20 22 (display "\n")=
) icicle-find-file-of-content-multi-complete file-exists-p)
  icicle-prefix-any-file-name-candidates-p(#("c:/drews-lisp-20/ici=07\ndefm=
acro" 20 22 (display "\n")))
  byte-code("..." [icicle-current-completion-mode input apropos icicle-file=
-name-input-p icicle-apropos-any-file-name-candidates-p icicle-apropos-any-=
candidates-p icicle-prefix-any-file-name-candidates-p icicle-prefix-any-can=
didates-p] 2)
  icicle-any-candidates-p(#("c:/drews-lisp-20/ici=07\ndefmacro" 20 22 (disp=
lay "\n")))
  icicle-highlight-input-noncompletion()
  icicle-call-then-update-Completions(self-insert-command 1)
  icicle-self-insert(1)
  call-interactively(icicle-self-insert nil nil)
  icicle-ORIG-read-from-minibuffer(#("File or directory: " 0 1 (icicle-fanc=
y-candidates t)) ("c:/drews-lisp-20/" . 18) (keymap (keymap (24 keymap (97 =
keymap (97 lambda nil (interactive) (if (not icicle-last-completion-candida=
te) (icicle-msg-maybe-in-minibuffer "No current candidate - cycle to one") =
(let (... ... ...) (if ... ... ...) (when ... ... ...)))) (45 lambda nil (i=
nteractive) (if (not icicle-last-completion-candidate) (icicle-msg-maybe-in=
-minibuffer "No current candidate - cycle to one") (let (... ... ...) (if .=
.. ... ...) (when ... ... ...)))) (43 lambda nil (interactive) (if (not ici=
cle-last-completion-candidate) (icicle-msg-maybe-in-minibuffer "No current =
candidate - cycle to one") (let (... ... ...) (if ... ... ...) (when ... ..=
. ...))))) (109 . icicle-bookmark-file-other-window)) (3 keymap (43 . icicl=
e-make-directory)) (C-backspace . icicle-up-directory) (15 . 1on1-fit-minib=
uffer-frame) (32)) keymap (3 keymap (43 . icicle-make-directory)) (C-backsp=
ace . icicle-up-directory) (24 keymap (97 keymap (97 lambda nil (interactiv=
e) (if (not icicle-last-completion-candidate) (icicle-msg-maybe-in-minibuff=
er "No current candidate - cycle to one") (let ((mct-cand ...) (cand ...) (=
tags ...)) (if (memq ... ...) (funcall ... cand tags nil nil ...) (bmkp-boo=
kmark-a-file cand nil nil ...)) (when (and icicle-full-cand-fn ...) (icicle=
-replace-mct-cand-in-mct mct-cand ...) (let ... ...))))) (45 lambda nil (in=
teractive) (if (not icicle-last-completion-candidate) (icicle-msg-maybe-in-=
minibuffer "No current candidate - cycle to one") (let ((mct-cand ...) (can=
d ...) (tags ...)) (if (memq ... ...) (funcall ... cand tags nil nil ...) (=
bmkp-bookmark-a-file cand nil nil ...)) (when (and icicle-full-cand-fn ...)=
 (icicle-replace-mct-cand-in-mct mct-cand ...) (let ... ...))))) (43 lambda=
 nil (interactive) (if (not icicle-last-completion-candidate) (icicle-msg-m=
aybe-in-minibuffer "No current candidate - cycle to one") (let ((mct-cand .=
..) (cand ...) (tags ...)) (if (memq ... ...) (funcall ... cand tags nil ni=
l ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (and icicle-full-cand=
-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) (let ... ...)))))) (=
82) (70) (13) (77) (109 . icicle-bookmark-file-other-window)) (27 keymap (3=
3554438 . icicle-read+insert-file-name) (33554435 . icicle-completing-read+=
insert)) (7 . icicle-abort-recursive-edit) (10 . icicle-insert-newline-in-m=
inibuffer) (13 . minibuffer-complete-and-exit) keymap (3 keymap (43 . icicl=
e-make-directory)) (C-backspace . icicle-up-directory) (24 keymap (97 keyma=
p (97 lambda nil (interactive) (if (not icicle-last-completion-candidate) (=
icicle-msg-maybe-in-minibuffer "No current candidate - cycle to one") (let =
((mct-cand ...) (cand ...) (tags ...)) (if (memq ... ...) (funcall ... cand=
 tags nil nil ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (and icic=
le-full-cand-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) (let ...=
 ...))))) (45 lambda nil (interactive) (if (not icicle-last-completion-cand=
idate) (icicle-msg-maybe-in-minibuffer "No current candidate - cycle to one=
") (let ((mct-cand ...) (cand ...) (tags ...)) (if (memq ... ...) (funcall =
... cand tags nil nil ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (=
and icicle-full-cand-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) =
(let ... ...))))) (43 lambda nil (interactive) (if (not icicle-last-complet=
ion-candidate) (icicle-msg-maybe-in-minibuffer "No current candidate - cycl=
e to one") (let ((mct-cand ...) (cand ...) (tags ...)) (if (memq ... ...) (=
funcall ... cand tags nil nil ...) (bmkp-bookmark-a-file cand nil nil ...))=
 (when (and icicle-full-cand-fn ...) (icicle-replace-mct-cand-in-mct mct-ca=
nd ...) (let ... ...)))))) (82) (70) (13) (77) (109 . icicle-bookmark-file-=
other-window) (45 . icicle-doremi-zoom-Completions+) (35 . icicle-doremi-in=
crement-max-candidates+) (124 . icicle-doremi-inter-candidates-min-spaces+)=
 (119 . icicle-doremi-candidate-width-factor+) (116 . icicle-cycle-image-fi=
le-thumbnail) (1 . icicle-toggle-annotation) (58 . icicle-toggle-network-dr=
ives-as-remote) (46 . icicle-dispatch-C-x\.)) (46 . icicle-insert-dot-comma=
nd) (22 . icicle-scroll-Completions-forward) (S-backspace . icicle-apropos-=
complete-and-widen) (S-return . icicle-apropos-complete-and-exit) (33554464=
 . icicle-apropos-complete-and-narrow) (33554433 . icicle-toggle-case-sensi=
tivity) (30 . icicle-dispatch-C-^) (67108898 . icicle-toggle-expand-to-comm=
on-match) (67108899 . icicle-cycle-incremental-completion) (67108910 . icic=
le-dispatch-C-\.) (67108900 . icicle-toggle-transforming) (67108924 . icicl=
e-candidate-set-retrieve-more) (67108960 . icicle-toggle-regexp-quote) (671=
08908 . icicle-change-sort-order) (67108922 . icicle-candidate-set-define) =
(67108901 . icicle-candidate-set-swap) (67108987 . icicle-candidate-set-ret=
rieve-persistent) (67108989 . icicle-candidate-set-save-persistently) (6710=
8905 . icicle-candidate-set-save-more-selected) (67108904 . icicle-next-TAB=
-completion-method) (67108926 . icicle-candidate-set-save-more) (67108906 .=
 icicle-candidate-set-intersection) (67108907 . icicle-candidate-set-union)=
 (67108909 . icicle-candidate-set-difference) (67108990 . icicle-candidate-=
set-complement) (33554444 . icicle-retrieve-next-input) (12 . icicle-retrie=
ve-previous-input) (insert . icicle-save/unsave-candidate) (C-insert . icic=
le-switch-to-Completions-buf) (S-pause . icicle-toggle-highlight-saved-cand=
idates) (C-pause . icicle-toggle-highlight-historical-candidates) (M-pause =
. icicle-keep-only-past-inputs) (67108988 . icicle-all-candidates-alt-actio=
n) (67108897 . icicle-all-candidates-action) (23 . icicle-kill-region) (S-d=
elete . icicle-delete-candidate-object) ...) nil file-name-history "c:/drew=
s-lisp-20/" nil)
  read-from-minibuffer(#("File or directory: " 0 1 (icicle-fancy-candidates=
 t)) ("c:/drews-lisp-20/" . 18) (keymap (keymap (24 keymap (97 keymap (97 l=
ambda nil (interactive) (if (not icicle-last-completion-candidate) (icicle-=
msg-maybe-in-minibuffer "No current candidate - cycle to one") (let (... ..=
. ...) (if ... ... ...) (when ... ... ...)))) (45 lambda nil (interactive) =
(if (not icicle-last-completion-candidate) (icicle-msg-maybe-in-minibuffer =
"No current candidate - cycle to one") (let (... ... ...) (if ... ... ...) =
(when ... ... ...)))) (43 lambda nil (interactive) (if (not icicle-last-com=
pletion-candidate) (icicle-msg-maybe-in-minibuffer "No current candidate - =
cycle to one") (let (... ... ...) (if ... ... ...) (when ... ... ...))))) (=
109 . icicle-bookmark-file-other-window)) (3 keymap (43 . icicle-make-direc=
tory)) (C-backspace . icicle-up-directory) (15 . 1on1-fit-minibuffer-frame)=
 (32)) keymap (3 keymap (43 . icicle-make-directory)) (C-backspace . icicle=
-up-directory) (24 keymap (97 keymap (97 lambda nil (interactive) (if (not =
icicle-last-completion-candidate) (icicle-msg-maybe-in-minibuffer "No curre=
nt candidate - cycle to one") (let ((mct-cand ...) (cand ...) (tags ...)) (=
if (memq ... ...) (funcall ... cand tags nil nil ...) (bmkp-bookmark-a-file=
 cand nil nil ...)) (when (and icicle-full-cand-fn ...) (icicle-replace-mct=
-cand-in-mct mct-cand ...) (let ... ...))))) (45 lambda nil (interactive) (=
if (not icicle-last-completion-candidate) (icicle-msg-maybe-in-minibuffer "=
No current candidate - cycle to one") (let ((mct-cand ...) (cand ...) (tags=
 ...)) (if (memq ... ...) (funcall ... cand tags nil nil ...) (bmkp-bookmar=
k-a-file cand nil nil ...)) (when (and icicle-full-cand-fn ...) (icicle-rep=
lace-mct-cand-in-mct mct-cand ...) (let ... ...))))) (43 lambda nil (intera=
ctive) (if (not icicle-last-completion-candidate) (icicle-msg-maybe-in-mini=
buffer "No current candidate - cycle to one") (let ((mct-cand ...) (cand ..=
.) (tags ...)) (if (memq ... ...) (funcall ... cand tags nil nil ...) (bmkp=
-bookmark-a-file cand nil nil ...)) (when (and icicle-full-cand-fn ...) (ic=
icle-replace-mct-cand-in-mct mct-cand ...) (let ... ...)))))) (82) (70) (13=
) (77) (109 . icicle-bookmark-file-other-window)) (27 keymap (33554438 . ic=
icle-read+insert-file-name) (33554435 . icicle-completing-read+insert)) (7 =
. icicle-abort-recursive-edit) (10 . icicle-insert-newline-in-minibuffer) (=
13 . minibuffer-complete-and-exit) keymap (3 keymap (43 . icicle-make-direc=
tory)) (C-backspace . icicle-up-directory) (24 keymap (97 keymap (97 lambda=
 nil (interactive) (if (not icicle-last-completion-candidate) (icicle-msg-m=
aybe-in-minibuffer "No current candidate - cycle to one") (let ((mct-cand .=
..) (cand ...) (tags ...)) (if (memq ... ...) (funcall ... cand tags nil ni=
l ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (and icicle-full-cand=
-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) (let ... ...))))) (4=
5 lambda nil (interactive) (if (not icicle-last-completion-candidate) (icic=
le-msg-maybe-in-minibuffer "No current candidate - cycle to one") (let ((mc=
t-cand ...) (cand ...) (tags ...)) (if (memq ... ...) (funcall ... cand tag=
s nil nil ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (and icicle-f=
ull-cand-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) (let ... ...=
))))) (43 lambda nil (interactive) (if (not icicle-last-completion-candidat=
e) (icicle-msg-maybe-in-minibuffer "No current candidate - cycle to one") (=
let ((mct-cand ...) (cand ...) (tags ...)) (if (memq ... ...) (funcall ... =
cand tags nil nil ...) (bmkp-bookmark-a-file cand nil nil ...)) (when (and =
icicle-full-cand-fn ...) (icicle-replace-mct-cand-in-mct mct-cand ...) (let=
 ... ...)))))) (82) (70) (13) (77) (109 . icicle-bookmark-file-other-window=
) (45 . icicle-doremi-zoom-Completions+) (35 . icicle-doremi-increment-max-=
candidates+) (124 . icicle-doremi-inter-candidates-min-spaces+) (119 . icic=
le-doremi-candidate-width-factor+) (116 . icicle-cycle-image-file-thumbnail=
) (1 . icicle-toggle-annotation) (58 . icicle-toggle-network-drives-as-remo=
te) (46 . icicle-dispatch-C-x\.)) (46 . icicle-insert-dot-command) (22 . ic=
icle-scroll-Completions-forward) (S-backspace . icicle-apropos-complete-and=
-widen) (S-return . icicle-apropos-complete-and-exit) (33554464 . icicle-ap=
ropos-complete-and-narrow) (33554433 . icicle-toggle-case-sensitivity) (30 =
. icicle-dispatch-C-^) (67108898 . icicle-toggle-expand-to-common-match) (6=
7108899 . icicle-cycle-incremental-completion) (67108910 . icicle-dispatch-=
C-\.) (67108900 . icicle-toggle-transforming) (67108924 . icicle-candidate-=
set-retrieve-more) (67108960 . icicle-toggle-regexp-quote) (67108908 . icic=
le-change-sort-order) (67108922 . icicle-candidate-set-define) (67108901 . =
icicle-candidate-set-swap) (67108987 . icicle-candidate-set-retrieve-persis=
tent) (67108989 . icicle-candidate-set-save-persistently) (67108905 . icicl=
e-candidate-set-save-more-selected) (67108904 . icicle-next-TAB-completion-=
method) (67108926 . icicle-candidate-set-save-more) (67108906 . icicle-cand=
idate-set-intersection) (67108907 . icicle-candidate-set-union) (67108909 .=
 icicle-candidate-set-difference) (67108990 . icicle-candidate-set-compleme=
nt) (33554444 . icicle-retrieve-next-input) (12 . icicle-retrieve-previous-=
input) (insert . icicle-save/unsave-candidate) (C-insert . icicle-switch-to=
-Completions-buf) (S-pause . icicle-toggle-highlight-saved-candidates) (C-p=
ause . icicle-toggle-highlight-historical-candidates) (M-pause . icicle-kee=
p-only-past-inputs) (67108988 . icicle-all-candidates-alt-action) (67108897=
 . icicle-all-candidates-action) (23 . icicle-kill-region) (S-delete . icic=
le-delete-candidate-object) ...) nil file-name-history "c:/drews-lisp-20/" =
nil)
  icicle-lisp-vanilla-completing-read(#("File or directory: " 0 1 (icicle-f=
ancy-candidates t)) icicle-find-file-of-content-multi-complete file-exists-=
p confirm-after-completion "c:/drews-lisp-20/" file-name-history "c:/drews-=
lisp-20/" nil)
  byte-code(..." [prompt collection predicate require-match initial-input h=
ist-m@%=3D!$+&^*z icicle-lisp-vanilla-completing-read def inherit-input-met=
hod] 9)
  completing-read(#("File or directory: " 0 1 (icicle-fancy-candidates t)) =
icicle-find-file-of-content-multi-complete file-exists-p confirm-after-comp=
letion "c:/drews-lisp-20/" file-name-history "c:/drews-lisp-20/")
  read-file-name-default(#("File or directory: " 0 1 (icicle-fancy-candidat=
es t)) nil "c:/drews-lisp-20/" confirm-after-completion nil nil)
  byte-code(..." [icicle-orig-read-file-name-fn prompt dir default-filename=
 require-match initial-input read-file-name predicate] 7)
  byte-code("..." [result icicle-read-top (byte-code "..." [icicle-orig-rea=
d-file-name-fn prompt dir default-filename require-match initial-input read=
-file-name predicate] 7)] 2)
  icicle-read-file-name-1(#("File or directory: " 0 1 (icicle-fancy-candida=
tes t)) nil "c:/drews-lisp-20/" confirm-after-completion nil nil)
  icicle-read-file-name(#("File or directory: " 0 1 (icicle-fancy-candidate=
s t)) nil "c:/drews-lisp-20/" confirm-after-completion nil nil)
  read-file-name(#("File or directory: " 0 1 (icicle-fancy-candidates t)) n=
il "c:/drews-lisp-20/" confirm-after-completion nil nil)
  #[...]()
  funcall(#...])
  icicle-find-file-of-content-other-window()
  (if arg (if (wholenump (prefix-numeric-value arg)) (let ((current-prefix-=
arg nil)) (icicle-find-file-absolute-other-window)) (icicle-find-file-absol=
ute-other-window)) (icicle-find-file-of-content-other-window))
  icicle-file-other-window(nil)
  call-interactively(icicle-file-other-window nil nil)
 
 
 
In GNU Emacs 24.3.50.1 (i386-mingw-nt5.1.2600)
 of 2012-12-03 on MS-W7-DANI
Bzr revision: 111077 agustin.martin@hispalinux.es-20121203172342-ifsebjmhks=
k28qa9
Windowing system distributor `Microsoft Corp.', version 5.1.2600
Configured using:
 `configure --with-gcc (4.7) --no-opt --enable-checking --cflags
 -Ic:/emacs/libs/libXpm-3.5.10/include -Ic:/emacs/libs/libXpm-3.5.10/src
 -Ic:/emacs/libs/libpng-1.2.37-lib/include -Ic:/emacs/libs/zlib-1.2.5
 -Ic:/emacs/libs/giflib-4.1.4-1-lib/include
 -Ic:/emacs/libs/jpeg-6b-4-lib/include
 -Ic:/emacs/libs/tiff-3.8.2-1-lib/include
 -Ic:/emacs/libs/libxml2-2.7.8-w32-bin/include/libxml2
 -Ic:/emacs/libs/gnutls-3.0.9-w32-bin/include
 -Ic:/emacs/libs/libiconv-1.9.2-1-lib/include'
 

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Eli Zaretskii]

> From: "Drew Adams" <drew.adams@oracle.com>
> Date: Fri, 7 Dec 2012 08:30:52 -0800
> 
> This is with my setup, not emacs -Q.
> 
> I added a call to `(debug)' in a section of my code that is eval'd during
> application of a completion function for file names.  Below is what happened.
> 
> What should have happened: *Backtrace* opens in a separate, special-display
> frame (because "*Backtrace*" matches my value of `special-display-regexps').

Is it possible to have a recipe starting with "emacs -Q"

> Apparently, when Emacs tried to create the frame it ran into some problems in
> `x-create-frame'.  Why `x-create-frame' would call `directory-files' on
> "~/.emacs.d/auto-save-list/" I have no idea.

Evidently, because of this:

  (and auto-save-list-file-prefix (file-directory-p (file-name-directory auto-save-list-file-prefix)) (directory-files (file-name-directory auto-save-list-file-prefix) nil (concat "\\`" (regexp-quote (file-name-nondirectory auto-save-list-file-prefix))) t))

which is a fragment from menu-bar.el:

    (bindings--define-key menu [recover-session]
      '(menu-item "Recover Crashed Session" recover-session
                  :enable
                  (and auto-save-list-file-prefix
                       (file-directory-p
                        (file-name-directory auto-save-list-file-prefix))
                       (directory-files
                        (file-name-directory auto-save-list-file-prefix)
                        nil
                        (concat "\\`"
                                (regexp-quote
                                 (file-name-nondirectory
                                  auto-save-list-file-prefix)))
                        t))
                  :help "Recover edits from a crashed session"))

> And why that should raise this error, and what this error means, I
> also have no idea.  This means nothing to me - what is going on
> here?

My crystal ball says that directory traversal functions were invoked
recursively, somehow.  This is not supported on Windows, or at least
that's my reading of the code.

However, it's hard to be sure without a test case.

> BTW, why is Emacs suddenly formatting the `report-emacs-bug' text I wrote?  I
> copied (`M-w') and yanked (`C-y') the backtrace into that report buffer, then
> pasted, after `C-c C-c', from the clipboard into my mail client (Outlook), as
> usual.  But now it seems that each line gets split at the same position and
> `=<newline>' is added.
> 
> Is this a new feature?  Is there a way to turn it off or otherwise control it?
> Why `='?

It's called "quoted-printable".  I have no idea how Emacs decided to
do that.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

> > This is with my setup, not emacs -Q.
>
> Is it possible to have a recipe starting with "emacs -Q"

No, sorry.

> > Apparently, when Emacs tried to create the frame it ran into
> > some problems in `x-create-frame'.  Why `x-create-frame' would
> > call `directory-files' on "~/.emacs.d/auto-save-list/" I have no idea.
> 
> Evidently, because of this:
> 
> (and auto-save-list-file-prefix (file-directory-p 
>                                   (file-name-directory
>                                     auto-save-list-file-prefix)) 
...
> which is a fragment from menu-bar.el:
> 
>     (bindings--define-key menu [recover-session]
>       '(menu-item "Recover Crashed Session" recover-session
>                   :enable
>                   (and auto-save-list-file-prefix
...
> > And why that should raise this error, and what this error means, I
> > also have no idea.  This means nothing to me - what is going on
> > here?
> 
> My crystal ball says that directory traversal functions were invoked
> recursively, somehow.  This is not supported on Windows, or at least
> that's my reading of the code.

Can you elaborate a bit on what you mean by directory traversal functions being
invoked recursively?  I have no idea what you mean.

> However, it's hard to be sure without a test case.

Sorry about that.

> > now it seems that each line gets split at the 
> > same position and `=<newline>' is added.
> > 
> > Is this a new feature?  Is there a way to turn it off or 
> > otherwise control it? Why `='?
> 
> It's called "quoted-printable".  I have no idea how Emacs decided to
> do that.

That info might help bug #13116.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Eli Zaretskii]

> From: "Drew Adams" <drew.adams@oracle.com>
> Cc: <13113@debbugs.gnu.org>
> Date: Fri, 7 Dec 2012 10:53:41 -0800
> 
> > (and auto-save-list-file-prefix (file-directory-p 
> >                                   (file-name-directory
> >                                     auto-save-list-file-prefix)) 
> ...
> > which is a fragment from menu-bar.el:
> > 
> >     (bindings--define-key menu [recover-session]
> >       '(menu-item "Recover Crashed Session" recover-session
> >                   :enable
> >                   (and auto-save-list-file-prefix
> ...
> > > And why that should raise this error, and what this error means, I
> > > also have no idea.  This means nothing to me - what is going on
> > > here?
> > 
> > My crystal ball says that directory traversal functions were invoked
> > recursively, somehow.  This is not supported on Windows, or at least
> > that's my reading of the code.
> 
> Can you elaborate a bit on what you mean by directory traversal functions being
> invoked recursively?

Well, the above snippet calls directory-files later on, which is the
call that barfed.  This is one API that invokes directory traversal --
a function that reads and returns all the file names in a directory.
Another example is directory-files-and-attributes.  Also, any
file-name completion needs to traverse a directory.  If some Lisp form
in the call stack also called one of these functions, you could see
this "no error" error, according to my reading of the code.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

> Well, the above snippet calls directory-files later on, which is the
> call that barfed.  This is one API that invokes directory traversal --
> a function that reads and returns all the file names in a directory.
> Another example is directory-files-and-attributes.  Also, any
> file-name completion needs to traverse a directory.  If some Lisp form
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> in the call stack also called one of these functions, you could see
> this "no error" error, according to my reading of the code.

Thx.  As I said:

>> I added a call to `(debug)' in a section of my code that is
>> eval'd during application of a completion function for file names.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Eli Zaretskii]

> From: "Drew Adams" <drew.adams@oracle.com>
> Cc: <13113@debbugs.gnu.org>
> Date: Fri, 7 Dec 2012 11:22:24 -0800
> 
> > Well, the above snippet calls directory-files later on, which is the
> > call that barfed.  This is one API that invokes directory traversal --
> > a function that reads and returns all the file names in a directory.
> > Another example is directory-files-and-attributes.  Also, any
> > file-name completion needs to traverse a directory.  If some Lisp form
>   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> > in the call stack also called one of these functions, you could see
> > this "no error" error, according to my reading of the code.
> 
> Thx.  As I said:
> 
> >> I added a call to `(debug)' in a section of my code that is
> >> eval'd during application of a completion function for file names.

Granted, I saw that, as I've skimmed through the backtrace you posted.

But having file-name completion in the backtrace does not yet mean the
recursive call I was talking about materialized.  What would need to
have happened is that in the middle of searching some directory, some
Lisp would need to be called that invoked another search in some
(maybe other) directory.  That is not a frequent occurrence.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

> > >> I added a call to `(debug)' in a section of my code that is
> > >> eval'd during application of a completion function for 
> file names.
> 
> Granted, I saw that, as I've skimmed through the backtrace you posted.
> 
> But having file-name completion in the backtrace does not yet mean the
> recursive call I was talking about materialized.  What would need to
> have happened is that in the middle of searching some directory, some
> Lisp would need to be called that invoked another search in some
> (maybe other) directory.  That is not a frequent occurrence.

I see.  I don't know whether that happened.  But could well have, within the
internal file-name completion code.  I was testing with input "~" (i.e. not a
file name in the default directory), so it might well have gotten to a point
where it checked the files in my home dir, though the completion was initiated
in a subdir.

That btw is not a rare occurrence at all.  Dunno whether it corresponds to what
you are describing, but it is not rare for a user to change the minibuffer input
to an absolute file name in some directory other than the one where the command
was invoked.

HTH, but I doubt it. ;-)

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Eli Zaretskii]

> From: "Drew Adams" <drew.adams@oracle.com>
> Cc: <13113@debbugs.gnu.org>
> Date: Fri, 7 Dec 2012 13:36:48 -0800
> 
> That btw is not a rare occurrence at all.

It is factually rare, because otherwise we would have such bug reports
all the time.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

> > That btw is not a rare occurrence at all.
> 
> It is factually rare, because otherwise we would have such bug reports
> all the time.

Depends what "it"/"that" is.  I was referring to a use case.  I added, "Dunno
whether it corresponds to what you are describing".  If the use case is common
and what you are describing is rare, it probably does not correspond.  Just
thought I'd mention it, in case it helps.

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Eli Zaretskii]

> From: "Drew Adams" <drew.adams@oracle.com>
> Cc: <13113@debbugs.gnu.org>
> Date: Fri, 7 Dec 2012 13:48:00 -0800
> 
> > > That btw is not a rare occurrence at all.
> > 
> > It is factually rare, because otherwise we would have such bug reports
> > all the time.
> 
> Depends what "it"/"that" is.  I was referring to a use case.

And I was referring to this kind of error:

   Debugger entered--Lisp error: (file-error "Opening directory" "no error" "c:/.emacs.d/auto-save-list/")
                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Lars Ingebrigtsen]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: "Drew Adams" <drew.adams@oracle.com>
>> Cc: <13113@debbugs.gnu.org>
>> Date: Fri, 7 Dec 2012 13:48:00 -0800
>> 
>> > > That btw is not a rare occurrence at all.
>> > 
>> > It is factually rare, because otherwise we would have such bug reports
>> > all the time.
>> 
>> Depends what "it"/"that" is.  I was referring to a use case.
>
> And I was referring to this kind of error:
>
>    Debugger entered--Lisp error: (file-error "Opening directory" "no error" "c:/.emacs.d/auto-save-list/")
>                                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Drew, this was a year ago.  Are you still seeing this odd problem?

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

bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???)

[Drew Adams]

> Drew, this was a year ago.  Are you still seeing this odd problem?

No.