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#8510: 24.0.50; lexbind problem (apparently): void-variable symbol Date: Sat, 16 Apr 2011 08:44:06 -0700 Message-ID: <91283714968143F08104B9FBE71E825D@us.oracle.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1302970062 30988 80.91.229.12 (16 Apr 2011 16:07:42 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 16 Apr 2011 16:07:42 +0000 (UTC) To: 8510@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Apr 16 18:07:37 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QB824-0006rG-14 for geb-bug-gnu-emacs@m.gmane.org; Sat, 16 Apr 2011 18:07:36 +0200 Original-Received: from localhost ([::1]:54082 helo=lists2.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB823-0004p5-FU for geb-bug-gnu-emacs@m.gmane.org; Sat, 16 Apr 2011 12:07:35 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:46648) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB81y-0004ou-4s for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 12:07:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QB81u-0007qY-RI for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 12:07:30 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:48918) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB81u-0007qU-P6 for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 12:07:26 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1QB7gE-0002Ji-Q1; Sat, 16 Apr 2011 11:45:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 16 Apr 2011 15:45:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.13029686888863 (code B ref -1); Sat, 16 Apr 2011 15:45:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 16 Apr 2011 15:44:48 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB7fw-0002Ip-Mk for submit@debbugs.gnu.org; Sat, 16 Apr 2011 11:44:48 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB7fs-0002IV-1B for submit@debbugs.gnu.org; Sat, 16 Apr 2011 11:44:42 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QB7fj-0002ib-Hp for submit@debbugs.gnu.org; Sat, 16 Apr 2011 11:44:34 -0400 Original-Received: from lists.gnu.org ([140.186.70.17]:44616) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB7fj-0002iX-Fv for submit@debbugs.gnu.org; Sat, 16 Apr 2011 11:44:31 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:48774) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB7fg-0005yh-Do for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 11:44:31 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QB7fd-0002hk-0l for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 11:44:28 -0400 Original-Received: from rcsinet10.oracle.com ([148.87.113.121]:37502) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QB7fc-0002hT-Hl for bug-gnu-emacs@gnu.org; Sat, 16 Apr 2011 11:44:24 -0400 Original-Received: from rcsinet15.oracle.com (rcsinet15.oracle.com [148.87.113.117]) by rcsinet10.oracle.com (Switch-3.4.2/Switch-3.4.2) with ESMTP id p3GFiKhH008503 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Sat, 16 Apr 2011 15:44:21 GMT Original-Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by rcsinet15.oracle.com (Switch-3.4.2/Switch-3.4.1) with ESMTP id p3GFiJgc017837 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Sat, 16 Apr 2011 15:44:19 GMT Original-Received: from abhmt013.oracle.com (abhmt013.oracle.com [141.146.116.22]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p3GFiDee016074 for ; Sat, 16 Apr 2011 10:44:16 -0500 Original-Received: from dradamslap1 (/10.159.44.222) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 16 Apr 2011 08:44:10 -0700 X-Mailer: Microsoft Office Outlook 11 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6090 Thread-Index: Acv8TR4PmfPdygS8Tyuo97ZEQAIxAQ== X-Source-IP: acsmt358.oracle.com [141.146.40.158] X-Auth-Type: Internal IP X-CT-RefId: str=0001.0A090209.4DA9B954.000B:SCFSTAT5015188,ss=1,fgs=0 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Sat, 16 Apr 2011 11:45:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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:45834 Archived-At: I ran into this from my own code. This is not a recipe from emacs -Q. But I suspect that the problem is in the vanilla code, possibly in the C code for `documentation-property'. =20 Below is the backtrace from the error. Note that the void variable `symbol' seems to be in the vanilla code. It is not in my code, AFAICT. And there is no occurrence of `symbol' in the backtrace. The call that provokes the error is: (documentation-property 'debug-on-error 'variable-documentation t) However, if I eval that sexp at top level in emacs -Q using `M-:' no error is raised. And even if I eval (in emacs -Q, top level) the effective code that = provoked the error then no error is raised. This is that code, in effect. The last = clause of the `cond' is what gets executed (both in the case where the error is = raised and using emacs -Q): (let ((cand 'debug-on-error)) (cond ((get cand 'icicle-mode-line-help)) ; Help prop. ((fboundp cand) ; Function. (or (documentation cand t) ; Functon's doc string. (if (string-match ; Easy-menu item. "^menu-function-[0-9]+$" (symbol-name cand)) (format "%s" (symbol-function cand)) (format "Command `%s'" cand)))) ((facep cand) (face-documentation cand)) ; Face. (t (documentation-property ; Variable. cand 'variable-documentation t)))) My code does this not at top level but from the minibuffer (during `M-x set-variable'). Dunno whether that is pertinent to the error. HTH. =20 Debugger entered--Lisp error: (void-variable symbol) documentation-property(debug-on-error variable-documentation t) (cond ((get cand (quote icicle-mode-line-help))) ((fboundp cand) (or = (doc=3D umentation cand t) (if (string-match "^menu-function-[0-9]+$" = (symbol-name =3D cand)) (format "%s" (symbol-function cand)) (format "Command `%s'" = cand))))=3D ((facep cand) (face-documentation cand)) (t (documentation-property = cand (=3D quote variable-documentation) t))) (and cand (symbolp cand) (cond ((get cand (quote = icicle-mode-line-help)))=3D ((fboundp cand) (or (documentation cand t) (if (string-match = "^menu-functi=3D on-[0-9]+$" (symbol-name cand)) (format "%s" (symbol-function cand)) = (forma=3D t "Command `%s'" cand)))) ((facep cand) (face-documentation cand)) (t = (docu=3D mentation-property cand (quote variable-documentation) t)))) (cond ((and (stringp candidate) (get-text-property 0 (quote = icicle-mode-l=3D ine-help) candidate))) ((and cand (symbolp cand) (cond ((get cand (quote = ic=3D icle-mode-line-help))) ((fboundp cand) (or (documentation cand t) (if = (stri=3D ng-match "^menu-function-[0-9]+$" ...) (format "%s" ...) (format = "Command `=3D %s'" cand)))) ((facep cand) (face-documentation cand)) (t = (documentation-pr=3D operty cand (quote variable-documentation) t))))) ((and (consp cand) (eq = (c=3D ar cand) (quote lambda))) (format "%s" cand)) ((and (stringp cand) = (member =3D cand (quote ("Prefix key" "GO UP")))) cand) ((stringp candidate) (cond = ((an=3D d (or (icicle-file-name-input-p) icicle-abs-file-candidates) = (file-exists-p=3D candidate)) (if (get-file-buffer candidate) (concat = (icicle-help-line-buff=3D er (get-file-buffer candidate) (quote no-bytes-p)) " " = (icicle-help-line-fi=3D le cand)) (icicle-help-line-file candidate))) ((get-buffer candidate) = (icic=3D le-help-line-buffer candidate)) (t nil)))) (progn (when (stringp candidate) (setq candidate = (icicle-transform-multi-=3D completion candidate))) (cond ((and (stringp candidate) = (get-text-property =3D 0 (quote icicle-mode-line-help) candidate))) ((and cand (symbolp cand) = (con=3D d ((get cand (quote icicle-mode-line-help))) ((fboundp cand) (or = (documenta=3D tion cand t) (if ... ... ...))) ((facep cand) (face-documentation cand)) = (t=3D (documentation-property cand (quote variable-documentation) t))))) = ((and (=3D consp cand) (eq (car cand) (quote lambda))) (format "%s" cand)) ((and = (stri=3D ngp cand) (member cand (quote ("Prefix key" "GO UP")))) cand) ((stringp = can=3D didate) (cond ((and (or (icicle-file-name-input-p) = icicle-abs-file-candidat=3D es) (file-exists-p candidate)) (if (get-file-buffer candidate) (concat = (ici=3D cle-help-line-buffer ... ...) " " (icicle-help-line-file cand)) = (icicle-hel=3D p-line-file candidate))) ((get-buffer candidate) = (icicle-help-line-buffer c=3D andidate)) (t nil))))) (let* ((cand (cond ((consp lacarte-menu-items-alist) (cdr (assoc = candidat=3D e lacarte-menu-items-alist))) (icicle-completing-keys-p (if (string=3D3D = ".."=3D candidate) "GO UP" (let (...) (if ... "Prefix key" ...)))) ((or = (get-buffe=3D r candidate) (icicle-file-name-input-p) icicle-abs-file-candidates) = (icicle=3D -transform-multi-completion candidate)) (t (intern-soft = (icicle-transform-m=3D ulti-completion candidate))))) (doc (progn (when (stringp candidate) = (setq =3D candidate (icicle-transform-multi-completion candidate))) (cond ((and = (stri=3D ngp candidate) (get-text-property 0 ... candidate))) ((and cand (symbolp = ca=3D nd) (cond ... ... ... ...))) ((and (consp cand) (eq ... ...)) (format = "%s" =3D cand)) ((and (stringp cand) (member cand ...)) cand) ((stringp = candidate) (=3D cond (... ...) (... ...) (t nil)))))) (doc-line1 (and (stringp doc) = (string=3D -match ".+$" doc) (match-string 0 doc)))) (when doc-line1 = (put-text-propert=3D y 0 (length doc-line1) (quote face) (quote icicle-mode-line-help) = doc-line1=3D ) (icicle-show-in-mode-line doc-line1 (cond ((get-buffer-window = "*Completio=3D ns*" (quote visible)) "*Completions*") ((eq (current-buffer) = (window-buffer=3D (minibuffer-window))) (cadr (buffer-list))) (t (current-buffer)))))) (progn (let* ((cand (cond ((consp lacarte-menu-items-alist) (cdr = (assoc c=3D andidate lacarte-menu-items-alist))) (icicle-completing-keys-p (if = (string=3D =3D3D ".." candidate) "GO UP" (let ... ...))) ((or (get-buffer = candidate) (ic=3D icle-file-name-input-p) icicle-abs-file-candidates) = (icicle-transform-multi=3D -completion candidate)) (t (intern-soft = (icicle-transform-multi-completion =3D candidate))))) (doc (progn (when (stringp candidate) (setq candidate = (icicl=3D e-transform-multi-completion candidate))) (cond ((and ... ...)) ((and = cand =3D ... ...)) ((and ... ...) (format "%s" cand)) ((and ... ...) cand) = ((stringp=3D candidate) (cond ... ... ...))))) (doc-line1 (and (stringp doc) = (string-ma=3D tch ".+$" doc) (match-string 0 doc)))) (when doc-line1 = (put-text-property 0=3D (length doc-line1) (quote face) (quote icicle-mode-line-help) = doc-line1) (=3D icicle-show-in-mode-line doc-line1 (cond ((get-buffer-window = "*Completions*=3D " (quote visible)) "*Completions*") ((eq (current-buffer) (window-buffer = ..=3D .)) (cadr (buffer-list))) (t (current-buffer))))))) (if icicle-help-in-mode-line-flag (progn (let* ((cand (cond ((consp = lacar=3D te-menu-items-alist) (cdr ...)) (icicle-completing-keys-p (if ... "GO = UP" .=3D ..)) ((or ... ... icicle-abs-file-candidates) = (icicle-transform-multi-compl=3D etion candidate)) (t (intern-soft ...)))) (doc (progn (when (stringp = candid=3D ate) (setq candidate ...)) (cond (...) (...) (... ...) (... cand) (... = ...)=3D ))) (doc-line1 (and (stringp doc) (string-match ".+$" doc) (match-string = 0 =3D doc)))) (when doc-line1 (put-text-property 0 (length doc-line1) (quote = face=3D ) (quote icicle-mode-line-help) doc-line1) (icicle-show-in-mode-line = doc-li=3D ne1 (cond ((get-buffer-window "*Completions*" ...) "*Completions*") ((eq = ..=3D . ...) (cadr ...)) (t (current-buffer)))))))) (when icicle-help-in-mode-line-flag (let* ((cand (cond ((consp = lacarte-me=3D nu-items-alist) (cdr (assoc candidate lacarte-menu-items-alist))) = (icicle-c=3D ompleting-keys-p (if (string=3D3D ".." candidate) "GO UP" (let ... = ...))) ((o=3D r (get-buffer candidate) (icicle-file-name-input-p) = icicle-abs-file-candida=3D tes) (icicle-transform-multi-completion candidate)) (t (intern-soft = (icicle=3D -transform-multi-completion candidate))))) (doc (progn (when (stringp = candi=3D date) (setq candidate (icicle-transform-multi-completion candidate))) = (cond=3D ((and ... ...)) ((and cand ... ...)) ((and ... ...) (format "%s" cand)) = ((=3D and ... ...) cand) ((stringp candidate) (cond ... ... ...))))) = (doc-line1 (=3D and (stringp doc) (string-match ".+$" doc) (match-string 0 doc)))) (when = do=3D c-line1 (put-text-property 0 (length doc-line1) (quote face) (quote = icicle-=3D mode-line-help) doc-line1) (icicle-show-in-mode-line doc-line1 (cond = ((get-=3D buffer-window "*Completions*" (quote visible)) "*Completions*") ((eq = (curre=3D nt-buffer) (window-buffer ...)) (cadr (buffer-list))) (t = (current-buffer)))=3D )))) icicle-show-help-in-mode-line("debug-on-error") (progn (icicle-show-help-in-mode-line mode-line-help)) (if mode-line-help (progn (icicle-show-help-in-mode-line = mode-line-help))) (when mode-line-help (icicle-show-help-in-mode-line mode-line-help)) (let ((word-complete-input "") (input-before-completion = icicle-current-in=3D put) return-value) (unless (and (stringp icicle-current-input) (stringp = ici=3D cle-last-input) (string=3D3D icicle-current-input icicle-last-input) (or = (get=3D last-command (quote icicle-prefix-completing-command)) (get = last-command (=3D quote icicle-action-command))) (not word-p)) (unless (or = icicle-edit-update=3D -p (get-buffer-window "*Completions*" 0) no-display-p) (message = "Computing =3D completion candidates...")) (if (not word-p) (setq = icicle-completion-candid=3D ates (condition-case nil (if (icicle-file-name-input-p) = (icicle-file-name-p=3D refix-candidates icicle-current-input) (icicle-prefix-candidates = icicle-cur=3D rent-input)) (error icicle-completion-candidates))) (setq = word-complete-inp=3D ut (icicle-input-from-minibuffer) return-value (let = ((temp-buffer-show-hook=3D nil) (completion-auto-help nil) (minibuffer-message-timeout 0)) = (icicle-cl=3D ear-minibuffer) (insert icicle-current-input) (save-selected-window = (minibu=3D ffer-complete-word))) icicle-current-input = (icicle-input-from-minibuffer)) =3D (when (or icicle-edit-update-p (> (length icicle-current-input) (length = wor=3D d-complete-input)) (not (eq this-command last-command))) (setq = word-complet=3D e-input icicle-current-input icicle-completion-candidates = (condition-case n=3D il (if (icicle-file-name-input-p) (icicle-file-name-prefix-candidates = icicl=3D e-current-input) (icicle-prefix-candidates icicle-current-input)) (error = ic=3D icle-completion-candidates))))) (message nil)) (unless word-p (setq = return-=3D value icicle-completion-candidates)) (icicle-save-or-restore-input) = (cond (=3D (null icicle-completion-candidates) (setq = icicle-nb-of-other-cycle-candidat=3D es 0) (let ((icicle-incremental-completion-flag (or (memq = icicle-highlight-=3D input-completion-failure ...) icicle-incremental-completion-flag))) = (icicle=3D -highlight-input-noncompletion)) (save-selected-window = (icicle-remove-Compl=3D etions-window)) (run-hooks (quote icicle-no-match-hook)) (unless (eq = no-dis=3D play-p (quote no-msg)) (minibuffer-message (case = (icicle-current-TAB-method=3D ) (fuzzy " [No fuzzy completions]") (vanilla " [No vanilla = completions]")=3D (swank " [No swank (fuzzy symbol) completions]") (t " [No prefix = complet=3D ions]"))))) ((null (cdr icicle-completion-candidates)) (when (and = icicle-wh=3D ole-candidate-as-text-prop-p (not = icicle-expand-input-to-common-match-flag)=3D ) (setq icicle-common-match-string (icicle-expanded-common-match = icicle-cur=3D rent-input icicle-completion-candidates)) (when = icicle-common-match-string =3D (let ((common ...)) (unless (and ... ...) (setq icicle-current-input = common=3D ))))) (when (icicle-file-name-input-p) (setq icicle-common-match-string = (ic=3D icle-expanded-common-match (car icicle-completion-candidates) = icicle-comple=3D tion-candidates)) (when icicle-common-match-string (let ((common ...)) = (set=3D q icicle-current-input common)))) (setq = icicle-nb-of-other-cycle-candidates=3D 0) (unless icicle-edit-update-p (icicle-clear-minibuffer) (let ((cand = (car=3D icicle-completion-candidates))) (if (icicle-file-name-input-p) (cond = (... =3D ...) (... ...) (t ...)) (setq icicle-last-completion-candidate cand))) = (let=3D ((inserted (if ... ... icicle-last-completion-candidate))) (insert = inserte=3D d) (when (and (icicle-file-name-input-p) (icicle-file-directory-p ...)) = (se=3D tq icicle-default-directory (icicle-abbreviate-or-expand-file-name = inserted=3D ))))) (save-selected-window (icicle-remove-Completions-window)) = (icicle-tra=3D nsform-sole-candidate) (unless (boundp (quote = icicle-prefix-complete-and-ex=3D it-p)) (icicle-highlight-complete-input) (cond ((and = icicle-top-level-when-=3D sole-completion-flag (sit-for = icicle-top-level-when-sole-completion-delay))=3D (set minibuffer-history-variable (cons icicle-current-input ...)) = (conditi=3D on-case icicle-prefix-complete-1 (throw ... ...) (no-catch ... = icicle-curre=3D nt-input) (error ...))) ((and icicle-edit-update-p (not ...)) = (minibuffer-m=3D essage (format ... icicle-current-input)) (setq mode-line-help = icicle-curre=3D nt-input)) ((not (eq no-display-p ...)) (minibuffer-message (case ... = ... .=3D .. ... ...)) (setq mode-line-help icicle-current-input))))) (t (if = icicle-e=3D dit-update-p (icicle-display-candidates-in-Completions nil no-display-p) = (u=3D nless word-p (icicle-clear-minibuffer) (save-window-excursion = (select-windo=3D w (active-minibuffer-window)) (insert icicle-current-input)) (when (and = (bo=3D undp ...) 1on1-fit-minibuffer-frame-flag (require ... nil t)) = (1on1-fit-min=3D ibuffer-frame))) (deactivate-mark) (icicle-highlight-initial-whitespace = ici=3D cle-current-input) (when (and (icicle-file-name-input-p) = (icicle-file-direc=3D tory-p icicle-last-completion-candidate)) (setq icicle-default-directory = (i=3D cicle-abbreviate-or-expand-file-name icicle-last-completion-candidate))) = (w=3D hen (and (icicle-input-is-a-completion-p icicle-current-input) (not = (boundp=3D ...))) (icicle-highlight-complete-input) (setq mode-line-help = (icicle-mini=3D buf-input-sans-dir icicle-current-input))) (cond ((get-buffer-window = "*Comp=3D letions*" 0) (if (and ... ... ...) (icicle-next-candidate 1 ...) = (icicle-di=3D splay-candidates-in-Completions nil no-display-p))) = (icicle-TAB-shows-candi=3D dates-flag (if (not ...) (icicle-display-candidates-in-Completions nil = no-d=3D isplay-p) (unless no-display-p ...) (icicle-next-candidate 1 ...))) = ((and (=3D get icicle-last-completion-command ...) (or ... ...) = completion-auto-help) =3D (if (or ... ...) (icicle-display-candidates-in-Completions nil) = (icicle-nex=3D t-candidate 1 ...))) ((and (member icicle-current-input = icicle-completion-c=3D andidates) (not ...)) (minibuffer-message " [Complete, but not = unique]")))=3D ))) (setq icicle-last-completion-command (if word-p (quote = icicle-prefix-wo=3D rd-complete) (if no-display-p (quote icicle-prefix-complete-no-display) = (qu=3D ote icicle-prefix-complete))) icicle-next-prefix-complete-cycles-p = (equal i=3D nput-before-completion (icicle-input-from-minibuffer (quote = leave-envvars))=3D )) (when mode-line-help (icicle-show-help-in-mode-line mode-line-help)) = ret=3D urn-value) (let ((ipc1-was-cycling-p icicle-cycling-p) (mode-line-help nil)) = (setq i=3D cicle-current-input (if (and icicle-last-input icicle-cycling-p (not = icicle=3D -edit-update-p) (eq icicle-current-completion-mode (quote prefix)) (or = (not=3D word-p) (eq this-command last-command)) (symbolp last-command) (or (get = la=3D st-command (quote icicle-cycling-command)) (get last-command (quote = icicle-=3D action-command))) icicle-completion-candidates) icicle-last-input (if = (icic=3D le-file-name-input-p) (abbreviate-file-name = (icicle-input-from-minibuffer (=3D quote leave-envar))) (icicle-input-from-minibuffer))) = icicle-current-comple=3D tion-mode (quote prefix) icicle-next-apropos-complete-cycles-p nil = icicle-i=3D nput-fail-pos nil icicle-cycling-p nil) (when icicle-edit-update-p (setq = ic=3D icle-next-prefix-complete-cycles-p nil)) (let ((word-complete-input "") = (in=3D put-before-completion icicle-current-input) return-value) (unless (and = (str=3D ingp icicle-current-input) (stringp icicle-last-input) (string=3D3D = icicle-cu=3D rrent-input icicle-last-input) (or (get last-command (quote = icicle-prefix-c=3D ompleting-command)) (get last-command (quote icicle-action-command))) = (not =3D word-p)) (unless (or icicle-edit-update-p (get-buffer-window = "*Completions*=3D " 0) no-display-p) (message "Computing completion candidates...")) (if = (not=3D word-p) (setq icicle-completion-candidates (condition-case nil (if = (icicle=3D -file-name-input-p) (icicle-file-name-prefix-candidates = icicle-current-inpu=3D t) (icicle-prefix-candidates icicle-current-input)) (error = icicle-completio=3D n-candidates))) (setq word-complete-input (icicle-input-from-minibuffer) = re=3D turn-value (let ((temp-buffer-show-hook nil) (completion-auto-help nil) = (mi=3D nibuffer-message-timeout 0)) (icicle-clear-minibuffer) (insert = icicle-curre=3D nt-input) (save-selected-window (minibuffer-complete-word))) = icicle-current=3D -input (icicle-input-from-minibuffer)) (when (or icicle-edit-update-p (> = (l=3D ength icicle-current-input) (length word-complete-input)) (not (eq = this-com=3D mand last-command))) (setq word-complete-input icicle-current-input = icicle-=3D completion-candidates (condition-case nil (if ... ... ...) (error = icicle-co=3D mpletion-candidates))))) (message nil)) (unless word-p (setq = return-value i=3D cicle-completion-candidates)) (icicle-save-or-restore-input) (cond = ((null i=3D cicle-completion-candidates) (setq icicle-nb-of-other-cycle-candidates = 0) (=3D let ((icicle-incremental-completion-flag (or ... = icicle-incremental-complet=3D ion-flag))) (icicle-highlight-input-noncompletion)) = (save-selected-window (=3D icicle-remove-Completions-window)) (run-hooks (quote = icicle-no-match-hook))=3D (unless (eq no-display-p (quote no-msg)) (minibuffer-message (case = (icicle=3D -current-TAB-method) (fuzzy " [No fuzzy completions]") (vanilla " [No = van=3D illa completions]") (swank " [No swank (fuzzy symbol) completions]") (t = " =3D [No prefix completions]"))))) ((null (cdr = icicle-completion-candidates)) (=3D when (and icicle-whole-candidate-as-text-prop-p (not = icicle-expand-input-to=3D -common-match-flag)) (setq icicle-common-match-string = (icicle-expanded-comm=3D on-match icicle-current-input icicle-completion-candidates)) (when = icicle-c=3D ommon-match-string (let (...) (unless ... ...)))) (when = (icicle-file-name-i=3D nput-p) (setq icicle-common-match-string (icicle-expanded-common-match = (car=3D icicle-completion-candidates) icicle-completion-candidates)) (when = icicle-=3D common-match-string (let (...) (setq icicle-current-input common)))) = (setq =3D icicle-nb-of-other-cycle-candidates 0) (unless icicle-edit-update-p = (icicle=3D -clear-minibuffer) (let ((cand ...)) (if (icicle-file-name-input-p) = (cond .=3D .. ... ...) (setq icicle-last-completion-candidate cand))) (let = ((inserted =3D ...)) (insert inserted) (when (and ... ...) (setq = icicle-default-directory =3D ...)))) (save-selected-window (icicle-remove-Completions-window)) = (icicle-t=3D ransform-sole-candidate) (unless (boundp (quote = icicle-prefix-complete-and-=3D exit-p)) (icicle-highlight-complete-input) (cond ((and = icicle-top-level-whe=3D n-sole-completion-flag ...) (set minibuffer-history-variable ...) = (conditio=3D n-case icicle-prefix-complete-1 ... ... ...)) ((and icicle-edit-update-p = ..=3D .) (minibuffer-message ...) (setq mode-line-help icicle-current-input)) = ((n=3D ot ...) (minibuffer-message ...) (setq mode-line-help = icicle-current-input)=3D )))) (t (if icicle-edit-update-p = (icicle-display-candidates-in-Completions =3D nil no-display-p) (unless word-p (icicle-clear-minibuffer) = (save-window-exc=3D ursion (select-window ...) (insert icicle-current-input)) (when (and ... = 1o=3D n1-fit-minibuffer-frame-flag ...) (1on1-fit-minibuffer-frame))) = (deactivate=3D -mark) (icicle-highlight-initial-whitespace icicle-current-input) (when = (an=3D d (icicle-file-name-input-p) (icicle-file-directory-p = icicle-last-completio=3D n-candidate)) (setq icicle-default-directory = (icicle-abbreviate-or-expand-f=3D ile-name icicle-last-completion-candidate))) (when (and = (icicle-input-is-a-=3D completion-p icicle-current-input) (not ...)) = (icicle-highlight-complete-in=3D put) (setq mode-line-help (icicle-minibuf-input-sans-dir = icicle-current-inp=3D ut))) (cond ((get-buffer-window "*Completions*" 0) (if ... ... ...)) = (icicl=3D e-TAB-shows-candidates-flag (if ... ... ... ...)) ((and ... ... = completion-=3D auto-help) (if ... ... ...)) ((and ... ...) (minibuffer-message " = [Complet=3D e, but not unique]")))))) (setq icicle-last-completion-command (if = word-p (=3D quote icicle-prefix-word-complete) (if no-display-p (quote = icicle-prefix-co=3D mplete-no-display) (quote icicle-prefix-complete))) = icicle-next-prefix-comp=3D lete-cycles-p (equal input-before-completion = (icicle-input-from-minibuffer =3D (quote leave-envvars)))) (when mode-line-help = (icicle-show-help-in-mode-lin=3D e mode-line-help)) return-value)) icicle-prefix-complete-1() icicle-prefix-complete() call-interactively(icicle-prefix-complete nil nil) old-read-from-minibuffer("Set variable: " ("" . 1) (keymap (S-return . = ic=3D icle-apropos-complete-and-exit) (27 keymap (33554438 . = icicle-read+insert-f=3D ile-name) (33554435 . icicle-completing-read+insert) keymap (110 . = next-his=3D tory-element) (112 . previous-history-element) (109 . = icicle-toggle-show-mu=3D lti-completion) (67108902 . icicle-save-predicate-to-variable) (95 . = icicle=3D -dispatch-M-_) (38 . icicle-narrow-candidates-with-predicate) (42 . = icicle-=3D narrow-candidates) (43 . icicle-widen-candidates) (67108908 . = icicle-toggle=3D -alternative-sorting) (44 . icicle-dispatch-M-comma) (103 . = icicle-toggle-C=3D -for-actions) (126 . icicle-toggle-~-for-home-dir) (59 . = icicle-toggle-sear=3D ch-replace-common-match) (31 . icicle-toggle-proxy-candidates) (67108960 = . =3D icicle-toggle-literal-replacement) (67108910 . icicle-toggle-dot) = (67108923=3D . icicle-regexp-quote-input) (10 . icicle-insert-list-join-string) = (671089=3D 87 . icicle-candidate-set-retrieve-from-variable) (67108989 . = icicle-candid=3D ate-set-save-to-variable) (67108924 . icicle-candidate-set-retrieve) = (67108=3D 905 . icicle-candidate-set-save-selected) (40 . = icicle-next-S-TAB-completio=3D n-method) (67108926 . icicle-candidate-set-save) (36 . = icicle-candidate-set=3D -truncate) (113 . icicle-dispatch-M-q) (104 . icicle-history) (67108911 = . i=3D cicle-prefix-complete) (124 . icicle-all-candidates-list-alt-action) (33 = . =3D icicle-all-candidates-list-action) (13 . = icicle-candidate-read-fn-invoke) (=3D 32 . icicle-prefix-word-complete) (118 . = icicle-scroll-Completions-backward=3D ) keymap (25 . icicle-yank-secondary) (33554438 . = icicle-read+insert-file-n=3D ame) (33554435 . icicle-completing-read+insert) (33554454 . = icicle-scroll-b=3D ackward) (22 . icicle-scroll-forward) (58 . = icicle-pp-eval-expression-in-mi=3D nibuffer) (107 . icicle-erase-minibuffer-or-history-element) (105 . = icicle-=3D clear-current-history) (111 . icicle-insert-history-element) (46 . = icicle-i=3D nsert-string-at-point) (114 . previous-matching-history-element) ...) (7 = . =3D icicle-abort-recursive-edit) (10 . icicle-insert-newline-in-minibuffer) = (13=3D . minibuffer-complete-and-exit) keymap (67108896) (24 keymap (50) (49) = (45=3D . icicle-doremi-zoom-Completions+) (35 . = icicle-doremi-increment-max-candi=3D dates+) (124 . icicle-doremi-inter-candidates-min-spaces+) (119 . = icicle-do=3D remi-candidate-width-factor+) (116 . icicle-cycle-image-file-thumbnail) = (46=3D . icicle-toggle-hiding-common-match)) (46 . icicle-insert-dot-command) = (22=3D . icicle-scroll-Completions-forward) (S-backspace . = icicle-apropos-complet=3D e-and-widen) (33554464 . icicle-apropos-complete-and-narrow) (33554433 . = ic=3D icle-toggle-case-sensitivity) (30 . icicle-dispatch-C-^) (67108923 . = icicle=3D -toggle-expand-to-common-match) (67108899 . = icicle-toggle-incremental-compl=3D etion) (67108910 . icicle-dispatch-C-\.) (67108900 . = icicle-toggle-transfor=3D ming) (67108924 . icicle-candidate-set-retrieve-more) (67108960 . = icicle-to=3D ggle-regexp-quote) (67108908 . icicle-change-sort-order) (67108922 . = icicle=3D -candidate-set-define) (67108901 . icicle-candidate-set-swap) (67108987 = . i=3D cicle-candidate-set-retrieve-persistent) (67108989 . = icicle-candidate-set-s=3D ave-persistently) (67108905 . icicle-candidate-set-save-more-selected) = (671=3D 08904 . icicle-next-TAB-completion-method) (67108926 . = icicle-candidate-set=3D -save-more) (67108906 . icicle-candidate-set-intersection) (67108907 . = icic=3D le-candidate-set-union) (67108909 . icicle-candidate-set-difference) = (67108=3D 990 . icicle-candidate-set-complement) (33554444 . = icicle-retrieve-next-inp=3D ut) (12 . icicle-retrieve-previous-input) (insert . = icicle-save/unsave-cand=3D idate) (C-insert . icicle-switch-to-Completions-buf) (C-M-pause . = icicle-ot=3D her-history) (C-pause . icicle-toggle-highlight-historical-candidates) = (M-p=3D ause . icicle-keep-only-past-inputs) (67108988 . = icicle-all-candidates-alt-=3D action) (67108897 . icicle-all-candidates-action) (C-return . = icicle-candid=3D ate-action) (23 . icicle-kill-region) (S-delete . = icicle-delete-candidate-o=3D bject) (delete . icicle-remove-candidate) (C-S-return . = icicle-candidate-al=3D t-action) (M-return . icicle-candidate-read-fn-invoke) (C-M-return . = icicle=3D -help-on-candidate) (C-M-f1 . icicle-help-on-candidate) ...) nil = minibuffer=3D -history nil t) read-from-minibuffer("Set variable: " ("" . 1) (keymap (S-return . = icicle=3D -apropos-complete-and-exit) (27 keymap (33554438 . = icicle-read+insert-file-=3D name) (33554435 . icicle-completing-read+insert) keymap (110 . = next-history=3D -element) (112 . previous-history-element) (109 . = icicle-toggle-show-multi-=3D completion) (67108902 . icicle-save-predicate-to-variable) (95 . = icicle-dis=3D patch-M-_) (38 . icicle-narrow-candidates-with-predicate) (42 . = icicle-narr=3D ow-candidates) (43 . icicle-widen-candidates) (67108908 . = icicle-toggle-alt=3D ernative-sorting) (44 . icicle-dispatch-M-comma) (103 . = icicle-toggle-C-for=3D -actions) (126 . icicle-toggle-~-for-home-dir) (59 . = icicle-toggle-search-r=3D eplace-common-match) (31 . icicle-toggle-proxy-candidates) (67108960 . = icic=3D le-toggle-literal-replacement) (67108910 . icicle-toggle-dot) (67108923 = . i=3D cicle-regexp-quote-input) (10 . icicle-insert-list-join-string) = (67108987 .=3D icicle-candidate-set-retrieve-from-variable) (67108989 . = icicle-candidate-=3D set-save-to-variable) (67108924 . icicle-candidate-set-retrieve) = (67108905 =3D . icicle-candidate-set-save-selected) (40 . = icicle-next-S-TAB-completion-me=3D thod) (67108926 . icicle-candidate-set-save) (36 . = icicle-candidate-set-tru=3D ncate) (113 . icicle-dispatch-M-q) (104 . icicle-history) (67108911 . = icicl=3D e-prefix-complete) (124 . icicle-all-candidates-list-alt-action) (33 . = icic=3D le-all-candidates-list-action) (13 . icicle-candidate-read-fn-invoke) = (32 .=3D icicle-prefix-word-complete) (118 . icicle-scroll-Completions-backward) = ke=3D ymap (25 . icicle-yank-secondary) (33554438 . = icicle-read+insert-file-name)=3D (33554435 . icicle-completing-read+insert) (33554454 . = icicle-scroll-backw=3D ard) (22 . icicle-scroll-forward) (58 . = icicle-pp-eval-expression-in-minibu=3D ffer) (107 . icicle-erase-minibuffer-or-history-element) (105 . = icicle-clea=3D r-current-history) (111 . icicle-insert-history-element) (46 . = icicle-inser=3D t-string-at-point) (114 . previous-matching-history-element) ...) (7 . = icic=3D le-abort-recursive-edit) (10 . icicle-insert-newline-in-minibuffer) (13 = . m=3D inibuffer-complete-and-exit) keymap (67108896) (24 keymap (50) (49) (45 = . i=3D cicle-doremi-zoom-Completions+) (35 . = icicle-doremi-increment-max-candidate=3D s+) (124 . icicle-doremi-inter-candidates-min-spaces+) (119 . = icicle-doremi=3D -candidate-width-factor+) (116 . icicle-cycle-image-file-thumbnail) (46 = . i=3D cicle-toggle-hiding-common-match)) (46 . icicle-insert-dot-command) (22 = . i=3D cicle-scroll-Completions-forward) (S-backspace . = icicle-apropos-complete-an=3D d-widen) (33554464 . icicle-apropos-complete-and-narrow) (33554433 . = icicle=3D -toggle-case-sensitivity) (30 . icicle-dispatch-C-^) (67108923 . = icicle-tog=3D gle-expand-to-common-match) (67108899 . = icicle-toggle-incremental-completio=3D n) (67108910 . icicle-dispatch-C-\.) (67108900 . = icicle-toggle-transforming=3D ) (67108924 . icicle-candidate-set-retrieve-more) (67108960 . = icicle-toggle=3D -regexp-quote) (67108908 . icicle-change-sort-order) (67108922 . = icicle-can=3D didate-set-define) (67108901 . icicle-candidate-set-swap) (67108987 . = icicl=3D e-candidate-set-retrieve-persistent) (67108989 . = icicle-candidate-set-save-=3D persistently) (67108905 . icicle-candidate-set-save-more-selected) = (6710890=3D 4 . icicle-next-TAB-completion-method) (67108926 . = icicle-candidate-set-sav=3D e-more) (67108906 . icicle-candidate-set-intersection) (67108907 . = icicle-c=3D andidate-set-union) (67108909 . icicle-candidate-set-difference) = (67108990 =3D . icicle-candidate-set-complement) (33554444 . = icicle-retrieve-next-input) =3D (12 . icicle-retrieve-previous-input) (insert . = icicle-save/unsave-candidat=3D e) (C-insert . icicle-switch-to-Completions-buf) (C-M-pause . = icicle-other-=3D history) (C-pause . icicle-toggle-highlight-historical-candidates) = (M-pause=3D . icicle-keep-only-past-inputs) (67108988 . = icicle-all-candidates-alt-acti=3D on) (67108897 . icicle-all-candidates-action) (C-return . = icicle-candidate-=3D action) (23 . icicle-kill-region) (S-delete . = icicle-delete-candidate-objec=3D t) (delete . icicle-remove-candidate) (C-S-return . = icicle-candidate-alt-ac=3D tion) (M-return . icicle-candidate-read-fn-invoke) (C-M-return . = icicle-hel=3D p-on-candidate) (C-M-f1 . icicle-help-on-candidate) ...) nil = minibuffer-his=3D tory nil t) (setq val (read-from-minibuffer prompt (cons init pos) (if (not = require-m=3D atch) (if (or (not minibuffer-completing-file-name) (eq = minibuffer-completi=3D ng-file-name (quote lambda)) (not (boundp (quote = minibuffer-local-filename-=3D completion-map)))) minibuffer-local-completion-map = minibuffer-local-filenam=3D e-completion-map) (if (or (not minibuffer-completing-file-name) (eq = minibuf=3D fer-completing-file-name (quote lambda)) (not (boundp (quote = minibuffer-loc=3D al-filename-must-match-map)))) minibuffer-local-must-match-map = minibuffer-l=3D ocal-filename-must-match-map)) nil histvar def inherit-input-method)) (let ((pos 0) val histvar histpos position init) (setq init = initial-input=3D minibuffer-completion-table collection minibuffer-completion-predicate = pre=3D dicate minibuffer-completion-confirm (if (eq require-match t) nil = require-m=3D atch)) (setq position nil) (when init (when (consp init) (setq position = (cd=3D r init) init (car init))) (unless (stringp init) (error = "icicle-lisp-vanill=3D a-completing-read, INIT must be a string: %S" init)) (if (not position) = (se=3D tq pos (1+ (length init))) (unless (integerp position) (error = "icicle-lisp-=3D vanilla-completing-read, POSITION must be an integer: %S" position)) = (setq =3D pos (1+ position)))) (if (symbolp hist) (setq histvar hist histpos nil) = (se=3D tq histvar (car-safe hist) histpos (cdr-safe hist))) (unless histvar = (setq =3D histvar (quote minibuffer-history))) (unless histpos (setq histpos 0)) = (set=3D q val (read-from-minibuffer prompt (cons init pos) (if (not = require-match) =3D (if (or (not minibuffer-completing-file-name) (eq = minibuffer-completing-fil=3D e-name (quote lambda)) (not (boundp ...))) = minibuffer-local-completion-map =3D minibuffer-local-filename-completion-map) (if (or (not = minibuffer-completin=3D g-file-name) (eq minibuffer-completing-file-name (quote lambda)) (not = (boun=3D dp ...))) minibuffer-local-must-match-map = minibuffer-local-filename-must-ma=3D tch-map)) nil histvar def inherit-input-method)) (when (consp = icicle-filter=3D ed-default-value) (setq icicle-filtered-default-value (car = icicle-filtered-=3D default-value))) (when (and (stringp val) (string=3D3D val "") = icicle-filtere=3D d-default-value) (setq val icicle-filtered-default-value)) val) icicle-lisp-vanilla-completing-read("Set variable: " = [tramp-prefix-ipv6-f=3D ormat :scan-depth normalized anything-inhibit-fit-frame-flag = filesets-entry=3D -get-open-fn etags-tags-completion-table ediff-get-combined-region = filesets=3D -be-docile-flag tramp-postfix-ipv6-regexp = tramp-advice-make-auto-save-file-=3D name tramp-ftp-unload-hook pic-cmd recentf-load-list = anything-bug-report-sa=3D lutation persistent-action external-viewer-def a-prev shell-process-popd = fi=3D lesets-update-cache-file-flag filesets-some gnus-set-file-modes = test-icicle=3D s/ table-string tramp-shell-prompt-pattern = anything-reset-marked-candidates=3D tags-with-face separate ange-ftp-smart-gateway cl-keys-temp = from-scratch-f=3D lag buffer-s cookie-vector cl-seqs cl-copy filesets-eviewer-constraint-p = ob=3D j-temp anything-migrate-sources compiler-let ebnf-make-terminal = anything-re=3D sume-select-buffer 2009-08-12a-regions\.el tag-file-name-match-p cond-fn = sl=3D ot-unbound tramp-completion-dissect-file-name1 = tramp-exists-file-name-handl=3D er gnus-mode-string-quote tramp-handle-directory-files-and-attributes = debug=3D ger-batch-max-lines anything-output-filter ...] user-variable-p t "" = minibu=3D ffer-history nil t) (catch (quote icicle-read-top) (icicle-lisp-vanilla-completing-read = promp=3D t collection predicate require-match initial-input hist-m@%=3D3D!$+&^*z = def i=3D nherit-input-method)) (setq result (catch (quote icicle-read-top) = (icicle-lisp-vanilla-completi=3D ng-read prompt collection predicate require-match initial-input = hist-m@%=3D3D=3D !$+&^*z def inherit-input-method))) (let ((minibuffer-prompt-properties (and (boundp (quote = minibuffer-prompt=3D -properties)) (icicle-remove-property (quote face) = minibuffer-prompt-proper=3D ties))) (minibuffer-completing-file-name (and (functionp collection) = minibu=3D ffer-completing-file-name))) (when (< emacs-major-version 21) (setq = prompt =3D (concat (and icicle-candidate-action-fn "+ ") prompt))) (setq result = (catch=3D (quote icicle-read-top) (icicle-lisp-vanilla-completing-read prompt = collec=3D tion predicate require-match initial-input hist-m@%=3D3D!$+&^*z def = inherit-i=3D nput-method))) (icicle-unpropertize result)) (cond ((not icicle-mode) (setq result = (icicle-lisp-vanilla-completing-rea=3D d prompt collection predicate require-match initial-input = hist-m@%=3D3D!$+&^*=3D z def inherit-input-method))) (t (let ((minibuffer-prompt-properties = (and (=3D boundp (quote minibuffer-prompt-properties)) (icicle-remove-property = (quote=3D face) minibuffer-prompt-properties))) (minibuffer-completing-file-name = (an=3D d (functionp collection) minibuffer-completing-file-name))) (when (< = emacs-=3D major-version 21) (setq prompt (concat (and icicle-candidate-action-fn = "+ "=3D ) prompt))) (setq result (catch (quote icicle-read-top) = (icicle-lisp-vanill=3D a-completing-read prompt collection predicate require-match = initial-input h=3D ist-m@%=3D3D!$+&^*z def inherit-input-method))) (icicle-unpropertize = result))=3D )) (let* ((minibuffer-history-variable minibuffer-history-variable) = (minibuf=3D fer-allow-text-properties t) (minibuffer-completion-table collection) = (icic=3D le-fancy-cands-internal-p (or icicle-whole-candidate-as-text-prop-p = icicle-=3D fancy-candidates-p (get-text-property 0 (quote icicle-fancy-candidates) = pro=3D mpt))) result) (when icicle-fancy-cands-internal-p (let ((c+p = (icicle-mctiz=3D e-all collection predicate))) (setq collection (car c+p) predicate (cadr = c+=3D p)))) (cond ((not icicle-mode) (setq result = (icicle-lisp-vanilla-completing=3D -read prompt collection predicate require-match initial-input = hist-m@%=3D3D!$=3D +&^*z def inherit-input-method))) (t (let ((minibuffer-prompt-properties = (a=3D nd (boundp ...) (icicle-remove-property ... = minibuffer-prompt-properties)))=3D (minibuffer-completing-file-name (and (functionp collection) = minibuffer-co=3D mpleting-file-name))) (when (< emacs-major-version 21) (setq prompt = (concat=3D (and icicle-candidate-action-fn "+ ") prompt))) (setq result (catch = (quote=3D icicle-read-top) (icicle-lisp-vanilla-completing-read prompt collection = pr=3D edicate require-match initial-input hist-m@%=3D3D!$+&^*z def = inherit-input-me=3D thod))) (icicle-unpropertize result)))) (when require-match = (icicle-remove-=3D Completions-window)) result) completing-read("Set variable: " [tramp-prefix-ipv6-format :scan-depth = no=3D rmalized anything-inhibit-fit-frame-flag filesets-entry-get-open-fn = etags-t=3D ags-completion-table ediff-get-combined-region filesets-be-docile-flag = tram=3D p-postfix-ipv6-regexp tramp-advice-make-auto-save-file-name = tramp-ftp-unloa=3D d-hook pic-cmd recentf-load-list anything-bug-report-salutation = persistent-=3D action external-viewer-def a-prev shell-process-popd = filesets-update-cache-=3D file-flag filesets-some gnus-set-file-modes test-icicles/ table-string = tram=3D p-shell-prompt-pattern anything-reset-marked-candidates tags-with-face = sepa=3D rate ange-ftp-smart-gateway cl-keys-temp from-scratch-flag buffer-s = cookie-=3D vector cl-seqs cl-copy filesets-eviewer-constraint-p obj-temp = anything-migr=3D ate-sources compiler-let ebnf-make-terminal = anything-resume-select-buffer 2=3D 009-08-12a-regions\.el tag-file-name-match-p cond-fn slot-unbound = tramp-com=3D pletion-dissect-file-name1 tramp-exists-file-name-handler = gnus-mode-string-=3D quote tramp-handle-directory-files-and-attributes = debugger-batch-max-lines =3D anything-output-filter ...] user-variable-p t nil minibuffer-history nil = t) read-variable("Set variable: ") read-var-and-value(read-variable set-variable-value-history nil) byte-code("\301\302\303=08#\207" [current-prefix-arg = read-var-and-value rea=3D d-variable set-variable-value-history] 4) call-interactively(set-variable record-it) (let ((enable-recursive-minibuffers t) = (icicle-must-pass-after-match-pred=3D icate orig-must-pass-after-match-predicate) (this-command cmd)) = (call-inter=3D actively cmd (quote record-it))) (cond ((arrayp fn) (let ((this-command cmd)) (execute-kbd-macro fn = count)=3D ) (when (> count 1) (message "(%d times)" count))) (t (run-hooks (quote = pos=3D t-command-hook)) (run-hooks (quote pre-command-hook)) (let = ((enable-recursi=3D ve-minibuffers t) (icicle-must-pass-after-match-predicate = orig-must-pass-af=3D ter-match-predicate) (this-command cmd)) (call-interactively cmd (quote = rec=3D ord-it))))) (let* ((cmd (intern cmd-name)) (icicle-candidate-action-fn (and = icicle-ca=3D ndidate-action-fn (function (lambda (arg) (setq arg = (icicle-transform-multi=3D -completion arg)) (condition-case nil (funcall cmd arg) = (wrong-type-argumen=3D t ...) (wrong-number-of-arguments ...)) (select-window = (minibuffer-window))=3D (select-frame-set-input-focus (selected-frame)))))) (fn = (symbol-function c=3D md)) (count (prefix-numeric-value current-prefix-arg)) = (icicle-candidate-al=3D t-action-fn nil) (icicle-all-candidates-list-alt-action-fn nil)) (when = (and=3D suggest-key-bindings (not executing-kbd-macro)) (let* ((bindings = (where-is=3D -internal cmd overriding-local-map t)) (curr-msg (current-message)) = (wait-t=3D ime (if curr-msg (or (and ... suggest-key-bindings) 2) 0))) (when (and = bind=3D ings (not (and (vectorp bindings) (eq ... ...)))) (when (and (sit-for = wait-=3D time) (atom unread-command-events)) (let ((message-log-max nil)) = (message "=3D You can run the command `%s' with `%s'" (symbol-name cmd) = (key-description =3D bindings))) (when (and (sit-for wait-time) curr-msg) (message = curr-msg)))))=3D ) (cond ((arrayp fn) (let ((this-command cmd)) (execute-kbd-macro fn = count)=3D ) (when (> count 1) (message "(%d times)" count))) (t (run-hooks (quote = pos=3D t-command-hook)) (run-hooks (quote pre-command-hook)) (let = ((enable-recursi=3D ve-minibuffers t) (icicle-must-pass-after-match-predicate = orig-must-pass-af=3D ter-match-predicate) (this-command cmd)) (call-interactively cmd (quote = rec=3D ord-it))))) (setq new-last-cmd cmd)) icicle-execute-extended-command-1("set-variable") funcall(icicle-execute-extended-command-1 "set-variable") (let ((cmd-choice (completing-read (format "Execute command%s: " (if = curr=3D ent-prefix-arg (format " (prefix %d)" (prefix-numeric-value = current-prefix-=3D arg)) "")) obarray nil t nil (quote extended-command-history) nil nil))) = (s=3D etq icicle-candidate-action-fn nil) (funcall (quote = icicle-execute-extended=3D -command-1) cmd-choice)) (condition-case act-on-choice (let ((cmd-choice (completing-read = (format =3D "Execute command%s: " (if current-prefix-arg (format " (prefix %d)" ...) = ""=3D )) obarray nil t nil (quote extended-command-history) nil nil))) (setq = icic=3D le-candidate-action-fn nil) (funcall (quote = icicle-execute-extended-command=3D -1) cmd-choice)) (quit (icicle-try-switch-buffer icicle-orig-buff) nil) = (er=3D ror (icicle-try-switch-buffer icicle-orig-buff) nil (error "%s" = (error-mess=3D age-string act-on-choice)))) (let* ((icicle-orig-buff (current-buffer)) (icicle-orig-window = (selected-=3D window)) (last-command last-command) (use-file-dialog nil) (alt-fn nil) = (or=3D ig-must-pass-after-match-predicate = icicle-must-pass-after-match-predicate) =3D (icicle-must-pass-after-match-predicate (function (lambda (c) (commandp = (in=3D tern c))))) (icicle-candidate-alt-action-fn (or = icicle-candidate-alt-action=3D -fn (setq alt-fn (icicle-alt-act-fn-for-type "command")))) = (icicle-all-cand=3D idates-list-alt-action-fn (or icicle-all-candidates-list-alt-action-fn = alt-=3D fn (icicle-alt-act-fn-for-type "command"))) new-last-cmd = (icicle-candidate-=3D action-fn (lambda (candidate) (let ((minibuffer-completion-table = minibuffer=3D -completion-table) (minibuffer-completion-predicate = minibuffer-completion-p=3D redicate) (minibuffer-completion-confirm minibuffer-completion-confirm) = (mi=3D nibuffer-completing-file-name minibuffer-completing-file-name) = (minibuffer-=3D completing-symbol (and ... minibuffer-completing-symbol)) = (minibuffer-exit-=3D hook minibuffer-exit-hook) (minibuffer-help-form minibuffer-help-form) = (min=3D ibuffer-history-variable minibuffer-history-variable) = (minibuffer-history-c=3D ase-insensitive-variables minibuffer-history-case-insensitive-variables) = (m=3D inibuffer-history-sexp-flag minibuffer-history-sexp-flag) = (minibuffer-messa=3D ge-timeout (and ... minibuffer-message-timeout)) = (minibuffer-prompt-propert=3D ies (and ... minibuffer-prompt-properties)) (minibuffer-setup-hook = minibuff=3D er-setup-hook) (minibuffer-text-before-history = minibuffer-text-before-histo=3D ry)) (condition-case in-action-fn (cond (... ...) (... ...) (t ...)) = (error=3D (unless ... ...) (when ... ... ...) (funcall ... candidate))) = (select-wind=3D ow (minibuffer-window)) (select-frame-set-input-focus (selected-frame)) = nil=3D )))) nil (condition-case act-on-choice (let ((cmd-choice = (completing-read (=3D format "Execute command%s: " (if current-prefix-arg ... "")) obarray nil = t =3D nil (quote extended-command-history) nil nil))) (setq = icicle-candidate-acti=3D on-fn nil) (funcall (quote icicle-execute-extended-command-1) = cmd-choice)) =3D (quit (icicle-try-switch-buffer icicle-orig-buff) nil) (error = (icicle-try-s=3D witch-buffer icicle-orig-buff) nil (error "%s" (error-message-string = act-on=3D -choice)))) (setq this-command new-last-cmd)) icicle-execute-extended-command() call-interactively(icicle-execute-extended-command nil nil) =20 =20 =20 In GNU Emacs 24.0.50.1 (i386-mingw-nt5.1.2600) of 2011-04-11 on 3249CTO Windowing system distributor `Microsoft Corp.', version 5.1.2600 configured using `configure --with-gcc (4.5) --no-opt --cflags = -Ic:/imagesu=3D pport/include' =20