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: ht(a)inf.ed.ac.uk
URL:
http://www.ltg.ed.ac.uk/~ht/
[mail from me _always_ has a .sig like this -- mail without it is forged spam]
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta