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          (ret (catch 'exit
  14                 (loop
  15                  (frame-render (selected-frame))
  16                  (next-event)))))
  17     ;; return the ret val.
  18     (dformat +debug-v+ "ret ~a~%" ret)
  19     (when ret
  20       (signal 'quit))))
  21
  22 (provide :lice-0.1/recursive-edit)