From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.devel Subject: Error with completion Date: Thu, 14 Oct 2010 13:39:54 +0200 Organization: Programmerer Ingebrigtsen Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1287056443 22369 80.91.229.12 (14 Oct 2010 11:40:43 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 14 Oct 2010 11:40:43 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Oct 14 13:40:40 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P6MAf-0007s7-D7 for ged-emacs-devel@m.gmane.org; Thu, 14 Oct 2010 13:40:40 +0200 Original-Received: from localhost ([127.0.0.1]:59296 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P6MAe-0004kD-9g for ged-emacs-devel@m.gmane.org; Thu, 14 Oct 2010 07:40:28 -0400 Original-Received: from [140.186.70.92] (port=45848 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P6MAQ-0004gU-Ho for emacs-devel@gnu.org; Thu, 14 Oct 2010 07:40:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1P6MAL-0003Kv-6J for emacs-devel@gnu.org; Thu, 14 Oct 2010 07:40:14 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:45822) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1P6MAK-0003Kb-JR for emacs-devel@gnu.org; Thu, 14 Oct 2010 07:40:09 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1P6MAF-0007eq-LB for emacs-devel@gnu.org; Thu, 14 Oct 2010 13:40:03 +0200 Original-Received: from cm-84.215.34.171.getinternet.no ([84.215.34.171]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 14 Oct 2010 13:40:03 +0200 Original-Received: from larsi by cm-84.215.34.171.getinternet.no with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 14 Oct 2010 13:40:03 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Original-Lines: 358 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: cm-84.215.34.171.getinternet.no Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAElBMVEX0yqP75rb537DOLzr6 4rPmf3afmBxJAAACbElEQVQ4jU1UQW4kIQwkTLjHLR7AeOl7S6jvi+W9o2H9/69sGWakJVISUY2r qLIJIfJeWjtp106EPyQhMIvUnrXUSJ/Vc3aAuSvzGV65f4AuG8B+faSrVFbfz6pHiGXV55BaGyFW wikRfZ8Q5TRnu26LqkqsAD6iHsPaZW3oWlIdEOyXeaPU2V5dKWMxgKdmib9am/OOaWxZkBu51v77 +9FaszuF8ha8AO4/Mc1maUKJX9wRANLpx+K808PGOUIiVwyg4oPUxmzThmGlXWsBxzQDxdqf9/MD CKVhs902prW72fcGYCCl8uMH/IRrCFtVzRTlNHuNwRPASPb8AJRPO19pBEMxO+1ry63Qd8QikOrC mjmwgurCGjOMTgOHgAVdpfQpOSPtMobzgyPEXapXRWYasBse5ge3V6q1KquckGw3PBmLA3HU7izq ANSGZH+fHUDV7k1CnNoKy335osM5VMAibA2+tDtAlmvcmVfxSu2eF645bHQnBy8/Cyo5ciHEELSu Ulk4uH2ebrsYfdj1zcEBOTlyj1FX5Lw5fvv3DtgrdAFw8O6rP06AGG18U6b/gDMt6nlfgS0+Cffa vZtsAeB4FdwEpAC820/01Nq3XuZgIe92P5JS2HJHLRbRcVC1APx+LOCqRwFwVN9CL3IpD/gE+oix VHR5daBqFYFBThJIClLrR3B2wQ/+QY8Y90yqMDXsq+vSjPxiP0gwUfqZQe2S0KQYQNJn35njNhgt KmiqNZpwV1eCiBuf9GIo3THj68lYQdEyrnjT0H4c8p7BPUKFPw+GPw1u4n5utt17wRL1R+L9sNAC RQmJq/wD+f63+8u38jwAAAAASUVORK5CYII= Mail-Copies-To: never X-Now-Playing: Toshimaru Nakamura's _Egrets_: "Tane" User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:4DUce5ZQMm6uO+YGcZyNsyzeh3Q= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:131693 Archived-At: If I say `C-h f pop- TAB', then I get the error below. This is with a recent bzr checkout, emacs -q, on a machine I haven't tried to compile bzr emacs before: Debugger entered--Lisp error: (wrong-type-argument listp 0) last((#("pop-to-mark-command" 0 4 (font-lock-face completions-common-part= ) 4 5 (font-lock-face completions-first-difference)) #("pop-tag-mark" 0 4 (= font-lock-face completions-common-part) 4 5 (font-lock-face completions-fir= st-difference)) #("pop-global-mark" 0 4 (font-lock-face completions-common-= part) 4 5 (font-lock-face completions-first-difference)) #("pop-to-buffer" = 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completion= s-first-difference)) #("pop-mark" 0 4 (font-lock-face completions-common-pa= rt) 4 5 (font-lock-face completions-first-difference)) . 0)) (let* ((last (last (symbol-value (quote --cl-completions--)))) (base-size= (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-= temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-co= mpletions--) (sort (symbol-value (quote --cl-completions--)) (quote string-= lessp))) (if completion-annotate-function (set (quote --cl-completions--) (= mapcar (function (lambda (s) (let ... ...))) (symbol-value (quote --cl-comp= letions--))))) (save-current-buffer (set-buffer standard-output) (set (make= -local-variable (quote completion-base-position)) (list (+ (symbol-value (q= uote --cl-start--)) base-size) nil))) (display-completion-list (symbol-valu= e (quote --cl-completions--))))) (if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr (symbo= l-value (quote --cl-completions--)))) (not (equal (car (symbol-value (quote= --cl-completions--))) (symbol-value (quote --cl-string--)))))) (let* ((las= t (last (symbol-value (quote --cl-completions--)))) (base-size (cdr last)) = (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "= *Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) = (sort (symbol-value (quote --cl-completions--)) (quote string-lessp))) (if = completion-annotate-function (set (quote --cl-completions--) (mapcar (funct= ion (lambda ... ...)) (symbol-value (quote --cl-completions--))))) (save-cu= rrent-buffer (set-buffer standard-output) (set (make-local-variable (quote = completion-base-position)) (list (+ (symbol-value ...) base-size) nil))) (d= isplay-completion-list (symbol-value (quote --cl-completions--))))) (minibu= ffer-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote = --cl-completions--)) "Sole completion" "No completions"))) (progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (= if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr (symbol-v= alue (quote --cl-completions--)))) (not (equal (car (symbol-value ...)) (sy= mbol-value (quote --cl-string--)))))) (let* ((last (last (symbol-value (quo= te --cl-completions--)))) (base-size (cdr last)) (display-buffer-mark-dedic= ated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (s= etcdr last nil)) (set (quote --cl-completions--) (sort (symbol-value (quote= --cl-completions--)) (quote string-lessp))) (if completion-annotate-functi= on (set (quote --cl-completions--) (mapcar (function ...) (symbol-value ...= )))) (save-current-buffer (set-buffer standard-output) (set (make-local-var= iable (quote completion-base-position)) (list (+ ... base-size) nil))) (dis= play-completion-list (symbol-value (quote --cl-completions--))))) (minibuff= er-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote --= cl-completions--)) "Sole completion" "No completions"))) nil) (let ((--cl-completions-- (completion-all-completions (symbol-value (quot= e --cl-string--)) minibuffer-completion-table minibuffer-completion-predica= te (- (point) (field-beginning))))) (progn (setq a (symbol-value (quote --c= l-completions--))) (message nil) (if (and (symbol-value (quote --cl-complet= ions--)) (or (consp (cdr (symbol-value ...))) (not (equal (car ...) (symbol= -value ...))))) (let* ((last (last (symbol-value ...))) (base-size (cdr las= t)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buff= er "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions= --) (sort (symbol-value ...) (quote string-lessp))) (if completion-annotate= -function (set (quote --cl-completions--) (mapcar ... ...))) (save-current-= buffer (set-buffer standard-output) (set (make-local-variable ...) (list ..= . nil))) (display-completion-list (symbol-value (quote --cl-completions--))= ))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-va= lue (quote --cl-completions--)) "Sole completion" "No completions"))) nil)) (let ((--cl-string-- (field-string))) (let ((--cl-completions-- (completi= on-all-completions (symbol-value (quote --cl-string--)) minibuffer-completi= on-table minibuffer-completion-predicate (- (point) (field-beginning))))) (= progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (if = (and (symbol-value (quote --cl-completions--)) (or (consp (cdr ...)) (not (= equal ... ...)))) (let* ((last (last ...)) (base-size (cdr last)) (display-= buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completi= ons*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort ...= ...)) (if completion-annotate-function (set ... ...)) (save-current-buffer= (set-buffer standard-output) (set ... ...)) (display-completion-list (symb= ol-value ...)))) (minibuffer-hide-completions) (ding) (minibuffer-message (= if (symbol-value (quote --cl-completions--)) "Sole completion" "No completi= ons"))) nil))) (let ((--cl-start-- (field-beginning))) (let ((--cl-string-- (field-strin= g))) (let ((--cl-completions-- (completion-all-completions (symbol-value (q= uote --cl-string--)) minibuffer-completion-table minibuffer-completion-pred= icate (- (point) (field-beginning))))) (progn (setq a (symbol-value (quote = --cl-completions--))) (message nil) (if (and (symbol-value (quote --cl-comp= letions--)) (or (consp ...) (not ...))) (let* ((last ...) (base-size ...) (= display-buffer-mark-dedicated ...)) (with-output-to-temp-buffer "*Completio= ns*" (if last ...) (set ... ...) (if completion-annotate-function ...) (sav= e-current-buffer ... ...) (display-completion-list ...))) (minibuffer-hide-= completions) (ding) (minibuffer-message (if (symbol-value ...) "Sole comple= tion" "No completions"))) nil)))) (lexical-let ((start (field-beginning))) (lexical-let ((string (field-str= ing))) (lexical-let ((completions (completion-all-completions string minibu= ffer-completion-table minibuffer-completion-predicate (- (point) (field-beg= inning))))) (setq a completions) (message nil) (if (and completions (or (co= nsp (cdr completions)) (not (equal ... string)))) (let* ((last (last comple= tions)) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))= ) (with-output-to-temp-buffer "*Completions*" (when last (setcdr last nil))= (setq completions (sort completions ...)) (when completion-annotate-functi= on (setq completions ...)) (with-current-buffer standard-output (set ... ..= .)) (display-completion-list completions))) (minibuffer-hide-completions) (= ding) (minibuffer-message (if completions "Sole completion" "No completions= "))) nil))) (lexical-let* ((start (field-beginning)) (string (field-string)) (complet= ions (completion-all-completions string minibuffer-completion-table minibuf= fer-completion-predicate (- (point) (field-beginning))))) (setq a completio= ns) (message nil) (if (and completions (or (consp (cdr completions)) (not (= equal (car completions) string)))) (let* ((last (last completions)) (base-s= ize (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-= to-temp-buffer "*Completions*" (when last (setcdr last nil)) (setq completi= ons (sort completions (quote string-lessp))) (when completion-annotate-func= tion (setq completions (mapcar (lambda ... ...) completions))) (with-curren= t-buffer standard-output (set (make-local-variable (quote completion-base-p= osition)) (list (+ start base-size) nil))) (display-completion-list complet= ions))) (minibuffer-hide-completions) (ding) (minibuffer-message (if comple= tions "Sole completion" "No completions"))) nil) minibuffer-completion-help() (if (cond ((eql completion-auto-help (quote lazy)) (eq this-command last-= command)) (t completion-auto-help)) (minibuffer-completion-help) (minibuffe= r-message "Next char not unique")) (cond ((and (not (condition-case nil (consp (nthcdr completion-cycle-thre= shold comps)) (error nil))) (consp (cdr comps))) (progn (set (quote --cl-co= mpleted--) t) (setq exact t)) (setq completion-all-sorted-completions comps= ) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (mi= nibuffer-hide-completions)) ((not exact) (if (cond ((eql completion-auto-he= lp (quote lazy)) (eq this-command last-command)) (t completion-auto-help)) = (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) = ((eq this-command last-command) (if completion-auto-help (minibuffer-comple= tion-help)))) (let ((exact (test-completion (symbol-value (quote --cl-completion--)) mi= nibuffer-completion-table minibuffer-completion-predicate)) (comps (if (and= completion-cycle-threshold (or (not (symbol-value ...)) (< (car ...) (symb= ol-value ...)))) (completion-all-sorted-completions)))) (setq completion-al= l-sorted-completions nil) (cond ((and (not (condition-case nil (consp (nthc= dr completion-cycle-threshold comps)) (error nil))) (consp (cdr comps))) (p= rogn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-= sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quot= e --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond = ((eql completion-auto-help (quote lazy)) (eq this-command last-command)) (t= completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "N= ext char not unique"))) ((eq this-command last-command) (if completion-auto= -help (minibuffer-completion-help)))) (minibuffer--bitset (symbol-value (qu= ote --cl-completed--)) t exact)) (if (not (or (symbol-value (quote --cl-unchanged--)) (symbol-value (quote= --cl-completed--)))) (completion--do-completion try-completion-function) (= let ((exact (test-completion (symbol-value (quote --cl-completion--)) minib= uffer-completion-table minibuffer-completion-predicate)) (comps (if (and co= mpletion-cycle-threshold (or (not ...) (< ... ...))) (completion-all-sorted= -completions)))) (setq completion-all-sorted-completions nil) (cond ((and (= not (condition-case nil (consp ...) (error nil))) (consp (cdr comps))) (pro= gn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-so= rted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote = --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ((= eql completion-auto-help ...) (eq this-command last-command)) (t completion= -auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char no= t unique"))) ((eq this-command last-command) (if completion-auto-help (mini= buffer-completion-help)))) (minibuffer--bitset (symbol-value (quote --cl-co= mpleted--)) t exact))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-val= ue (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg-= -)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion-= -)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symb= ol-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote --= cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-= completion try-completion-function) (let ((exact (test-completion (symbol-v= alue (quote --cl-completion--)) minibuffer-completion-table minibuffer-comp= letion-predicate)) (comps (if (and completion-cycle-threshold (or ... ...))= (completion-all-sorted-completions)))) (setq completion-all-sorted-complet= ions nil) (cond ((and (not (condition-case nil ... ...)) (consp (cdr comps)= )) (progn (set (quote --cl-completed--) t) (setq exact t)) (setq completion= -all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value = (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (= cond (... ...) (t completion-auto-help)) (minibuffer-completion-help) (mini= buffer-message "Next char not unique"))) ((eq this-command last-command) (i= f completion-auto-help (minibuffer-completion-help)))) (minibuffer--bitset = (symbol-value (quote --cl-completed--)) t exact)))) (let ((--cl-unchanged-- (eq t (compare-strings (symbol-value (quote --cl-= completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil nil))))= (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-valu= e (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--= )) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion--= )))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbo= l-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote --c= l-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-c= ompletion try-completion-function) (let ((exact (test-completion (symbol-va= lue ...) minibuffer-completion-table minibuffer-completion-predicate)) (com= ps (if (and completion-cycle-threshold ...) (completion-all-sorted-completi= ons)))) (setq completion-all-sorted-completions nil) (cond ((and (not ...) = (consp ...)) (progn (set ... t) (setq exact t)) (setq completion-all-sorted= -completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl= -completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ... ..= .) (minibuffer-completion-help) (minibuffer-message "Next char not unique")= )) ((eq this-command last-command) (if completion-auto-help (minibuffer-com= pletion-help)))) (minibuffer--bitset (symbol-value (quote --cl-completed--)= ) t exact))))) (let ((--cl-completed-- (not (eq t (compare-strings (symbol-value (quote = --cl-completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil t)= )))) (let ((--cl-unchanged-- (eq t (compare-strings (symbol-value (quote --= cl-completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil nil)= ))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-v= alue (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-be= g--)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completio= n--)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (sy= mbol-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote = --cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--d= o-completion try-completion-function) (let ((exact (test-completion ... min= ibuffer-completion-table minibuffer-completion-predicate)) (comps (if ... .= ..))) (setq completion-all-sorted-completions nil) (cond ((and ... ...) (pr= ogn ... ...) (setq completion-all-sorted-completions comps) (minibuffer-for= ce-complete)) ((symbol-value ...) (minibuffer-hide-completions)) ((not exac= t) (if ... ... ...)) ((eq this-command last-command) (if completion-auto-he= lp ...))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exa= ct)))))) (let ((--cl-completion-- (car (symbol-value (quote --cl-comp--))))) (let = ((--cl-completed-- (not (eq t (compare-strings (symbol-value ...) nil nil (= symbol-value ...) nil nil t))))) (let ((--cl-unchanged-- (eq t (compare-str= ings (symbol-value ...) nil nil (symbol-value ...) nil nil nil)))) (progn (= if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value (quote = --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--)) (symbo= l-value (quote --cl-end--)) (symbol-value (quote --cl-completion--)))) (for= ward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbol-value .= ..)))) (if (not (or (symbol-value ...) (symbol-value ...))) (completion--do= -completion try-completion-function) (let ((exact ...) (comps ...)) (setq c= ompletion-all-sorted-completions nil) (cond (... ... ... ...) (... ...) (..= . ...) (... ...)) (minibuffer--bitset (symbol-value ...) t exact))))))) (let ((--cl-comp-pos-- (cdr (symbol-value (quote --cl-comp--))))) (let ((= --cl-completion-- (car (symbol-value (quote --cl-comp--))))) (let ((--cl-co= mpleted-- (not (eq t (compare-strings ... nil nil ... nil nil t))))) (let (= (--cl-unchanged-- (eq t (compare-strings ... nil nil ... nil nil nil)))) (p= rogn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value .= ..)) (completion--replace (symbol-value ...) (symbol-value ...) (symbol-val= ue ...))) (forward-char (- (symbol-value ...) (length ...))) (if (not (or .= .. ...)) (completion--do-completion try-completion-function) (let (... ...)= (setq completion-all-sorted-completions nil) (cond ... ... ... ...) (minib= uffer--bitset ... t exact)))))))) (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-hide-complet= ions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil ni= l)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions= ) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-co= mp-pos-- (cdr (symbol-value (quote --cl-comp--))))) (let ((--cl-completion-= - (car (symbol-value ...)))) (let ((--cl-completed-- (not ...))) (let ((--c= l-unchanged-- ...)) (progn (if ... ... ...) (forward-char ...) (if ... ... = ...)))))))) (let ((--cl-comp-- (funcall (or try-completion-function (quote completion= -try-completion)) (symbol-value (quote --cl-string--)) minibuffer-completio= n-table minibuffer-completion-predicate (- (point) (symbol-value (quote --c= l-beg--)))))) (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-= hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitse= t nil nil nil)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide= -completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (l= et ((--cl-comp-pos-- (cdr (symbol-value ...)))) (let ((--cl-completion-- (c= ar ...))) (let ((--cl-completed-- ...)) (let (...) (progn ... ... ...))))))= )) (let ((--cl-string-- (buffer-substring (symbol-value (quote --cl-beg--)) = (symbol-value (quote --cl-end--))))) (let ((--cl-comp-- (funcall (or try-co= mpletion-function (quote completion-try-completion)) (symbol-value (quote -= -cl-string--)) minibuffer-completion-table minibuffer-completion-predicate = (- (point) (symbol-value (quote --cl-beg--)))))) (cond ((null (symbol-value= (quote --cl-comp--))) (minibuffer-hide-completions) (ding) (minibuffer-mes= sage "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value (qu= ote --cl-comp--))) (minibuffer-hide-completions) (goto-char (field-end)) (m= inibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- (cdr ...))) (let ((= --cl-completion-- ...)) (let (...) (let ... ...)))))))) (let ((--cl-end-- (field-end))) (let ((--cl-string-- (buffer-substring (s= ymbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--))))) (let (= (--cl-comp-- (funcall (or try-completion-function (quote completion-try-com= pletion)) (symbol-value (quote --cl-string--)) minibuffer-completion-table = minibuffer-completion-predicate (- (point) (symbol-value ...))))) (cond ((n= ull (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (ding= ) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t = (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (goto-cha= r (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- ..= .)) (let (...) (let ... ...)))))))) (let ((--cl-beg-- (field-beginning))) (let ((--cl-end-- (field-end))) (le= t ((--cl-string-- (buffer-substring (symbol-value (quote --cl-beg--)) (symb= ol-value (quote --cl-end--))))) (let ((--cl-comp-- (funcall (or try-complet= ion-function ...) (symbol-value ...) minibuffer-completion-table minibuffer= -completion-predicate (- ... ...)))) (cond ((null (symbol-value ...)) (mini= buffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer= --bitset nil nil nil)) ((eq t (symbol-value ...)) (minibuffer-hide-completi= ons) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let (...) = (let ... ...)))))))) (lexical-let ((beg (field-beginning))) (lexical-let ((end (field-end))) (= lexical-let ((string (buffer-substring beg end))) (lexical-let ((comp (func= all (or try-completion-function ...) string minibuffer-completion-table min= ibuffer-completion-predicate (- ... beg)))) (cond ((null comp) (minibuffer-= hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitse= t nil nil nil)) ((eq t comp) (minibuffer-hide-completions) (goto-char (fiel= d-end)) (minibuffer--bitset nil nil t)) (t (lexical-let* (... ... ... ...) = (if unchanged ... ...) (forward-char ...) (if ... ... ...)))))))) (lexical-let* ((beg (field-beginning)) (end (field-end)) (string (buffer-= substring beg end)) (comp (funcall (or try-completion-function (quote compl= etion-try-completion)) string minibuffer-completion-table minibuffer-comple= tion-predicate (- (point) beg)))) (cond ((null comp) (minibuffer-hide-compl= etions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil = nil)) ((eq t comp) (minibuffer-hide-completions) (goto-char (field-end)) (m= inibuffer--bitset nil nil t)) (t (lexical-let* ((comp-pos (cdr comp)) (comp= letion (car comp)) (completed (not (eq t ...))) (unchanged (eq t (compare-s= trings completion nil nil string nil nil nil)))) (if unchanged (goto-char e= nd) (completion--replace beg end completion)) (forward-char (- comp-pos (le= ngth completion))) (if (not (or unchanged completed)) (completion--do-compl= etion try-completion-function) (let ((exact ...) (comps ...)) (setq complet= ion-all-sorted-completions nil) (cond (... ... ... ...) (completed ...) (..= . ...) (... ...)) (minibuffer--bitset completed t exact))))))) completion--do-completion() (let ((--cl-var-- (completion--do-completion))) (cond ((eql --cl-var-- (q= uote 0)) nil) ((eql --cl-var-- (quote 1)) (minibuffer-message "Sole complet= ion") t) ((eql --cl-var-- (quote 3)) (minibuffer-message "Complete, but not= unique") t) (t t))) (case (completion--do-completion) (0 nil) (1 (minibuffer-message "Sole co= mpletion") t) (3 (minibuffer-message "Complete, but not unique") t) (t t)) (cond ((window-live-p minibuffer-scroll-window) (let ((window minibuffer-= scroll-window)) (with-current-buffer (window-buffer window) (if (pos-visibl= e-in-window-p (point-max) window) (set-window-start window (point-min) nil)= (scroll-other-window)) nil))) (completion-all-sorted-completions (minibuff= er-force-complete) t) (t (case (completion--do-completion) (0 nil) (1 (mini= buffer-message "Sole completion") t) (3 (minibuffer-message "Complete, but = not unique") t) (t t)))) minibuffer-complete() call-interactively(minibuffer-complete nil nil) completing-read("Describe function (default try-completion): " [edebug-to= ggle-save-selected-window edebug-install-read-eval-functions retrieve-tag i= nhibit-debug-on-entry edebug-stack cl-setf-do-store widget-field-end widget= -princ-to-string x-select-enable-primary change-log-search-tag-name change-= log-mode-abbrev-table xlfd-tight-regexp log-buf file-name-shadow-tty-proper= ties cl-declarations-or-string cl-type-spec font-lock-regexp-grouping-backs= lash rmail-primary-inbox-list model name-props diff-find-source-location ch= ange-log-start-entry-re Set\ Conditional\ Breakpoint extra-name file-or-dir= -list vc-sentinel-movepoint add-log-file-name widget-default-get global-ede= bug-prefix loop-clause menu-bar-showhide-fringe-ind-mixed :button-face widg= et-link-prefix change-log-function noreuse edebug-outside-buffer vc-annotat= e-parent-display-mode edebug-where cl-maphash tree-equal create-fontset-fro= m-ascii-font help-package whitespace-insert-value widget-editable-list-inse= rt-before Previous\ Topic Go-nonstop convert-widget Eval edebug-trace cdaar= ...] fboundp t nil nil "try-completion") (setq val (completing-read (if fn (format "Describe function (default %s)= : " fn) "Describe function: ") obarray (quote fboundp) t nil nil (and fn (s= ymbol-name fn)))) (let ((fn (function-called-at-point)) (enable-recursive-minibuffers t) va= l) (setq val (completing-read (if fn (format "Describe function (default %s= ): " fn) "Describe function: ") obarray (quote fboundp) t nil nil (and fn (= symbol-name fn)))) (list (if (equal val "") fn (intern val)))) call-interactively(describe-function nil nil) The list apparently being completed is this: (#("pop-to-mark-command" 0 4 (font-lock-face completions-common-part) 4 5 (= font-lock-face completions-first-difference)) #("pop-tag-mark" 0 4 (font-lo= ck-face completions-common-part) 4 5 (font-lock-face completions-first-diff= erence)) #("pop-global-mark" 0 4 (font-lock-face completions-common-part) 4= 5 (font-lock-face completions-first-difference)) #("pop-to-buffer" 0 4 (fo= nt-lock-face completions-common-part) 4 5 (font-lock-face completions-first= -difference)) #("pop-mark" 0 4 (font-lock-face completions-common-part) 4 5= (font-lock-face completions-first-difference)) . 0) =20=20 =20=20 --=20 (domestic pets only, the antidote for overdose, milk.) larsi@gnus.org * Lars Magne Ingebrigtsen