(require 'custom)
-(defconst mime-user-interface-product ["EMIKO" (1 14 0) "Zoomastigophora"]
+(defconst mime-user-interface-product ["EMIKO" (1 14 1) "Choanoflagellata"]
"Product name, version number and code name of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
(setq function (lookup-key ,bogus-menu (apply #'vector selection)))
;; If a callback entry has no name, easy-menu wraps its value.
;; See `easy-menu-make-symbol'.
- (if (eq t (compare-strings "menu-function-" 0 nil (symbol-name function) 0 14))
+ (if (eq t (compare-strings "menu-function-" 0 nil
+ (symbol-name function) 0 14))
(car (last (symbol-function function)))
function)))))
(defun mime-popup-menu-select (menu &optional event)
(mime-popup-menu-bogus-filter-constructor menu)))
+(static-if (featurep 'xemacs)
+ (defun mime-should-use-popup-menu ()
+ (mouse-event-p last-command-event))
+ (defun mime-should-use-popup-menu ()
+ (memq (event-basic-type last-command-event) '(mouse-1 mouse-2 mouse-3))))
+
+(defun mime-menu-select (prompt menu &optional event)
+ (if (mime-should-use-popup-menu)
+ (mime-popup-menu-select menu event)
+ (let ((rest (cdr menu)))
+ (while rest
+ (setcar rest (append (car rest) nil))
+ (setq rest (cdr rest)))
+ (nth 1 (assoc (completing-read prompt (cdr menu)) (cdr menu))))))
+
;;; @ Other Utility
;;;