anchor.diff:  ;;; This file is licensed under license documents/external/LICENSE1.
   
   (in-package :next)
  +
  +(defvar *last-used-commands* nil
  +  "A list of last used commands by the user. Most recent first.")
   
   (define-condition documentation-style-warning (style-warning)
     ((name :initarg :name :reader name)
  
positive.code:   (closer-mop:generic-function-name
     (closer-mop:method-generic-function command)))
  
  (defun command-complete (input)
    (fuzzy-match input
                 (mapcar #'command-symbol
                         (delete-duplicates
                          (loop for mode in (modes (active-buffer *interface*))
                                append (list-commands (class-name (class-of mode))))))))
  
  (define-command execute-command ()
    "Execute a command by name."
  
negative.code:                            (member command (mapcar #'command-symbol
                                                     (list-commands (class-name (class-of mode))))))
                           (modes (active-buffer *interface*)))))
        (push command *last-used-commands*)
        (funcall command mode))))
  