anchor.diff:  	(*partial-command-parser* partial-command-parser))
       (cond (use-keystrokes
   	   (let ((stroke-result
  -		  (with-command-table-keystrokes (strokes command-table)
  -		    (read-command-using-keystrokes command-table
  -						   strokes
  -						   :stream stream))))
  +                  (read-command-using-keystrokes command-table
  +                                                 (compute-inherited-keystrokes command-table)
  +                                                 :stream stream)))
   	     (if (consp stroke-result)
   		 stroke-result
   		 nil)))
  
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: 	     fun (find-command-table inherited-command-table)))
  	(command-table-inherit-from command-table)))
  
   ;;; do-command-table-inheritance has been shipped off to utils.lisp.
  
  (defun map-over-command-table-commands (function command-table
  					&key (inherited t))
  