how to use define-minor-mode

I am finally getting back to packaging a recent version of MH-E, and I've run into a problem. I get the following error when trying to compile the package tree with the new MH-E: ... !! Wrong type argument ((char-or-string-p nil)) backtrace(nil t) # bind (error-info) byte-compile-report-error((wrong-type-argument char-or-string-p nil)) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((wrong-type-argument char-or-string-p nil)) capitalize(nil) # bind (case-fold-search lighter mode) easy-mmode-pretty-mode-name(mh-showing-mode nil) # bind (mode-name body keymap lighter init-value doc mode) #<compiled-function (mode doc &optional init-value lighter keymap &rest body) "...(660)" [lighter group mode-name keymap mode body keywordp nil symbol-name easy-mmode-pretty-mode-name t intern "-map" "-hook" "-on-hook" "-off-hook" :init-value :lighter :global :extra-args :group :require quote replace-regexp-in-string "-mode\\'" "" progn defvar format "Non-nil if %s is enabled.\nUse the command `%s' to change this variable." make-variable-buffer-local boundp byte-compile-current-file defcustom "Non-nil if %s is enabled.\nSee the command `%s' for a description of this minor-mode.\nSetting this variable directly does not take effect;\nuse either \\[customize] or the function `%s'." :set (lambda ... ...) :initialize (quote custom-initialize-default) append :type (quote boolean) file-name-nondirectory file-name-sans-extension defun &optional arg "Toggle %s on or off.\nInteractively, with no prefix argument, toggle the mode.\nWith universal prefix ARG turn mode on.\nWith zero or! negative ARG turn mode off.\n\\{%s}" (interactive ...) let old-mode setq cond (eq arg ...) not (arg ...) if null message "Toggling %s off; better pass an explicit argument." (nil) and equal run-hooks init-value keymap-sym G67102 pretty-name require globalp hook hook-on hook-off extra-args curfile load-file-name doc (interactive-p) "%s %%sabled" ("en" "dis") (force-mode-line-update) "Hook run at the end of function `%s'." (:type ...) "Hook to run when entering %s." (:type ...) "Hook to run when exiting %s." (:type ...) m (... m) (... ...) error "Invalid keymap %S" "Keymap for `%s'." add-minor-mode symbol-value (...) eval-after-load (1 -1)] 23 ("/home/kupfer/xemacs/ws/packages.mhe83.old/xemacs-packages/xemacs-base/easy-mmode.elc" . 2632)>(mh-showing-mode "Minor mode to show the message in a separate window." :lighter " Show") (define-minor-mode mh-showing-mode "Minor mode to show the message in a separate window." :lighter " Show") # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("mh-e" nil t nil nil nil) # bind (nosuffix nomessage noerror file) load("mh-e" nil t nil) # (unwind-protect ...) require(mh-e) eval((require (quote mh-e))) ... I don't understand what's going on here. mh-e.el has (define-minor-mode mh-showing-mode "Minor mode to show the message in a separate window." ;; FIXME: maybe this should be moved to mh-show.el. :lighter " Show") which seems a lot like other invocations of define-minor-mode. If I'm reading the backtrace properly (and if my meager knowledge of Lisp isn't leading me astray), I should be able to reproduce the failure by starting XEmacs 21.4.22 with -vanilla, doing M-x load-lib RET easy-mmode RET and then evaluating (easy-mmode-pretty-mode-name 'mh-showing-mode nil) Yet this produces "Mh-Showing mode", rather than an error. Help! OS is Xubuntu 12.04, x86_64, FWIW. thanks, mike _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta