From unknown Fri Jun 20 07:09:37 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#17564 <17564@debbugs.gnu.org> To: bug#17564 <17564@debbugs.gnu.org> Subject: Status: 24.4.50; REGRESSION: (wrong-type-argument arrayp C-source) Reply-To: bug#17564 <17564@debbugs.gnu.org> Date: Fri, 20 Jun 2025 14:09:37 +0000 retitle 17564 24.4.50; REGRESSION: (wrong-type-argument arrayp C-source) reassign 17564 emacs submitter 17564 Drew Adams severity 17564 important thanks From debbugs-submit-bounces@debbugs.gnu.org Fri May 23 14:04:42 2014 Received: (at submit) by debbugs.gnu.org; 23 May 2014 18:04:42 +0000 Received: from localhost ([127.0.0.1]:58142 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Wntpd-0006Hl-KA for submit@debbugs.gnu.org; Fri, 23 May 2014 14:04:41 -0400 Received: from eggs.gnu.org ([208.118.235.92]:39280) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WntpX-0006HO-AK for submit@debbugs.gnu.org; Fri, 23 May 2014 14:04:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WntpH-0006LL-8D for submit@debbugs.gnu.org; Fri, 23 May 2014 14:04:25 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50 autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:60480) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WntpH-0006LA-5G for submit@debbugs.gnu.org; Fri, 23 May 2014 14:04:15 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:40889) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wntp7-0003gs-KM for bug-gnu-emacs@gnu.org; Fri, 23 May 2014 14:04:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Wntoy-0006GP-2C for bug-gnu-emacs@gnu.org; Fri, 23 May 2014 14:04:05 -0400 Received: from aserp1040.oracle.com ([141.146.126.69]:16808) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wntox-0006GI-QG for bug-gnu-emacs@gnu.org; Fri, 23 May 2014 14:03:55 -0400 Received: from ucsinet22.oracle.com (ucsinet22.oracle.com [156.151.31.94]) by aserp1040.oracle.com (Sentrion-MTA-4.3.2/Sentrion-MTA-4.3.2) with ESMTP id s4NI3qUn030902 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Fri, 23 May 2014 18:03:54 GMT Received: from userz7022.oracle.com (userz7022.oracle.com [156.151.31.86]) by ucsinet22.oracle.com (8.14.5+Sun/8.14.5) with ESMTP id s4NI3pSl000548 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Fri, 23 May 2014 18:03:52 GMT Received: from abhmp0003.oracle.com (abhmp0003.oracle.com [141.146.116.9]) by userz7022.oracle.com (8.14.5+Sun/8.14.4) with ESMTP id s4NI3odx000496 for ; Fri, 23 May 2014 18:03:50 GMT MIME-Version: 1.0 Message-ID: Date: Fri, 23 May 2014 11:03:48 -0700 (PDT) From: Drew Adams To: bug-gnu-emacs@gnu.org Subject: 24.4.50; REGRESSION: (wrong-type-argument arrayp C-source) X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.8 (707110) [OL 12.0.6691.5000 (x86)] Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Source-IP: ucsinet22.oracle.com [156.151.31.94] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) The code of `describe-function-1' seems to have changed to cause this regression. In this sexp of `describe-function-1': (and (or (byte-code-function-p def) (keymapp def) (memq (car-safe def) '(macro lambda closure))) file-name (help-fns--autoloaded-p function file-name)) if the FUNCTION has been redefined, as below, each of the `and' clauses returns non-nil leading up to `help-fns--autoloaded-p', and that function fails because it is given `C-source' as its FILE-NAME arg. emacs -Q Evaluate this: (or (fboundp '1on1-ORIG-top-level) (fset '1on1-ORIG-top-level (symbol-function 'top-level))) (defun top-level () "Exit all recursive editing levels." (interactive) ;; (1on1-color-minibuffer-frame-on-exit) (1on1-ORIG-top-level)) C-h f top-level You get this backtrace: Debugger entered--Lisp error: (wrong-type-argument arrayp C-source) file-truename(C-source) (file-name-sans-extension (file-truename file)) (let* ((file (file-name-sans-extension (file-truename file))) (load-hist = =3D load-history) (target (cons t function)) found) (while (and load-hist (not = =3D found)) (and (caar load-hist) (equal (file-name-sans-extension (caar load-h= =3D ist)) file) (setq found (member target (cdar load-hist)))) (setq load-hist = =3D (cdr load-hist))) found) (closure (t) (function file) "Return non-nil if FUNCTION has previously b= =3D een autoloaded.\nFILE is the file where FUNCTION was probably defined." (le= =3D t* ((file (file-name-sans-extension (file-truename file))) (load-hist load-= =3D history) (target (cons t function)) found) (while (and load-hist (not found= =3D )) (and (caar load-hist) (equal (file-name-sans-extension (caar load-hist))= =3D file) (setq found (member target (cdar load-hist)))) (setq load-hist (cdr = =3D load-hist))) found))(top-level C-source) apply((closure (t) (function file) "Return non-nil if FUNCTION has previo= =3D usly been autoloaded.\nFILE is the file where FUNCTION was probably defined= =3D ." (let* ((file (file-name-sans-extension (file-truename file))) (load-hist= =3D load-history) (target (cons t function)) found) (while (and load-hist (not= =3D found)) (and (caar load-hist) (equal (file-name-sans-extension (caar load-= =3D hist)) file) (setq found (member target (cdar load-hist)))) (setq load-hist= =3D (cdr load-hist))) found)) (top-level C-source)) * help-fns--autoloaded-p(top-level C-source) (and (or (byte-code-function-p def) (keymapp def) (memq (car-safe def) (q= =3D uote (macro lambda closure)))) file-name (help-fns--autoloaded-p function f= =3D ile-name)) (if (and (or (byte-code-function-p def) (keymapp def) (memq (car-safe def= =3D ) (quote (macro lambda closure)))) file-name (help-fns--autoloaded-p functi= =3D on file-name)) (if (commandp def) "an interactive autoloaded " "an autoload= =3D ed ") (if (commandp def) "an interactive " "a ")) (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) (symbol-function real-function) real-function)) (aliase= =3D d (or (symbolp def) (and advised (symbolp real-function)))) (real-def (cond= =3D (aliased (let ((f real-function)) (while (and ... ...) (setq f ...)) f)) (= =3D (subrp def) (intern (subr-name def))) (t def))) (file-name (find-lisp-objec= =3D t-file-name function def)) (pt1 (save-current-buffer (set-buffer (help-buff= =3D er)) (point))) (beg (if (and (or (byte-code-function-p def) (keymapp def) (= =3D memq (car-safe def) (quote ...))) file-name (help-fns--autoloaded-p functio= =3D n file-name)) (if (commandp def) "an interactive autoloaded " "an autoloade= =3D d ") (if (commandp def) "an interactive " "a ")))) (princ (cond ((or (strin= =3D gp def) (vectorp def)) "a keyboard macro") ((subrp def) (if (eq (quote unev= =3D alled) (cdr (subr-arity def))) (concat beg "special form") (concat beg "bui= =3D lt-in function"))) (aliased (format "an alias for `%s'" real-def)) ((autolo= =3D adp def) (format "%s autoloaded %s" (if (commandp def) "an interactive" "an= =3D ") (if (eq (nth 4 def) (quote keymap)) "keymap" (if (nth 4 def) "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 (cdr-safe def))) (while elts= =3D (if (char-table-p ...) (setq is-full t elts nil)) (setq elts (cdr-safe elt= =3D s))) (concat beg (if is-full "keymap" "sparse keymap")))) (t ""))) (if (and= =3D aliased (not (fboundp real-def))) (princ ",\nwhich is not defined. Please= =3D make a bug report.") (save-current-buffer (set-buffer standard-output) (sa= =3D ve-excursion (let ((save-match-data-internal (match-data))) (unwind-protect= =3D (progn (if ... ...)) (set-match-data save-match-data-internal (quote evapo= =3D rate)))))) (if file-name (progn (princ " in `") (princ (if (eq file-name (q= =3D uote C-source)) "C source code" (file-name-nondirectory file-name))) (princ= =3D "'") (save-current-buffer (set-buffer standard-output) (save-excursion (re= =3D -search-backward "`\\([^`']+\\)'" nil t) (help-xref-button 1 (quote help-fu= =3D nction-def) function file-name))))) (princ ".") (save-current-buffer (set-b= =3D uffer (help-buffer)) (fill-region-as-paragraph (save-excursion (goto-char p= =3D t1) (forward-line 0) (point)) (point))) (terpri) (terpri) (let* ((doc-raw (= =3D documentation function t)) (doc (progn (and (autoloadp real-def) doc-raw he= =3D lp-enable-auto-load (string-match "\\([^\\]=3D3D\\|[^=3D3D]\\|\\`\\)\\\\[[{= <]" =3D doc-raw) (load ... t)) (substitute-command-keys doc-raw)))) (help-fns--key-= =3D bindings function) (save-current-buffer (set-buffer standard-output) (setq = =3D doc (help-fns--signature function doc real-def real-function)) (run-hook-wi= =3D th-args (quote help-fns-describe-function-functions) function) (insert "\n"= =3D (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) (symbol-function real-function)= =3D real-function)) (aliased (or (symbolp def) (and advised (symbolp real-func= =3D tion)))) (real-def (cond (aliased (let (...) (while ... ...) f)) ((subrp de= =3D f) (intern (subr-name def))) (t def))) (file-name (find-lisp-object-file-na= =3D me function def)) (pt1 (save-current-buffer (set-buffer (help-buffer)) (poi= =3D nt))) (beg (if (and (or (byte-code-function-p def) (keymapp def) (memq ... = =3D ...)) file-name (help-fns--autoloaded-p function file-name)) (if (commandp = =3D def) "an interactive autoloaded " "an autoloaded ") (if (commandp def) "an = =3D interactive " "a ")))) (princ (cond ((or (stringp def) (vectorp def)) "a ke= =3D yboard macro") ((subrp def) (if (eq (quote unevalled) (cdr ...)) (concat be= =3D g "special form") (concat beg "built-in function"))) (aliased (format "an a= =3D lias for `%s'" real-def)) ((autoloadp def) (format "%s autoloaded %s" (if (= =3D commandp def) "an interactive" "an") (if (eq ... ...) "keymap" (if ... "Lis= =3D p macro" "Lisp function")))) ((or (eq (car-safe def) (quote macro)) (macrop= =3D function)) (concat beg "Lisp macro")) ((byte-code-function-p def) (concat = =3D beg "compiled Lisp function")) ((eq (car-safe def) (quote lambda)) (concat = =3D beg "Lisp function")) ((eq (car-safe def) (quote closure)) (concat beg "Lis= =3D p 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 i= =3D s not defined. Please make a bug report.") (save-current-buffer (set-buffe= =3D r standard-output) (save-excursion (let ((save-match-data-internal ...)) (u= =3D nwind-protect (progn ...) (set-match-data save-match-data-internal ...)))))= =3D (if file-name (progn (princ " in `") (princ (if (eq file-name ...) "C sour= =3D ce code" (file-name-nondirectory file-name))) (princ "'") (save-current-buf= =3D fer (set-buffer standard-output) (save-excursion (re-search-backward "`\\([= =3D ^`']+\\)'" nil t) (help-xref-button 1 ... function file-name))))) (princ ".= =3D ") (save-current-buffer (set-buffer (help-buffer)) (fill-region-as-paragrap= =3D h (save-excursion (goto-char pt1) (forward-line 0) (point)) (point))) (terp= =3D ri) (terpri) (let* ((doc-raw (documentation function t)) (doc (progn (and .= =3D .. doc-raw help-enable-auto-load ... ...) (substitute-command-keys doc-raw)= =3D ))) (help-fns--key-bindings function) (save-current-buffer (set-buffer stan= =3D dard-output) (setq doc (help-fns--signature function doc real-def real-func= =3D tion)) (run-hook-with-args (quote help-fns-describe-function-functions) fun= =3D ction) (insert "\n" (or doc "Not documented.")))))))(top-level) 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) (symbol-function real-fun= =3D ction) real-function)) (aliased (or (symbolp def) (and advised (symbolp rea= =3D l-function)))) (real-def (cond (aliased (let (...) (while ... ...) f)) ((su= =3D brp def) (intern (subr-name def))) (t def))) (file-name (find-lisp-object-f= =3D ile-name function def)) (pt1 (save-current-buffer (set-buffer (help-buffer)= =3D ) (point))) (beg (if (and (or (byte-code-function-p def) (keymapp def) (mem= =3D q ... ...)) file-name (help-fns--autoloaded-p function file-name)) (if (com= =3D mandp def) "an interactive autoloaded " "an autoloaded ") (if (commandp def= =3D ) "an interactive " "a ")))) (princ (cond ((or (stringp def) (vectorp def))= =3D "a keyboard macro") ((subrp def) (if (eq (quote unevalled) (cdr ...)) (con= =3D cat beg "special form") (concat beg "built-in function"))) (aliased (format= =3D "an alias for `%s'" real-def)) ((autoloadp def) (format "%s autoloaded %s"= =3D (if (commandp def) "an interactive" "an") (if (eq ... ...) "keymap" (if ..= =3D . "Lisp macro" "Lisp function")))) ((or (eq (car-safe def) (quote macro)) (= =3D macrop function)) (concat beg "Lisp macro")) ((byte-code-function-p def) (c= =3D oncat beg "compiled Lisp function")) ((eq (car-safe def) (quote lambda)) (c= =3D oncat beg "Lisp function")) ((eq (car-safe def) (quote closure)) (concat be= =3D g "Lisp closure")) ((keymapp def) (let ((is-full nil) (elts ...)) (while el= =3D ts (if ... ...) (setq elts ...)) (concat beg (if is-full "keymap" "sparse k= =3D eymap")))) (t ""))) (if (and aliased (not (fboundp real-def))) (princ ",\nw= =3D hich is not defined. Please make a bug report.") (save-current-buffer (set= =3D -buffer standard-output) (save-excursion (let ((save-match-data-internal ..= =3D .)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ..= =3D .))))) (if file-name (progn (princ " in `") (princ (if (eq file-name ...) "= =3D C source code" (file-name-nondirectory file-name))) (princ "'") (save-curre= =3D nt-buffer (set-buffer standard-output) (save-excursion (re-search-backward = =3D "`\\([^`']+\\)'" nil t) (help-xref-button 1 ... function file-name))))) (pr= =3D inc ".") (save-current-buffer (set-buffer (help-buffer)) (fill-region-as-pa= =3D ragraph (save-excursion (goto-char pt1) (forward-line 0) (point)) (point)))= =3D (terpri) (terpri) (let* ((doc-raw (documentation function t)) (doc (progn = =3D (and ... doc-raw help-enable-auto-load ... ...) (substitute-command-keys do= =3D c-raw)))) (help-fns--key-bindings function) (save-current-buffer (set-buffe= =3D r standard-output) (setq doc (help-fns--signature function doc real-def rea= =3D l-function)) (run-hook-with-args (quote help-fns-describe-function-function= =3D s) function) (insert "\n" (or doc "Not documented."))))))) top-level) * describe-function-1(top-level) ... In GNU Emacs 24.4.50.1 (i686-pc-mingw32) of 2014-05-17 on ODIEONE Bzr revision: 117119 eggert@cs.ucla.edu-20140517081131-ugu7ociaoec2xk7y Windowing system distributor `Microsoft Corp.', version 6.1.7601 Configured using: `configure --prefix=3D3D/c/Devel/emacs/snapshot/trunk --enable-checking=3D3Dyes,glyphs 'CFLAGS=3D3D-O0 -g3' LDFLAGS=3D3D-Lc:/Devel/emacs/lib 'CPPFLAGS=3D3D-DGC_MCHECK=3D3D1 -Ic:/Devel/emacs/include'' From debbugs-submit-bounces@debbugs.gnu.org Thu Jun 19 17:48:41 2014 Received: (at control) by debbugs.gnu.org; 19 Jun 2014 21:48:41 +0000 Received: from localhost ([127.0.0.1]:53535 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WxkCG-0003KF-Vu for submit@debbugs.gnu.org; Thu, 19 Jun 2014 17:48:41 -0400 Received: from ironport2-out.teksavvy.com ([206.248.154.181]:38866) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WxkCE-0003Jz-Jn for control@debbugs.gnu.org; Thu, 19 Jun 2014 17:48:39 -0400 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: ArUGAIDvNVNLd+D9/2dsb2JhbABZgwaDSr0vgw6BFxd0giYBAQRWMws0EhQYDYgw0hkXjwEWhCIEqRmBaoNMIQ X-IPAS-Result: ArUGAIDvNVNLd+D9/2dsb2JhbABZgwaDSr0vgw6BFxd0giYBAQRWMws0EhQYDYgw0hkXjwEWhCIEqRmBaoNMIQ X-IronPort-AV: E=Sophos;i="4.97,753,1389762000"; d="scan'208";a="68441469" Received: from 75-119-224-253.dsl.teksavvy.com (HELO pastel.home) ([75.119.224.253]) by ironport2-out.teksavvy.com with ESMTP/TLS/ADH-AES256-SHA; 19 Jun 2014 17:48:32 -0400 Received: by pastel.home (Postfix, from userid 20848) id 7955861DB8; Thu, 19 Jun 2014 17:48:32 -0400 (EDT) From: Stefan Monnier To: control@debbugs.gnu.org Subject: Re: bug#17564: 24.4.50; REGRESSION: (wrong-type-argument arrayp C-source) Message-ID: References: Date: Thu, 19 Jun 2014 17:48:32 -0400 In-Reply-To: (Drew Adams's message of "Fri, 23 May 2014 11:03:48 -0700 (PDT)") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.3 (/) found 17564 24.3.91 severity 17564 important thanks From debbugs-submit-bounces@debbugs.gnu.org Tue Jun 24 20:49:33 2014 Received: (at 17564-done) by debbugs.gnu.org; 25 Jun 2014 00:49:33 +0000 Received: from localhost ([127.0.0.1]:59773 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WzbP2-0003eA-Rl for submit@debbugs.gnu.org; Tue, 24 Jun 2014 20:49:33 -0400 Received: from ironport2-out.teksavvy.com ([206.248.154.181]:57848) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WzbP0-0003dl-Mq for 17564-done@debbugs.gnu.org; Tue, 24 Jun 2014 20:49:31 -0400 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: ArYGAIDvNVNLd+D9/2dsb2JhbABZgwaDSr0vgw6BFxd0giUBAQEBAgFWIwULCzQSFBgNJIgECNIZF456B4Q4BKkZgWqDTCE X-IPAS-Result: ArYGAIDvNVNLd+D9/2dsb2JhbABZgwaDSr0vgw6BFxd0giUBAQEBAgFWIwULCzQSFBgNJIgECNIZF456B4Q4BKkZgWqDTCE X-IronPort-AV: E=Sophos;i="4.97,753,1389762000"; d="scan'208";a="69457732" Received: from 75-119-224-253.dsl.teksavvy.com (HELO ceviche.home) ([75.119.224.253]) by ironport2-out.teksavvy.com with ESMTP/TLS/ADH-AES256-SHA; 24 Jun 2014 20:49:24 -0400 Received: by ceviche.home (Postfix, from userid 20848) id 4CD2966167; Tue, 24 Jun 2014 20:49:24 -0400 (EDT) From: Stefan Monnier To: Drew Adams Subject: Re: bug#17564: 24.4.50; REGRESSION: (wrong-type-argument arrayp C-source) Message-ID: References: Date: Tue, 24 Jun 2014 20:49:24 -0400 In-Reply-To: (Drew Adams's message of "Fri, 23 May 2014 11:03:48 -0700 (PDT)") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 17564-done Cc: 17564-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.3 (/) > The code of `describe-function-1' seems to have changed to cause this > regression. In this sexp of `describe-function-1': > (and (or (byte-code-function-p def) > (keymapp def) > (memq (car-safe def) '(macro lambda closure))) > file-name > (help-fns--autoloaded-p function file-name)) > if the FUNCTION has been redefined, as below, each of the `and' clauses > returns non-nil leading up to `help-fns--autoloaded-p', and that > function fails because it is given `C-source' as its FILE-NAME arg. I installed a trivial patch to avoid this problem. > (or (fboundp '1on1-ORIG-top-level) > (fset '1on1-ORIG-top-level (symbol-function 'top-level))) > > (defun top-level () > "Exit all recursive editing levels." > (interactive) > ;; (1on1-color-minibuffer-frame-on-exit) > (1on1-ORIG-top-level)) Of course, using an advice here would be preferable. Stefan From unknown Fri Jun 20 07:09:37 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Wed, 23 Jul 2014 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator