From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#13113: 24.3.50; `x-create-frames' raises error trying to eval `directory-files' (???) Date: Fri, 7 Dec 2012 08:30:52 -0800 Message-ID: <26644883476B4EF2B79E867B8DFA30C2@us.oracle.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1354898458 9842 80.91.229.3 (7 Dec 2012 16:40:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 7 Dec 2012 16:40:58 +0000 (UTC) To: 13113@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Dec 07 17:41:11 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Th0z8-0004wJ-MU for geb-bug-gnu-emacs@m.gmane.org; Fri, 07 Dec 2012 17:41:11 +0100 Original-Received: from localhost ([::1]:55908 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0yw-0001JZ-9J for geb-bug-gnu-emacs@m.gmane.org; Fri, 07 Dec 2012 11:40:58 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:33256) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0yl-0001IX-If for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:40:56 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Th0yi-0008EI-9y for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:40:47 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:48884) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0yi-0008EE-69 for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:40:44 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1Th0z0-0006gD-O0 for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:41:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 07 Dec 2012 16:41:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 13113 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.135489845725665 (code B ref -1); Fri, 07 Dec 2012 16:41:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 7 Dec 2012 16:40:57 +0000 Original-Received: from localhost ([127.0.0.1]:59135 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Th0yt-0006fr-Cu for submit@debbugs.gnu.org; Fri, 07 Dec 2012 11:40:57 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:50088) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Th0yo-0006fh-KL for submit@debbugs.gnu.org; Fri, 07 Dec 2012 11:40:53 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Th0yP-0008AS-1E for submit@debbugs.gnu.org; Fri, 07 Dec 2012 11:40:31 -0500 Original-Received: from lists.gnu.org ([208.118.235.17]:37161) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0yO-0008A8-Tv for submit@debbugs.gnu.org; Fri, 07 Dec 2012 11:40:24 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:33193) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0yL-0001D7-J2 for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:40:24 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Th0yA-00084S-RE for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:40:21 -0500 Original-Received: from userp1040.oracle.com ([156.151.31.81]:18671) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Th0pI-0005M0-Nr for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2012 11:31:01 -0500 Original-Received: from ucsinet22.oracle.com (ucsinet22.oracle.com [156.151.31.94]) by userp1040.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id qB7GUwko003016 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Fri, 7 Dec 2012 16:30:59 GMT Original-Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by ucsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id qB7GUvIo004549 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Fri, 7 Dec 2012 16:30:58 GMT Original-Received: from abhmt111.oracle.com (abhmt111.oracle.com [141.146.116.63]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id qB7GUvYA015947 for ; Fri, 7 Dec 2012 10:30:57 -0600 Original-Received: from dradamslap1 (/10.159.136.44) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Fri, 07 Dec 2012 08:30:56 -0800 X-Mailer: Microsoft Office Outlook 11 Thread-Index: Ac3UmDltc3OcWBc+QdWZLi60DRR0ig== X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: ucsinet22.oracle.com [156.151.31.94] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:68113 Archived-At: 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 `=' 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(# nil) funcall(special-display-popup-frame # nil) (lambda (buffer _alist) (funcall special-display-function buffer (quote n= il)))(# ((previous-window . #))) display-buffer(# ((display-buffer-reuse-window displa= y-buffer-in-previous-window) (previous-window . #))) pop-to-buffer(# ((display-buffer-reuse-window display= -buffer-in-previous-window) (previous-window . #))) 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'