Debug message fix

[sxemacs] / lisp / autoload.el

diff --git a/lisp/autoload.el b/lisp/autoload.el
index 52bbd4b..e2f38ea 100644 (file)
--- 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