Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv19266

Modified Files: commands.lisp Log Message: Don't return a value from map-over-command-menu-items (was trickling down to make lookup-keystroke-item return nonsense in the case where lookup failed).

--- /project/mcclim/cvsroot/mcclim/commands.lisp 2007/01/17 12:09:46 1.70 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2007/03/20 01:39:29 1.71 @@ -403,7 +403,8 @@ menu-name (and (slot-boundp item 'keystroke) keystroke) item))) - (slot-value (find-command-table command-table) 'menu))) + (slot-value (find-command-table command-table) 'menu)) + (values))

;; At this point we should still see the gesture name as supplied by the ;; programmer in 'gesture'