From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Glenn Morris Newsgroups: gmane.emacs.devel Subject: Re: loaddefs and provide Date: Wed, 04 Nov 2009 14:11:09 -0500 Message-ID: <9liqdqm7g2.fsf@fencepost.gnu.org> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1257361890 31920 80.91.229.12 (4 Nov 2009 19:11:30 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 4 Nov 2009 19:11:30 +0000 (UTC) Cc: emacs-devel@gnu.org To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Nov 04 20:11:23 2009 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.50) id 1N5lGM-00068H-Rt for ged-emacs-devel@m.gmane.org; Wed, 04 Nov 2009 20:11:23 +0100 Original-Received: from localhost ([127.0.0.1]:33755 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N5lGL-0002VN-Pl for ged-emacs-devel@m.gmane.org; Wed, 04 Nov 2009 14:11:21 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N5lGF-0002Uz-Jc for emacs-devel@gnu.org; Wed, 04 Nov 2009 14:11:15 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N5lGA-0002Tz-Pu for emacs-devel@gnu.org; Wed, 04 Nov 2009 14:11:15 -0500 Original-Received: from [199.232.76.173] (port=42540 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N5lGA-0002Tw-MK for emacs-devel@gnu.org; Wed, 04 Nov 2009 14:11:10 -0500 Original-Received: from fencepost.gnu.org ([140.186.70.10]:56908) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1N5lGA-0004zU-Bm for emacs-devel@gnu.org; Wed, 04 Nov 2009 14:11:10 -0500 Original-Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1N5lG9-0006CG-9p; Wed, 04 Nov 2009 14:11:09 -0500 X-Spook: Arnett Defcon morse enemy of the state CDC unclassified X-Ran: 4MKhl@ 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:116637 Archived-At: Stefan Monnier wrote: >>> Perhaps there could be an optional argument >> (to autoload-rubric, I meant) > >>From where would it be provided? In custom-make-dependencies and finder-compile-keywords, if I understand the question correctly. --- autoload.el 3 Nov 2009 21:45:31 -0000 1.151 +++ autoload.el 4 Nov 2009 18:48:43 -0000 @@ -253,16 +253,20 @@ (print-escape-nonascii t)) (print form outbuf))))))) -(defun autoload-rubric (file &optional type) +(defun autoload-rubric (file &optional type feature) "Return a string giving the appropriate autoload rubric for FILE. TYPE (default \"autoloads\") is a string stating the type of -information contained in FILE." +information contained in FILE. If FEATURE is non-nil, FILE +will provide a feature based on FILE." (let ((basename (file-name-nondirectory file))) (concat ";;; " basename " --- automatically extracted " (or type "autoloads") "\n" ";;\n" ";;; Code:\n\n" " \n" + (if feature + (concat "(provide '" (file-name-sans-extension basename) ")\n") + "") ";; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" --- cus-dep.el 5 Jan 2009 03:18:49 -0000 1.46 +++ cus-dep.el 4 Nov 2009 18:49:05 -0000 @@ -87,7 +87,7 @@ (setq buffer-undo-list t) (erase-buffer) (insert (autoload-rubric generated-custom-dependencies-file - "custom dependencies")) + "custom dependencies" t)) (search-backward " ") (mapatoms (lambda (symbol) (let ((members (get symbol 'custom-group)) --- finder.el 8 Mar 2009 19:54:32 -0000 1.82 +++ finder.el 4 Nov 2009 18:49:26 -0000 @@ -141,7 +141,7 @@ (setq buffer-undo-list t) (erase-buffer) (insert (autoload-rubric generated-finder-keywords-file - "keyword-to-package mapping")) + "keyword-to-package mapping" t)) (search-backward " ") (insert "(setq finder-package-info '(\n") (let (processed summary keywords)