From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Glenn Morris Newsgroups: gmane.emacs.bugs Subject: bug#4473: after-load-functions: files are not absolute, some are missed Date: Thu, 17 Sep 2009 19:02:51 -0400 Message-ID: Reply-To: Glenn Morris , 4473@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1253230043 10655 80.91.229.12 (17 Sep 2009 23:27:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 17 Sep 2009 23:27:23 +0000 (UTC) To: bug-gnu-emacs@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Sep 18 01:27:16 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MoQNf-0003kg-Op for geb-bug-gnu-emacs@m.gmane.org; Fri, 18 Sep 2009 01:27:16 +0200 Original-Received: from localhost ([127.0.0.1]:45508 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MoQNf-0003Wy-4W for geb-bug-gnu-emacs@m.gmane.org; Thu, 17 Sep 2009 19:27:15 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MoQNa-0003Wt-Q3 for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:27:10 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MoQNW-0003Wh-Bg for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:27:10 -0400 Original-Received: from [199.232.76.173] (port=51337 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MoQNW-0003We-3C for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:27:06 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:53413) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MoQNV-0004J3-K0 for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:27:05 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n8HNR1Ex022469; Thu, 17 Sep 2009 16:27:01 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.14.3/8.14.3/Submit) id n8HNAGVs020118; Thu, 17 Sep 2009 16:10:17 -0700 Resent-Date: Thu, 17 Sep 2009 16:10:17 -0700 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: Glenn Morris Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs 2Resent-Date: Thu, 17 Sep 2009 23:10:15 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: report 4473 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.125322858018450 (code B ref -1); Thu, 17 Sep 2009 23:10:15 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 17 Sep 2009 23:03:00 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n8HN2vUw018447 for ; Thu, 17 Sep 2009 16:02:59 -0700 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MoQ09-00050u-G3 for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:02:57 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MoQ05-000507-0C for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:02:56 -0400 Original-Received: from [199.232.76.173] (port=58017 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MoQ04-000504-Qs for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:02:52 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]:60403) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MoQ04-0007mh-Ch for bug-gnu-emacs@gnu.org; Thu, 17 Sep 2009 19:02:52 -0400 Original-Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1MoQ03-0000Mt-T7; Thu, 17 Sep 2009 19:02:52 -0400 X-Spook: EuroFed Khaddafi Audiotel PGP Zachawi White Water ASDIC X-Ran: Lu!B8rGXg3=/`3?SjI$HfBp5c60-P*tZ(MnF2ca[@G6AsU)K4;mXI#5QP'NMr-4-PK*>@^ X-Hue: green X-Attribution: GM User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 2) Resent-Date: Thu, 17 Sep 2009 19:27:10 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:31192 Archived-At: In the current CVS trunk, I found myself having a (slight) need for a list of the dumped lisp files. I thought a simple patch like the following would work, but it has some problems: i) the file names stored are not absolute, though the doc of after-load-functions says they should be. (It's actually better in this case that they are non-absolute, but it conflicts with the doc.) ii) some files are missing. It turns out it is the non-compiled ones loaded after the setting of load-source-file-function. If this is non-nil, looks like Fload returns before running `after-load-functions'? *** loadup.el 15 Sep 2009 03:46:08 -0000 1.184 --- loadup.el 17 Sep 2009 22:57:00 -0000 *************** *** 64,69 **** --- 64,79 ---- ;; implemented in subr.el. (add-hook 'after-load-functions '(lambda (f) (garbage-collect))) + (defvar dumped-lisp-files nil + "List of Lisp files dumped with (i.e., compiled into) this Emacs.") + + (or dumped-lisp-files + (progn + (setq dumped-lisp-files '("subr" "emacs-lisp/backquote" + "emacs-lisp/byte-run")) + (add-hook 'after-load-functions + '(lambda (f) (add-to-list 'dumped-lisp-files f))))) + ;; We specify .el in case someone compiled version.el by mistake. (load "version.el") *************** *** 318,323 **** --- 328,335 ---- (equal (nth 4 command-line-args) "bootstrap")) (setcdr load-path nil)) + (remove-hook 'after-load-functions + '(lambda (f) (add-to-list 'dumped-lisp-files f))) (remove-hook 'after-load-functions '(lambda (f) (garbage-collect))) (setq inhibit-load-charset-map nil)