From: Steve Youngs <steve@sxemacs.org>
Date: Fri, 10 Jul 2015 12:21:17 +0000 (+1000)
Subject: Handle immediate autoloads (';;;###autoloadimmediate') better.
X-Git-Tag: v22.1.16~20
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=e01219e73541a41ecd5c8739e59a07b5ffb89752;p=sxemacs

Handle immediate autoloads (';;;###autoloadimmediate') better.

	* lisp/autoload.el (process-one-lisp-autoload): Insert <immediate>
	into the section header for immediate autoloads, to make sure the
	upstream doesn't think there aren't any autoloads at all.

	From: Mike Sperber  <mike@xemacs.org>

Signed-off-by: Steve Youngs <steve@sxemacs.org>
---

diff --git a/lisp/autoload.el b/lisp/autoload.el
index 52bbd4b..e2f38ea 100644
--- a/lisp/autoload.el
+++ b/lisp/autoload.el
@@ -550,7 +550,8 @@ Updates AUTOLOADS-DONE and returns the new value."
 	   (let ((begin (point)))
 	     (forward-sexp)
 	     (forward-line 1)
-	     (princ (buffer-substring begin (point)) outbuf)))
+	     (princ (buffer-substring begin (point)) outbuf))
+	   (setq autoloads-done (cons '<immediate> autoloads-done)))
 	  (t
 	   (princ (buffer-substring
 		   (progn