90 |
(cond |
(cond |
91 |
((mh-variant-set-variant 'nmh) |
((mh-variant-set-variant 'nmh) |
92 |
(message "%s installed as MH variant" mh-variant-in-use)) |
(message "%s installed as MH variant" mh-variant-in-use)) |
93 |
((mh-variant-set-variant 'MH) |
((mh-variant-set-variant 'mh) |
94 |
(message "%s installed as MH variant" mh-variant-in-use)) |
(message "%s installed as MH variant" mh-variant-in-use)) |
95 |
((mh-variant-set-variant 'mu-mh) |
((mh-variant-set-variant 'mu-mh) |
96 |
(message "%s installed as MH variant" mh-variant-in-use)) |
(message "%s installed as MH variant" mh-variant-in-use)) |
145 |
;;;###mh-autoload |
;;;###mh-autoload |
146 |
(defun mh-variant-p (&rest variants) |
(defun mh-variant-p (&rest variants) |
147 |
"Return t if variant is any of VARIANTS. |
"Return t if variant is any of VARIANTS. |
148 |
Currently known variants are 'mh and 'nmh." |
Currently known variants are 'MH, 'nmh, and 'mu-mh." |
149 |
(let ((variant-in-use |
(let ((variant-in-use |
150 |
(cadr (assoc 'variant (assoc mh-variant-in-use mh-variants))))) |
(cadr (assoc 'variant (assoc mh-variant-in-use mh-variants))))) |
151 |
(not (null (member variant-in-use variants))))) |
(not (null (member variant-in-use variants))))) |