 ;; Copyright (C) 2005-2009, Drew Adams, all rights reserved.
 ;; Created: Fri Aug 12 17:18:02 2005
 ;; Version: 22.0
-;; Last-Updated: Tue Apr  7 15:01:54 2009 (-0700)
+;; Last-Updated: Wed Jul 29 22:41:08 2009 (-0700)
 ;;           By: dradams
-;;     Update #: 465
+;;     Update #: 489
 ;; URL: http://www.emacswiki.org/cgi-bin/wiki/lacarte.el
 ;; Keywords: menu-bar, menu, command, help, abbrev, minibuffer, keys,
 ;;           completion, matching, local, internal, extensions,

 
;;; Internal Variables -------------------------------------

;; This is used also in `icicle-help-on-candidate', which is defined in Icicles
;; (library `icicles-mcmd.el').
(defvar lacarte-menu-items-alist nil

       (progn
         (setq lacarte-menu-items-alist (lacarte-get-overall-menu-item-alist))
         (let* ((completion-ignore-case t) ; Not case-sensitive, by default.
                (menu-item (completing-read "Menu command: " lacarte-menu-items-alist
                                            nil t nil 'lacarte-history))
                (cmd (cdr (assoc menu-item lacarte-menu-items-alist))))
           (unless cmd (error "No such menu command"))
           ;; Treat special cases of `last-command-event', reconstructing it for
