src/recursive-edit.lisp

   1 ;;; Implement the recursive edit.
   2
   3 (in-package "LICE")
   4
   5 (defvar *recursive-edit-depth* 0
   6   "The current recursive-edit depth.")
   7
   8 ;; TODO: Restore the window/buffer layout
   9 (defun recursive-edit ()
  10   (let* ((*recursive-edit-depth* (1+ *recursive-edit-depth*))
  11          ;; reset the command keys for the recursive edit
  12          (*this-command-keys* nil)
  13          ;; restore the last command
  14          (*last-command* *last-command*)
  15          (ret (catch 'exit
  16                 (with-lice-debugger
  17                     (command-loop)))))
  18     ;; return the ret val.
  19     (dformat +debug-v+ "ret ~a~%" ret)
  20     (when ret
  21       (signal 'quit))))
  22
  23 (provide :lice-0.1/recursive-edit)