autoload generation differences in XEmacs and Emacs

autoload generation differences in XEmacs and Emacs

[Mark Thomas]

[-- Attachment #1: Type: text/plain, Size: 845 bytes --]


I did a cvs update at 11am EST this morning, and now get a backtrace
when I
  (require 'gnus-load)
in XEmacs 21.4.11.

The problem appears to be that Emacs and XEmacs generate something
very different for the mail-sources autoload in gnus-load.el.

The Emacs version of the mail-sources autoload is this simple defvar
form:
    (defvar mail-sources nil "\
    *Where the mail backends will look for incoming mail.
    This variable is a list of mail source specifiers.
    See Info node `(gnus)Mail Source Specifiers'.")

The XEmacs version of the mail-sources autoload pulls the entire
defcustom form from mail-source.el; this form includes variables that
are unbound in gnus-load.el, and that produces the attached backtrace.

I can take this to the XEmacs folks, but can we work around it in the
Gnus code in the meantime?

Thanks,

-Mark



[-- Attachment #2: Backtrace when require 'gnus-load --]
[-- Type: text/plain, Size: 4511 bytes --]

Signaling: (void-variable mail-source-imap-streams)
  (cons (quote network) mail-source-imap-streams)
  (cons (quote :value) (cons (quote network) mail-source-imap-streams))
  (cons (quote "Stream") (cons (quote :value) (cons ... mail-source-imap-streams)))
  (cons (quote :tag) (cons (quote "Stream") (cons ... ...)))
  (cons (quote choice) (cons (quote :tag) (cons ... ...)))
  (bq-list* (quote choice) (quote :tag) (quote "Stream") (quote :value) (quote network) mail-source-imap-streams)
  (list (quote group) (quote :inline) t (quote (const :format "" :value :stream)) (bq-list* (quote choice) (quote :tag) (quote "Stream") (quote :value) (quote network) mail-source-imap-streams))
  (cons (list (quote group) (quote :inline) t (quote ...) (bq-list* ... ... ... ... ... mail-source-imap-streams)) (cons (quote ...) (cons ... ...)))
  (cons (quote (group :inline t ... ...)) (cons (list ... ... t ... ...) (cons ... ...)))
  (cons (quote (group :inline t ... ...)) (cons (quote ...) (cons ... ...)))
  (cons (quote (group :inline t ... ...)) (cons (quote ...) (cons ... ...)))
  (cons (quote (group :inline t ... ...)) (cons (quote ...) (cons ... ...)))
  (cons t (cons (quote ...) (cons ... ...)))
  (cons (quote :greedy) (cons t (cons ... ...)))
  (cons (quote "Options") (cons (quote :greedy) (cons t ...)))
  (cons (quote :tag) (cons (quote "Options") (cons ... ...)))
  (cons (quote checklist) (cons (quote :tag) (cons ... ...)))
  (bq-list* (quote checklist) (quote :tag) (quote "Options") (quote :greedy) t (quote (group :inline t ... ...)) (quote (group :inline t ... ...)) (quote (group :inline t ... ...)) (quote (group :inline t ... ...)) (list (quote group) (quote :inline) t (quote ...) (bq-list* ... ... ... ... ... mail-source-imap-streams)) (quote (group :inline t ... ...)) (list (quote group) (quote :inline) t (quote ...) (bq-list* ... ... ... ... ... mail-source-imap-authenticators)) (quote (... ... ... ... ...)))
  (list (quote cons) (quote :tag) (quote "IMAP server") (quote (const :format "" imap)) (bq-list* (quote checklist) (quote :tag) (quote "Options") (quote :greedy) t (quote ...) (quote ...) (quote ...) (quote ...) (list ... ... t ... ...) (quote ...) (list ... ... t ... ...) (quote ...)))
  (cons (list (quote cons) (quote :tag) (quote "IMAP server") (quote ...) (bq-list* ... ... ... ... t ... ... ... ... ... ... ... ...)) (quote (...)))
  (cons (quote (cons :tag "Maildir (qmail, postfix...)" ... ...)) (cons (list ... ... ... ... ...) (quote ...)))
  (cons (quote (cons :tag "POP3 server" ... ...)) (cons (quote ...) (cons ... ...)))
  (cons (quote (cons :tag "Several files in a directory" ... ...)) (cons (quote ...) (cons ... ...)))
  (cons (quote (cons :tag "Spool file" ... ...)) (cons (quote ...) (cons ... ...)))
  (cons (quote (file)) (cons (quote ...) (cons ... ...)))
  (cons (quote :value) (cons (quote ...) (cons ... ...)))
  (cons (quote "%[Value Menu%] %v") (cons (quote :value) (cons ... ...)))
  (cons (quote :format) (cons (quote "%[Value Menu%] %v") (cons ... ...)))
  (cons (quote choice) (cons (quote :format) (cons ... ...)))
  (bq-list* (quote choice) (quote :format) (quote "%[Value Menu%] %v") (quote :value) (quote (file)) (quote (cons :tag "Spool file" ... ...)) (quote (cons :tag "Several files in a directory" ... ...)) (quote (cons :tag "POP3 server" ... ...)) (quote (cons :tag "Maildir (qmail, postfix...)" ... ...)) (list (quote cons) (quote :tag) (quote "IMAP server") (quote ...) (bq-list* ... ... ... ... t ... ... ... ... ... ... ... ...)) (quote (...)))
  (list (quote repeat) (bq-list* (quote choice) (quote :format) (quote "%[Value Menu%] %v") (quote :value) (quote ...) (quote ...) (quote ...) (quote ...) (quote ...) (list ... ... ... ... ...) (quote ...)))
  (backquote (repeat (choice :format "%[Value Menu%] %v" :value ... ... ... ... ... ... ...)))
  (custom-declare-variable (quote mail-sources) (quote nil) "*Where the mail backends will look for incoming mail.\nThis variable is a list of mail source specifiers.\nSee Info node `(gnus)Mail Source Specifiers'." :group (quote mail-source) :link (quote (custom-manual "(gnus)Mail Source Specifiers")) :type (backquote (repeat ...)))
  load-internal("gnus-load" nil t nil binary)
  load("gnus-load" nil t nil)
  require(gnus-load)
  eval((require (quote gnus-load)))
  eval-interactive((require (quote gnus-load)))
  eval-last-sexp(t)
  #<compiled-function nil "...(13)" [standard-output terpri eval-last-sexp t] 2 986498 nil>()
  call-interactively(eval-print-last-sexp)

Re: autoload generation differences in XEmacs and Emacs

[Lars Magne Ingebrigtsen]

Mark Thomas <swoon@bellatlantic.net> writes:

> The XEmacs version of the mail-sources autoload pulls the entire
> defcustom form from mail-source.el; this form includes variables that
> are unbound in gnus-load.el, and that produces the attached backtrace.

That probably explains why we haven't autoloaded other variables.  :-)

> I can take this to the XEmacs folks, but can we work around it in the
> Gnus code in the meantime?

I've now removed the autoload.

Suggestions for a real fix are welcome...

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen