From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Drew Adams Newsgroups: gmane.emacs.bugs Subject: bug#20966: 25.0.50; `button-at': (wrong-type-argument integer-or-marker-p nil), and *Backtrace* broken Date: Thu, 2 Jul 2015 12:35:24 -0700 (PDT) Message-ID: <3e1392be-1b72-4e03-85da-0ad1f4c3af03@default> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1435865790 12073 80.91.229.3 (2 Jul 2015 19:36:30 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 2 Jul 2015 19:36:30 +0000 (UTC) To: 20966@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jul 02 21:36:17 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZAkHP-0003SZ-0u for geb-bug-gnu-emacs@m.gmane.org; Thu, 02 Jul 2015 21:36:15 +0200 Original-Received: from localhost ([::1]:38302 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkHO-00014B-5L for geb-bug-gnu-emacs@m.gmane.org; Thu, 02 Jul 2015 15:36:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39909) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkHI-000145-Qg for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:36:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZAkHD-0000HU-Mv for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:36:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36514) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkHD-0000HM-J5 for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:36:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1ZAkHD-0003f3-6N for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:36:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Drew Adams Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 02 Jul 2015 19:36:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 20966 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.143586575114051 (code B ref -1); Thu, 02 Jul 2015 19:36:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 2 Jul 2015 19:35:51 +0000 Original-Received: from localhost ([127.0.0.1]:37960 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZAkGy-0003eW-74 for submit@debbugs.gnu.org; Thu, 02 Jul 2015 15:35:50 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54544) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZAkGs-0003eC-Og for submit@debbugs.gnu.org; Thu, 02 Jul 2015 15:35:45 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZAkGk-0000C6-Vs for submit@debbugs.gnu.org; Thu, 02 Jul 2015 15:35:37 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:46298) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkGk-0000C2-SM for submit@debbugs.gnu.org; Thu, 02 Jul 2015 15:35:34 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39793) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkGi-00013V-Ad for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:35:34 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZAkGc-00008r-Qd for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:35:32 -0400 Original-Received: from aserp1040.oracle.com ([141.146.126.69]:20949) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZAkGc-00008f-GU for bug-gnu-emacs@gnu.org; Thu, 02 Jul 2015 15:35:26 -0400 Original-Received: from aserv0022.oracle.com (aserv0022.oracle.com [141.146.126.234]) by aserp1040.oracle.com (Sentrion-MTA-4.3.2/Sentrion-MTA-4.3.2) with ESMTP id t62JZPTm003163 (version=TLSv1 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Thu, 2 Jul 2015 19:35:26 GMT Original-Received: from userv0121.oracle.com (userv0121.oracle.com [156.151.31.72]) by aserv0022.oracle.com (8.13.8/8.13.8) with ESMTP id t62JZP2A010233 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=FAIL) for ; Thu, 2 Jul 2015 19:35:25 GMT Original-Received: from abhmp0011.oracle.com (abhmp0011.oracle.com [141.146.116.17]) by userv0121.oracle.com (8.13.8/8.13.8) with ESMTP id t62JZPW1020864 for ; Thu, 2 Jul 2015 19:35:25 GMT X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.9 (901082) [OL 12.0.6691.5000 (x86)] X-Source-IP: aserv0022.oracle.com [141.146.126.234] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:104631 Archived-At: Double regression, it seems. Perhaps this has been fixed since this build, but I cannot find a Windows binary that is more recent, so I can't get beyond this. 1. Non-nil debug-on-error gives a _completely empty *Backtrace* buffer_, except for the first line, which says "Debugger entered--Lisp error: (args-out-of-range 20324)". I've never seen that before, but I get it consistently with this build. 2. So I tried `M-x debug-on-entry describe-function-1', to see what went wrong. Here's a backtrace, from using `describe-function': Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil) * get-char-property(nil button) * button-at(nil) * help-xref-button(1 help-function-def icicle-highlight-input-noncompletion= =3D "d:/usr/drew/drews-lisp-20/icicles-fn.el") * (save-excursion (re-search-backward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]= +\\)=3DA1=3DAF" =3D nil t) (help-xref-button 1 (quote help-function-def) function file-name)) * (save-current-buffer (set-buffer standard-output) (save-excursion (re-sea= =3D rch-backward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" nil t) (h= elp-xref-button =3D 1 (quote help-function-def) function file-name))) * (progn (princ " in =3DA1=3DAE") (princ (if (eq file-name (quote C-source)= ) "C=3D source code" (help-fns-short-filename file-name))) (princ "=3DA1=3DAF") (s= ave-=3D current-buffer (set-buffer standard-output) (save-excursion (re-search-back= =3D ward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" nil t) (help-xref= -button 1 (quote=3D help-function-def) function file-name)))) * (if file-name (progn (princ " in =3DA1=3DAE") (princ (if (eq file-name (q= uote=3D C-source)) "C source code" (help-fns-short-filename file-name))) (princ "= =3D =3DA1=3DAF") (save-current-buffer (set-buffer standard-output) (save-excurs= ion =3D (re-search-backward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" ni= l t) (help-xref-=3D button 1 (quote help-function-def) function file-name))))) * (if (and aliased (not (fboundp real-def))) (princ ",\nwhich is not define= =3D d. Please make a bug report.") (save-current-buffer (set-buffer standard-o= =3D utput) (save-excursion (let ((save-match-data-internal (match-data))) (unwi= =3D nd-protect (progn (if (re-search-backward "alias for =3DA1=3DAE\\([^=3DA1= =3DAE=3DA1=3D =3DAF]+\\)=3DA1=3DAF" nil t) (progn ...))) (set-match-data save-match-data-= intern=3D al (quote evaporate)))))) (if file-name (progn (princ " in =3DA1=3DAE") (pr= inc =3D (if (eq file-name (quote C-source)) "C source code" (help-fns-short-filenam= =3D e file-name))) (princ "=3DA1=3DAF") (save-current-buffer (set-buffer standa= rd-o=3D utput) (save-excursion (re-search-backward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1= =3DAF]+\\)=3DA1=3D =3DAF" nil t) (help-xref-button 1 (quote help-function-def) function file-n= am=3D e))))) (princ ".") (save-current-buffer (set-buffer (help-buffer)) (fill-re= =3D gion-as-paragraph (save-excursion (goto-char pt1) (forward-line 0) (point))= =3D (point))) (terpri) (terpri) (let* ((doc-raw (documentation function t)) (d= =3D oc (progn (and (autoloadp real-def) doc-raw help-enable-auto-load (string-m= =3D atch "\\([^\\]=3D3D\\|[^=3D3D]\\|\\`\\)\\\\[[{<]" doc-raw) (autoload-do-loa= d re=3D al-def)) (substitute-command-keys doc-raw)))) (help-fns--key-bindings funct= =3D ion) (save-current-buffer (set-buffer standard-output) (setq doc (help-fns-= =3D -signature function doc sig-key real-function)) (run-hook-with-args (quote = =3D help-fns-describe-function-functions) function) (insert "\n" (or doc "Not d= =3D ocumented."))))) * (let* ((advised (and (symbolp function) (featurep (quote nadvice)) (advic= =3D e--p (advice--symbol-function function)))) (real-function (or (and advised = =3D (advice--cd*r (advice--symbol-function function))) function)) (def (if (sym= =3D bolp real-function) (or (symbol-function real-function) (signal (quote void= =3D -function) (list real-function))) real-function)) (aliased (or (symbolp def= =3D ) (and advised (symbolp real-function)))) (real-def (cond (aliased (let ((f= =3D real-function)) (while (and ... ...) (setq f ...)) f)) ((subrp def) (inter= =3D n (subr-name def))) (t def))) (sig-key (if (subrp def) (indirect-function r= =3D eal-def) real-def)) (file-name (find-lisp-object-file-name function def)) (= =3D pt1 (save-current-buffer (set-buffer (help-buffer)) (point))) (beg (if (and= =3D (or (byte-code-function-p def) (keymapp def) (memq (car-safe def) (quote .= =3D ..))) (stringp file-name) (help-fns--autoloaded-p function file-name)) (if = =3D (commandp def) "an interactive autoloaded " "an autoloaded ") (if (commandp= =3D def) "an interactive " "a ")))) (princ (cond ((or (stringp def) (vectorp d= =3D ef)) "a keyboard macro") ((subrp def) (if (eq (quote unevalled) (cdr (subr-= =3D arity def))) (concat beg "special form") (concat beg "built-in function")))= =3D (aliased (format "an alias for =3DA1=3DAE%s=3DA1=3DAF" real-def)) ((autolo= adp def)=3D (format "%s autoloaded %s" (if (commandp def) "an interactive" "an") (if (= =3D eq (nth 4 def) (quote keymap)) "keymap" (if (nth 4 def) "Lisp macro" "Lisp = =3D function")))) ((or (eq (car-safe def) (quote macro)) (macrop function)) (co= =3D ncat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled L= =3D isp function")) ((eq (car-safe def) (quote lambda)) (concat beg "Lisp funct= =3D ion")) ((eq (car-safe def) (quote closure)) (concat beg "Lisp closure")) ((= =3D keymapp def) (let ((is-full nil) (elts (cdr-safe def))) (while elts (if (ch= =3D ar-table-p ...) (setq is-full t elts nil)) (setq elts (cdr-safe elts))) (co= =3D ncat beg (if is-full "keymap" "sparse keymap")))) (t ""))) (if (and aliased= =3D (not (fboundp real-def))) (princ ",\nwhich is not defined. Please make a = =3D bug report.") (save-current-buffer (set-buffer standard-output) (save-excur= =3D sion (let ((save-match-data-internal (match-data))) (unwind-protect (progn = =3D (if ... ...)) (set-match-data save-match-data-internal (quote evaporate))))= =3D )) (if file-name (progn (princ " in =3DA1=3DAE") (princ (if (eq file-name (= quot=3D e C-source)) "C source code" (help-fns-short-filename file-name))) (princ "= =3D =3DA1=3DAF") (save-current-buffer (set-buffer standard-output) (save-excurs= ion =3D (re-search-backward "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" ni= l t) (help-xref-=3D button 1 (quote help-function-def) function file-name))))) (princ ".") (sav= =3D e-current-buffer (set-buffer (help-buffer)) (fill-region-as-paragraph (save= =3D -excursion (goto-char pt1) (forward-line 0) (point)) (point))) (terpri) (te= =3D rpri) (let* ((doc-raw (documentation function t)) (doc (progn (and (autoloa= =3D dp real-def) doc-raw help-enable-auto-load (string-match "\\([^\\]=3D3D\\|[= ^=3D =3D3D]\\|\\`\\)\\\\[[{<]" doc-raw) (autoload-do-load real-def)) (substitute= -c=3D ommand-keys doc-raw)))) (help-fns--key-bindings function) (save-current-buf= =3D fer (set-buffer standard-output) (setq doc (help-fns--signature function do= =3D c sig-key real-function)) (run-hook-with-args (quote help-fns-describe-func= =3D tion-functions) function) (insert "\n" (or doc "Not documented.")))))) * (closure (t) (function) (let* ((advised (and (symbolp function) (featurep= =3D (quote nadvice)) (advice--p (advice--symbol-function function)))) (real-fu= =3D nction (or (and advised (advice--cd*r (advice--symbol-function function))) = =3D function)) (def (if (symbolp real-function) (or (symbol-function real-funct= =3D ion) (signal (quote void-function) (list real-function))) real-function)) (= =3D aliased (or (symbolp def) (and advised (symbolp real-function)))) (real-def= =3D (cond (aliased (let (...) (while ... ...) f)) ((subrp def) (intern (subr-n= =3D ame def))) (t def))) (sig-key (if (subrp def) (indirect-function real-def) = =3D real-def)) (file-name (find-lisp-object-file-name function def)) (pt1 (save= =3D -current-buffer (set-buffer (help-buffer)) (point))) (beg (if (and (or (byt= =3D e-code-function-p def) (keymapp def) (memq ... ...)) (stringp file-name) (h= =3D elp-fns--autoloaded-p function file-name)) (if (commandp def) "an interacti= =3D ve autoloaded " "an autoloaded ") (if (commandp def) "an interactive " "a "= =3D )))) (princ (cond ((or (stringp def) (vectorp def)) "a keyboard macro") ((s= =3D ubrp def) (if (eq (quote unevalled) (cdr ...)) (concat beg "special form") = =3D (concat beg "built-in function"))) (aliased (format "an alias for =3DA1=3DA= E%s=3D =3DA1=3DAF" real-def)) ((autoloadp def) (format "%s autoloaded %s" (if (com= mand=3D p def) "an interactive" "an") (if (eq ... ...) "keymap" (if ... "Lisp macro= =3D " "Lisp function")))) ((or (eq (car-safe def) (quote macro)) (macrop functi= =3D on)) (concat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "co= =3D mpiled Lisp function")) ((eq (car-safe def) (quote lambda)) (concat beg "Li= =3D sp function")) ((eq (car-safe def) (quote closure)) (concat beg "Lisp closu= =3D re")) ((keymapp def) (let ((is-full nil) (elts ...)) (while elts (if ... ..= =3D .) (setq elts ...)) (concat beg (if is-full "keymap" "sparse keymap")))) (t= =3D ""))) (if (and aliased (not (fboundp real-def))) (princ ",\nwhich is not d= =3D efined. Please make a bug report.") (save-current-buffer (set-buffer stand= =3D ard-output) (save-excursion (let ((save-match-data-internal ...)) (unwind-p= =3D rotect (progn ...) (set-match-data save-match-data-internal ...))))) (if fi= =3D le-name (progn (princ " in =3DA1=3DAE") (princ (if (eq file-name ...) "C so= urce=3D code" (help-fns-short-filename file-name))) (princ "=3DA1=3DAF") (save-cur= rent=3D -buffer (set-buffer standard-output) (save-excursion (re-search-backward "= =3D =3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" nil t) (help-xref-butto= n 1 ... function=3D file-name))))) (princ ".") (save-current-buffer (set-buffer (help-buffer))= =3D (fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-line 0)= =3D (point)) (point))) (terpri) (terpri) (let* ((doc-raw (documentation functi= =3D on t)) (doc (progn (and ... doc-raw help-enable-auto-load ... ...) (substit= =3D ute-command-keys doc-raw)))) (help-fns--key-bindings function) (save-curren= =3D t-buffer (set-buffer standard-output) (setq doc (help-fns--signature functi= =3D on doc sig-key real-function)) (run-hook-with-args (quote help-fns-describe= =3D -function-functions) function) (insert "\n" (or doc "Not documented."))))))= =3D )(icicle-highlight-input-noncompletion) * apply((closure (t) (function) (let* ((advised (and (symbolp function) (fe= =3D aturep (quote nadvice)) (advice--p (advice--symbol-function function)))) (r= =3D eal-function (or (and advised (advice--cd*r (advice--symbol-function functi= =3D on))) function)) (def (if (symbolp real-function) (or (symbol-function real= =3D -function) (signal (quote void-function) (list real-function))) real-functi= =3D on)) (aliased (or (symbolp def) (and advised (symbolp real-function)))) (re= =3D al-def (cond (aliased (let (...) (while ... ...) f)) ((subrp def) (intern (= =3D subr-name def))) (t def))) (sig-key (if (subrp def) (indirect-function real= =3D -def) real-def)) (file-name (find-lisp-object-file-name function def)) (pt1= =3D (save-current-buffer (set-buffer (help-buffer)) (point))) (beg (if (and (o= =3D r (byte-code-function-p def) (keymapp def) (memq ... ...)) (stringp file-na= =3D me) (help-fns--autoloaded-p function file-name)) (if (commandp def) "an int= =3D eractive autoloaded " "an autoloaded ") (if (commandp def) "an interactive = =3D " "a ")))) (princ (cond ((or (stringp def) (vectorp def)) "a keyboard macro= =3D ") ((subrp def) (if (eq (quote unevalled) (cdr ...)) (concat beg "special f= =3D orm") (concat beg "built-in function"))) (aliased (format "an alias for =3D= A1=3D =3DAE%s=3DA1=3DAF" real-def)) ((autoloadp def) (format "%s autoloaded %s" (= if (co=3D mmandp def) "an interactive" "an") (if (eq ... ...) "keymap" (if ... "Lisp = =3D macro" "Lisp function")))) ((or (eq (car-safe def) (quote macro)) (macrop f= =3D unction)) (concat beg "Lisp macro")) ((byte-code-function-p def) (concat be= =3D g "compiled Lisp function")) ((eq (car-safe def) (quote lambda)) (concat be= =3D g "Lisp function")) ((eq (car-safe def) (quote closure)) (concat beg "Lisp = =3D closure")) ((keymapp def) (let ((is-full nil) (elts ...)) (while elts (if .= =3D .. ...) (setq elts ...)) (concat beg (if is-full "keymap" "sparse keymap"))= =3D )) (t ""))) (if (and aliased (not (fboundp real-def))) (princ ",\nwhich is = =3D not defined. Please make a bug report.") (save-current-buffer (set-buffer = =3D standard-output) (save-excursion (let ((save-match-data-internal ...)) (unw= =3D ind-protect (progn ...) (set-match-data save-match-data-internal ...))))) (= =3D if file-name (progn (princ " in =3DA1=3DAE") (princ (if (eq file-name ...) = "C s=3D ource code" (help-fns-short-filename file-name))) (princ "=3DA1=3DAF") (sav= e-cu=3D rrent-buffer (set-buffer standard-output) (save-excursion (re-search-backwa= =3D rd "=3DA1=3DAE\\([^=3DA1=3DAE=3DA1=3DAF]+\\)=3DA1=3DAF" nil t) (help-xref-b= utton 1 ... func=3D tion file-name))))) (princ ".") (save-current-buffer (set-buffer (help-buff= =3D er)) (fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-lin= =3D e 0) (point)) (point))) (terpri) (terpri) (let* ((doc-raw (documentation fu= =3D nction t)) (doc (progn (and ... doc-raw help-enable-auto-load ... ...) (sub= =3D stitute-command-keys doc-raw)))) (help-fns--key-bindings function) (save-cu= =3D rrent-buffer (set-buffer standard-output) (setq doc (help-fns--signature fu= =3D nction doc sig-key real-function)) (run-hook-with-args (quote help-fns-desc= =3D ribe-function-functions) function) (insert "\n" (or doc "Not documented."))= =3D ))))) icicle-highlight-input-noncompletion) * describe-function-1(icicle-highlight-input-noncompletion) (progn (prin1 function) (princ " is ") (describe-function-1 function) (sa= =3D ve-current-buffer (set-buffer standard-output) (buffer-string))) (progn (progn (prin1 function) (princ " is ") (describe-function-1 functi= =3D on) (save-current-buffer (set-buffer standard-output) (buffer-string)))) (setq value (progn (progn (prin1 function) (princ " is ") (describe-funct= =3D ion-1 function) (save-current-buffer (set-buffer standard-output) (buffer-s= =3D tring))))) (let* ((vbuffer-or-name (help-buffer)) (buffer (temp-buffer-window-setup = =3D vbuffer-or-name)) (standard-output buffer) window value) (setq value (progn= =3D (progn (prin1 function) (princ " is ") (describe-function-1 function) (sav= =3D e-current-buffer (set-buffer standard-output) (buffer-string))))) (save-cur= =3D rent-buffer (set-buffer buffer) (setq window (temp-buffer-window-show buffe= =3D r nil))) (if (functionp (quote help-window-setup)) (help-window-setup windo= =3D w value) value)) (let ((temp-buffer-window-setup-hook (cons (quote help-mode-setup) temp-b= =3D uffer-window-setup-hook)) (temp-buffer-window-show-hook (cons (quote help-m= =3D ode-finish) temp-buffer-window-show-hook))) (setq help-window-old-frame (se= =3D lected-frame)) (let* ((vbuffer-or-name (help-buffer)) (buffer (temp-buffer-= =3D window-setup vbuffer-or-name)) (standard-output buffer) window value) (setq= =3D value (progn (progn (prin1 function) (princ " is ") (describe-function-1 f= =3D unction) (save-current-buffer (set-buffer standard-output) (buffer-string))= =3D ))) (save-current-buffer (set-buffer buffer) (setq window (temp-buffer-wind= =3D ow-show buffer nil))) (if (functionp (quote help-window-setup)) (help-windo= =3D w-setup window value) value))) (progn (set-marker help-window-point-marker nil) (let ((temp-buffer-windo= =3D w-setup-hook (cons (quote help-mode-setup) temp-buffer-window-setup-hook)) = =3D (temp-buffer-window-show-hook (cons (quote help-mode-finish) temp-buffer-wi= =3D ndow-show-hook))) (setq help-window-old-frame (selected-frame)) (let* ((vbu= =3D ffer-or-name (help-buffer)) (buffer (temp-buffer-window-setup vbuffer-or-na= =3D me)) (standard-output buffer) window value) (setq value (progn (progn (prin= =3D 1 function) (princ " is ") (describe-function-1 function) (save-current-buf= =3D fer (set-buffer standard-output) (buffer-string))))) (save-current-buffer (= =3D set-buffer buffer) (setq window (temp-buffer-window-show buffer nil))) (if = =3D (functionp (quote help-window-setup)) (help-window-setup window value) valu= =3D e)))) (save-excursion (progn (set-marker help-window-point-marker nil) (let ((t= =3D emp-buffer-window-setup-hook (cons (quote help-mode-setup) temp-buffer-wind= =3D ow-setup-hook)) (temp-buffer-window-show-hook (cons (quote help-mode-finish= =3D ) temp-buffer-window-show-hook))) (setq help-window-old-frame (selected-fra= =3D me)) (let* ((vbuffer-or-name (help-buffer)) (buffer (temp-buffer-window-set= =3D up vbuffer-or-name)) (standard-output buffer) window value) (setq value (pr= =3D ogn (progn (prin1 function) (princ " is ") (describe-function-1 function) (= =3D save-current-buffer ... ...)))) (save-current-buffer (set-buffer buffer) (s= =3D etq window (temp-buffer-window-show buffer nil))) (if (functionp (quote hel= =3D p-window-setup)) (help-window-setup window value) value))))) describe-function(icicle-highlight-input-noncompletion) In GNU Emacs 25.0.50.1 (i686-pc-mingw32) of 2015-05-29 on LEG570 Windowing system distributor `Microsoft Corp.', version 6.1.7601 Configured using: `configure --prefix=3D3D/mingw32 --host=3D3Di686-pc-mingw32 --enable-checking=3D3Dyes,glyphs'