anchor.diff:        (accelerator-gesture (c)
           ;; If lookup-keystroke-item below returns a partial command, invoke the
           ;; partial command parser to complete it.
  -        (let ((command                            
  +        (let ((command
                  (lookup-keystroke-command-item (accelerator-gesture-event c)
                                                 command-table)))
             (if (partial-command-p command)
  
positive.code: 			 ;; XXX What about the :menu case?
  			 (otherwise nil))))
  	  (if command
                ; Return a literal command, or create a partial command from a command-name              
  	      (substitute-numeric-argument-marker (if (symbolp command)
                                                        (partial-command-from-name command)
                                                        command)
  
negative.code: 	(*partial-command-parser* partial-command-parser))
      (cond (use-keystrokes
  	   (let ((stroke-result
                    (read-command-using-keystrokes command-table
                                                   (compute-inherited-keystrokes command-table)
                                                   :stream stream)))
  	     (if (consp stroke-result)
  		 stroke-result
  		 nil)))
  