From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol 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: To: 8510@debbugs.gnu.org X-Debbugs-Original-To: Received: via spool by submit@debbugs.gnu.org id=B.13029686888863 (code B ref -1); Sat, 16 Apr 2011 15:45:02 +0000 Received: (at submit) by debbugs.gnu.org; 16 Apr 2011 15:44:48 +0000 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 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 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 X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-4.2 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_MED, T_RP_MATCHES_RCVD, UNPARSEABLE_RELAY autolearn=unavailable version=3.3.1 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 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 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 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 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 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 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 Received: from dradamslap1 (/10.159.44.222) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 16 Apr 2011 08:44:10 -0700 From: "Drew Adams" Date: Sat, 16 Apr 2011 08:44:06 -0700 Message-ID: <91283714968143F08104B9FBE71E825D@us.oracle.com> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable 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-Received-From: 140.186.70.17 X-Spam-Score: -6.5 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.5 (------) 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 From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol Resent-From: Tassilo Horn 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 16:35:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "Drew Adams" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130297164313305 (code B ref 8510); Sat, 16 Apr 2011 16:35:01 +0000 Received: (at 8510) by debbugs.gnu.org; 16 Apr 2011 16:34:03 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB8Rf-0003SY-DZ for submit@debbugs.gnu.org; Sat, 16 Apr 2011 12:34:03 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB8Rc-0003S4-Hw for 8510@debbugs.gnu.org; Sat, 16 Apr 2011 12:34:01 -0400 Received: from compute2.internal (compute2.nyi.mail.srv.osa [10.202.2.42]) by gateway1.messagingengine.com (Postfix) with ESMTP id 1315C20D4A; Sat, 16 Apr 2011 12:33:55 -0400 (EDT) Received: from frontend2.messagingengine.com ([10.202.2.161]) by compute2.internal (MEProxy); Sat, 16 Apr 2011 12:33:55 -0400 DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=messagingengine.com; h=from:to:cc:subject:references:date:in-reply-to:message-id:mime-version:content-type; s=smtpout; bh=5ZSd2IeHwnbdi75sY8vahpOPWMA=; b=rra+dmGeQNYUkcjRgHPm9Z9EJ7Id3AIGiPCyYSAubyhPS5GkHHtX9VHdnWG2KJdJF9QQMzSDC5qCGJffb6NJOHoEyfdv54dElKtkClTbOG7+sDNzr2ZqgfNifED6uMPtOVJt3kh8XDRLhBR4S/55g2qBueDZlDd3fT5SJAUmVhU= X-Sasl-enc: 8hFGSJcjZhvFpPyNdO4Mo9rS6L9DeiCjpbr91wPFtzMF 1302971634 Received: from thinkpad (88-134-173-46-dynip.superkabel.de [88.134.173.46]) by mail.messagingengine.com (Postfix) with ESMTPA id 4342C448CC4; Sat, 16 Apr 2011 12:33:54 -0400 (EDT) From: Tassilo Horn References: <91283714968143F08104B9FBE71E825D@us.oracle.com> Date: Sat, 16 Apr 2011 18:33:53 +0200 In-Reply-To: <91283714968143F08104B9FBE71E825D@us.oracle.com> (Drew Adams's message of "Sat, 16 Apr 2011 08:44:06 -0700") Message-ID: <87mxjq5f66.fsf@member.fsf.org> User-Agent: Gnus/5.110016 (No Gnus v0.16) Emacs/24.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -3.8 (---) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -3.8 (---) "Drew Adams" writes: Hi Drew, > 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'. I suspect its a bug in your code. :-) Your description sounds very similar to an issue I had with anything.el when switching to the (now merged) lexbind branch. The issue was that some advice tried to access one arg of the adviced function by its name. That's the fix: --8<---------------cut here---------------start------------->8--- --- a/anything.el +++ b/anything.el @@@ -2816,7 -2816,7 +2816,7 @@@ if optional NOUPDATE is non-nil, anythi (defadvice documentation-property (after anything-document-type-attribute activate) "Hack to display type attributes' documentation as `anything-type-attributes ' docstring." - (when (eq symbol 'anything-type-attributes) + (when (eq (ad-get-arg 0) 'anything-type-attributes) (setq ad-return-value (concat ad-return-value "\n\n++++ Types currently defined ++++\n" (mapconcat (lambda (sym) (get sym 'anything-typeattrdoc)) --8<---------------cut here---------------end--------------->8--- Bye, Tassilo From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol 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 17:00:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "'Tassilo Horn'" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130297315615458 (code B ref 8510); Sat, 16 Apr 2011 17:00:04 +0000 Received: (at 8510) by debbugs.gnu.org; 16 Apr 2011 16:59:16 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB8q3-00041H-Nc for submit@debbugs.gnu.org; Sat, 16 Apr 2011 12:59:16 -0400 Received: from rcsinet10.oracle.com ([148.87.113.121]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB8q1-000414-M8 for 8510@debbugs.gnu.org; Sat, 16 Apr 2011 12:59:14 -0400 Received: from acsinet15.oracle.com (acsinet15.oracle.com [141.146.126.227]) by rcsinet10.oracle.com (Switch-3.4.2/Switch-3.4.2) with ESMTP id p3GGx6sd020762 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Sat, 16 Apr 2011 16:59:07 GMT Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by acsinet15.oracle.com (Switch-3.4.2/Switch-3.4.1) with ESMTP id p3GGx4Zc010195 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Sat, 16 Apr 2011 16:59:04 GMT 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 p3GGwukq012938; Sat, 16 Apr 2011 11:59:00 -0500 Received: from dradamslap1 (/10.159.44.222) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 16 Apr 2011 09:58:54 -0700 From: "Drew Adams" References: <91283714968143F08104B9FBE71E825D@us.oracle.com> <87mxjq5f66.fsf@member.fsf.org> Date: Sat, 16 Apr 2011 09:58:51 -0700 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <87mxjq5f66.fsf@member.fsf.org> X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6090 Thread-Index: Acv8VBUAvBcuTihRQqWkSDw8HOxOxwAAG46g X-Source-IP: acsmt358.oracle.com [141.146.40.158] X-Auth-Type: Internal IP X-CT-RefId: str=0001.0A090207.4DA9CAD9.001B:SCFSTAT5015188,ss=1,fgs=0 X-Spam-Score: -6.5 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.5 (------) > I suspect its a bug in your code. :-) > > Your description sounds very similar to an issue I had with > anything.el when switching to the (now merged) lexbind branch. > The issue was that some advice tried to access one arg of the > adviced function by its name. Hi Tassilo, You might be right that it is in my code (dunno), but if so I don't think it has to do with the problem you mention. The problem you mention is, I think, bug #8457 (which has reportedly been fixed, BTW). I do not use defadvice in this way in my code anywhere (anymore) - I use only `ad-get-arg'. And in the Icicles code I use defadvice in only two minor places, neither of which accesses an argument (by name or otherwise). From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol Resent-From: Tassilo Horn 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 17:37:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "Drew Adams" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130297541718606 (code B ref 8510); Sat, 16 Apr 2011 17:37:02 +0000 Received: (at 8510) by debbugs.gnu.org; 16 Apr 2011 17:36:57 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB9QW-0004q2-DD for submit@debbugs.gnu.org; Sat, 16 Apr 2011 13:36:56 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB9QU-0004pr-AK for 8510@debbugs.gnu.org; Sat, 16 Apr 2011 13:36:55 -0400 Received: from compute6.internal (compute6.nyi.mail.srv.osa [10.202.2.46]) by gateway1.messagingengine.com (Postfix) with ESMTP id 576AC20275; Sat, 16 Apr 2011 13:36:47 -0400 (EDT) Received: from frontend2.messagingengine.com ([10.202.2.161]) by compute6.internal (MEProxy); Sat, 16 Apr 2011 13:36:47 -0400 DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=messagingengine.com; h=from:to:cc:subject:references:date:in-reply-to:message-id:mime-version:content-type; s=smtpout; bh=67pKkmOI+LM0mCIiqekJfAIudEs=; b=AUW0SxXNXxuteWkX4Q79kKMWmUZxPdLAlGRHVD7xkeKrYFn7G4WVc1jmMhouCCoPreyN+jsBAj4o/w26EfwFTgvPDOK7NaR6KuvAS26J2T8CCjntAJoUvOM+clPhdTiywHU3Ye17jTc6GkqbEoTlZpmEyBo9AVOUT1rbmgGWHA8= X-Sasl-enc: 6lvDNLJZi8f1ezra7QHcDVs00VWx8ak1gox5PayGEFvq 1302975407 Received: from thinkpad (88-134-173-46-dynip.superkabel.de [88.134.173.46]) by mail.messagingengine.com (Postfix) with ESMTPA id 75285445244; Sat, 16 Apr 2011 13:36:46 -0400 (EDT) From: Tassilo Horn References: <91283714968143F08104B9FBE71E825D@us.oracle.com> <87mxjq5f66.fsf@member.fsf.org> Date: Sat, 16 Apr 2011 19:36:45 +0200 In-Reply-To: (Drew Adams's message of "Sat, 16 Apr 2011 09:58:51 -0700") Message-ID: <87d3km5c9e.fsf@member.fsf.org> User-Agent: Gnus/5.110016 (No Gnus v0.16) Emacs/24.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -3.8 (---) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -3.8 (---) "Drew Adams" writes: Hi Drew, >> Your description sounds very similar to an issue I had with >> anything.el when switching to the (now merged) lexbind branch. >> The issue was that some advice tried to access one arg of the >> adviced function by its name. > > You might be right that it is in my code (dunno), but if so I don't > think it has to do with the problem you mention. The problem you > mention is, I think, bug #8457 (which has reportedly been fixed, BTW). Yes, right. > I do not use defadvice in this way in my code anywhere (anymore) - I > use only `ad-get-arg'. And in the Icicles code I use defadvice in > only two minor places, neither of which accesses an argument (by name > or otherwise). Yes, the code can be anywhere. For me, the problem was in anything, but the symptom occured also with M-x describe-*. I'd grep thru all elisp files I have installed for defadvices and check them. Bye, Tassilo From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol 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 18:02:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "'Tassilo Horn'" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130297692120717 (code B ref 8510); Sat, 16 Apr 2011 18:02:02 +0000 Received: (at 8510) by debbugs.gnu.org; 16 Apr 2011 18:02:01 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB9on-0005O3-0D for submit@debbugs.gnu.org; Sat, 16 Apr 2011 14:02:01 -0400 Received: from rcsinet10.oracle.com ([148.87.113.121]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QB9ol-0005Nr-QK for 8510@debbugs.gnu.org; Sat, 16 Apr 2011 14:02:00 -0400 Received: from rcsinet13.oracle.com (rcsinet13.oracle.com [148.87.113.125]) by rcsinet10.oracle.com (Switch-3.4.2/Switch-3.4.2) with ESMTP id p3GI1qnE023127 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Sat, 16 Apr 2011 18:01:53 GMT Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by rcsinet13.oracle.com (Switch-3.4.2/Switch-3.4.1) with ESMTP id p3GI1pqa000763 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Sat, 16 Apr 2011 18:01:52 GMT Received: from abhmt020.oracle.com (abhmt020.oracle.com [141.146.116.29]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p3GI1pJM029566; Sat, 16 Apr 2011 13:01:51 -0500 Received: from dradamslap1 (/10.159.44.222) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 16 Apr 2011 11:01:50 -0700 From: "Drew Adams" References: <91283714968143F08104B9FBE71E825D@us.oracle.com><87mxjq5f66.fsf@member.fsf.org> <87d3km5c9e.fsf@member.fsf.org> Date: Sat, 16 Apr 2011 11:01:50 -0700 Message-ID: <9C9B3E5B54934225B6CA1F7C0AA79E7D@us.oracle.com> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <87d3km5c9e.fsf@member.fsf.org> X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6090 Thread-Index: Acv8XN57GibYc2s3T2C9i8HYujw8ngAAKHcA X-Source-IP: acsmt357.oracle.com [141.146.40.157] X-Auth-Type: Internal IP X-CT-RefId: str=0001.0A090209.4DA9D990.00D8:SCFSTAT5015188,ss=1,fgs=0 X-Spam-Score: -6.5 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.5 (------) > > I do not use defadvice in this way in my code anywhere (anymore) - > > I use only `ad-get-arg'. And in the Icicles code I use defadvice > > in only two minor places, neither of which accesses an argument > > (by name or otherwise). > > Yes, the code can be anywhere. For me, the problem was in > anything, but the symptom occured also with M-x describe-*. > I'd grep thru all elisp files I have installed for defadvices > and check them. Yes, I did that. That's what I meant by "I do not use defadvice in this way in my code anywhere (anymore) - I use only `ad-get-arg'." By "anywhere" I meant in _any_ of my code. None of my code (or other 3rd-party code that I load) uses defadvice with a named argument. It uses only `ad-get-arg' when it accesses arguments. And the Icicles code, which is the code invoking the call to `documentation-property' that raises the error, has only two defadvices, neither of which accesses any argument. So it seems to me that this bug is unrelated to #8457. But I could be wrong, of course. From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol Resent-From: Stefan Monnier Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 18 Apr 2011 19:16:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "Drew Adams" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.13031541213415 (code B ref 8510); Mon, 18 Apr 2011 19:16:02 +0000 Received: (at 8510) by debbugs.gnu.org; 18 Apr 2011 19:15:21 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QBtuq-0000t2-OL for submit@debbugs.gnu.org; Mon, 18 Apr 2011 15:15:20 -0400 Received: from fencepost.gnu.org ([140.186.70.10]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QBtuo-0000sn-Oj for 8510@debbugs.gnu.org; Mon, 18 Apr 2011 15:15:19 -0400 Received: from 213-159-126-200.fibertel.com.ar ([200.126.159.213]:53316 helo=ceviche.home) by fencepost.gnu.org with esmtpsa (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1QBtuj-0005Jm-1A; Mon, 18 Apr 2011 15:15:13 -0400 Received: by ceviche.home (Postfix, from userid 20848) id EBA59664E8; Mon, 18 Apr 2011 16:15:10 -0300 (ART) From: Stefan Monnier Message-ID: References: <91283714968143F08104B9FBE71E825D@us.oracle.com> Date: Mon, 18 Apr 2011 16:15:10 -0300 In-Reply-To: <91283714968143F08104B9FBE71E825D@us.oracle.com> (Drew Adams's message of "Sat, 16 Apr 2011 08:44:06 -0700") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -6.0 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.0 (------) > (documentation-property 'debug-on-error 'variable-documentation t) I think that rings a bell, stay tuned, Stefan From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol Resent-From: Stefan Monnier Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 19 Apr 2011 13:32:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "Drew Adams" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130321986811811 (code B ref 8510); Tue, 19 Apr 2011 13:32:02 +0000 Received: (at 8510) by debbugs.gnu.org; 19 Apr 2011 13:31:08 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QCB1H-00034R-KJ for submit@debbugs.gnu.org; Tue, 19 Apr 2011 09:31:08 -0400 Received: from fencepost.gnu.org ([140.186.70.10]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QCB1A-00033t-OL for 8510@debbugs.gnu.org; Tue, 19 Apr 2011 09:31:05 -0400 Received: from 213-159-126-200.fibertel.com.ar ([200.126.159.213]:51647 helo=ceviche.home) by fencepost.gnu.org with esmtpsa (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1QCB15-000117-3x; Tue, 19 Apr 2011 09:30:55 -0400 Received: by ceviche.home (Postfix, from userid 20848) id 950C7662B5; Tue, 19 Apr 2011 10:30:51 -0300 (ART) From: Stefan Monnier Message-ID: References: <91283714968143F08104B9FBE71E825D@us.oracle.com> Date: Tue, 19 Apr 2011 10:30:51 -0300 In-Reply-To: (Stefan Monnier's message of "Mon, 18 Apr 2011 16:15:10 -0300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -6.0 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.0 (------) >> (documentation-property 'debug-on-error 'variable-documentation t) > I think that rings a bell, stay tuned, Sorry, wrong bell. I have no idea what this might come from. Can you reproduce the problem at will? If so, please reproduce it and then tell us what C-h f documentation-property says, or if that fails as well, show us the value of (symbol-function 'documentation-property). Stefan From unknown Thu Aug 14 18:39:15 2025 X-Loop: help-debbugs@gnu.org Subject: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol 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: Tue, 19 Apr 2011 13:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "'Stefan Monnier'" Cc: 8510@debbugs.gnu.org Received: via spool by 8510-submit@debbugs.gnu.org id=B8510.130322115213665 (code B ref 8510); Tue, 19 Apr 2011 13:53:02 +0000 Received: (at 8510) by debbugs.gnu.org; 19 Apr 2011 13:52:32 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QCBM0-0003YM-71 for submit@debbugs.gnu.org; Tue, 19 Apr 2011 09:52:32 -0400 Received: from rcsinet10.oracle.com ([148.87.113.121]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QCBLx-0003Y8-Er for 8510@debbugs.gnu.org; Tue, 19 Apr 2011 09:52:30 -0400 Received: from acsinet22.oracle.com (acsinet22.oracle.com [141.146.126.238]) by rcsinet10.oracle.com (Switch-3.4.2/Switch-3.4.2) with ESMTP id p3JDqLL6026373 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Tue, 19 Apr 2011 13:52:23 GMT Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by acsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id p3JDqKVI026538 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Tue, 19 Apr 2011 13:52:21 GMT Received: from abhmt007.oracle.com (abhmt007.oracle.com [141.146.116.16]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p3JDqFcL013352; Tue, 19 Apr 2011 08:52:15 -0500 Received: from dradamslap1 (/10.159.44.151) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Tue, 19 Apr 2011 06:52:14 -0700 From: "Drew Adams" References: <91283714968143F08104B9FBE71E825D@us.oracle.com> Date: Tue, 19 Apr 2011 06:52:14 -0700 Message-ID: <4F8D99F8CF1749BD968C558C538EA013@us.oracle.com> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: Thread-Index: Acv+lgVwkSOxcVJ+Qq+sI3uK6ZjjXAAAfMmg X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6090 X-Spam-Score: -6.5 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.5 (------) > >> (documentation-property 'debug-on-error 'variable-documentation t) > > I think that rings a bell, stay tuned, > > Sorry, wrong bell. > I have no idea what this might come from. Can you reproduce > the problem at will? If so, please reproduce it and then tell us what > C-h f documentation-property says, or if that fails as well, show us > the value of (symbol-function 'documentation-property). Yes, I could have, but I've forgotten just what the recipe was. Sorry. ;-) I thought I knew it, and tried what I thought, but that didn't do it. I was getting the error systematically, but I don't recall just what the recipe was. In any case, it would be in my setup. I guess just keep this in the back of your mind, in case the same bell gets rung again. From unknown Thu Aug 14 18:39:15 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.428 (Entity 5.428) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: "Drew Adams" Subject: bug#8510: closed (Re: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol) Message-ID: References: <91283714968143F08104B9FBE71E825D@us.oracle.com> X-Gnu-PR-Message: they-closed 8510 X-Gnu-PR-Package: emacs X-Gnu-PR-Keywords: moreinfo Reply-To: 8510@debbugs.gnu.org Date: Sat, 23 Feb 2013 01:03:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1361581382-28001-1" This is a multi-part message in MIME format... ------------=_1361581382-28001-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #8510: 24.0.50; lexbind problem (apparently): void-variable symbol which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 8510@debbugs.gnu.org. --=20 8510: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D8510 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1361581382-28001-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 8510-done) by debbugs.gnu.org; 23 Feb 2013 01:02:37 +0000 Received: from localhost ([127.0.0.1]:44901 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U93Vc-0007Gy-Kx for submit@debbugs.gnu.org; Fri, 22 Feb 2013 20:02:37 -0500 Received: from fencepost.gnu.org ([208.118.235.10]:56751) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U93VZ-0007Go-2g for 8510-done@debbugs.gnu.org; Fri, 22 Feb 2013 20:02:35 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1U93UB-0004zk-5N; Fri, 22 Feb 2013 20:01:07 -0500 From: Glenn Morris To: 8510-done@debbugs.gnu.org Subject: Re: bug#8510: 24.0.50; lexbind problem (apparently): void-variable symbol References: <91283714968143F08104B9FBE71E825D@us.oracle.com> <4F8D99F8CF1749BD968C558C538EA013@us.oracle.com> X-Spook: Taiwan bce Firefly DRM AGT. AMME threat White Water event X-Ran: X!({\Vp(n`|dA?BQQ_~On5/E(&=-VVxs[%17Y`gd-tU'O&fsM|M^_nE9?y1#_)"hu/yJ,# X-Hue: red X-Attribution: GM Date: Fri, 22 Feb 2013 20:01:07 -0500 In-Reply-To: <4F8D99F8CF1749BD968C558C538EA013@us.oracle.com> (Drew Adams's message of "Tue, 19 Apr 2011 06:52:14 -0700") Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -4.9 (----) X-Debbugs-Envelope-To: 8510-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -5.7 (-----) Nothing can be done with this. Please reopen (or may as well make a new report) if a reproducible recipe appears. ------------=_1361581382-28001-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 16 Apr 2011 15:44:48 +0000 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 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 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 X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-4.2 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_MED, T_RP_MATCHES_RCVD, UNPARSEABLE_RELAY autolearn=unavailable version=3.3.1 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 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 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 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 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 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 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 Received: from dradamslap1 (/10.159.44.222) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 16 Apr 2011 08:44:10 -0700 From: "Drew Adams" To: Subject: 24.0.50; lexbind problem (apparently): void-variable symbol Date: Sat, 16 Apr 2011 08:44:06 -0700 Message-ID: <91283714968143F08104B9FBE71E825D@us.oracle.com> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable 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-Received-From: 140.186.70.17 X-Spam-Score: -6.5 (------) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.5 (------) 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 ------------=_1361581382-28001-1--