anchor.diff:    "Show argument list for a given symbol."
     (show-arglist (current-syntax) symbol))
   
  -(define-command (com-space :command-table lisp-table)
  -    ()
  -  "Insert a space and display argument hints in the minibuffer."
  -  (insert-character #\Space)
  -  ;; We must update the syntax in order to reflect any changes to
  -  ;; the parse tree our insertion of a space character may have
  -  ;; done.
  +(define-command (com-self-insert-then-arglist :command-table lisp-table)
  +    ()
  +  "Insert the gesture used to invoke this command and display
  +argument hints in the minibuffer."
  +  (insert-character *current-gesture*)
     (show-arglist-for-form-at-mark (point) (current-syntax))
     (clear-completions))
  +
  +(define-command (com-newline-indent-then-arglist :command-table lisp-table) ()
  +  "Inserts a newline, indents the new line, then displays
  +argument hints in the minibuffer."
  +  (insert-object (point) #\Newline)
  +  (indent-current-line (current-view) (point))
  +  (show-arglist-for-form-at-mark (point) (current-syntax)))
   
   (define-command (com-complete-symbol :name t :command-table lisp-table)
       ()
  
positive.code:          'lisp-table
           '((#\c :control) (#\d :control) (#\a)))
  
  (set-key 'com-space
           'lisp-table
           '((#\Space)))
  
  (set-key 'com-complete-symbol
           'lisp-table
           '((#\Tab :meta)))
  
negative.code:          'lisp-table
           '((#\Tab)))
  
  (set-key 'com-newline-indent-then-arglist
           'lisp-table
           '(#\Newline))
  
  