Re: XEmacs nox11 startup issue

Hauke Fath writes:

> On Mon, 9 Nov 2015 10:29:52 -0500, Vin Shelton wrote:
>> OK, so I guess the problem is with autoloads, probably in
>> guided-tour.el, according to your previous sleuthing.
>
> Hm. It appears to boil down to this little gem from guided-tour.el:
>
> ;; #### this probably should move to help.el or menubar-items.el
> (defun guided-tour-find-menubar-help-menu (&optional menubar)
>   "Return the Help submenu for MENUBAR if present, else nil."
>   (assoc "%_Help" (or menubar default-menubar)))
>
> which does not like default-menubar to be undefined (or evaluating to 
> nil, if previously defvar'ed). 
>
> At the top of the file, I
>
> (setq debug-on-error t)
>
> and then tried something along the lines of 
>
> (defun guided-tour-find-menubar-help-menu (&optional menubar)
>   (when (boundp 'default-menubar)
>      ((assoc "%_Help" (or menubar default-menubar))))
>
> but all I get is a (wrong-type-argument consp nil).

One too many pairs of parens, I'm guessing.  You want

(defun guided-tour-find-menubar-help-menu (&optional menubar)
   (when (boundp 'default-menubar)
      (assoc "%_Help" (or menubar default-menubar))))

ht
-- 
       Henry S. Thompson, School of Informatics, University of Edinburgh
      10 Crichton Street, Edinburgh EH8 9AB, SCOTLAND -- (44) 131 650-4440
                Fax: (44) 131 650-4587, e-mail: [email protected]
                       URL: http://www.ltg.ed.ac.uk/~ht/
 [mail from me _always_ has a .sig like this -- mail without it is forged spam]