[movitz-cvs] CVS movitz/losp/lib

Update of /project/movitz/cvsroot/movitz/losp/lib In directory clnet:/tmp/cvs-serv14937 Modified Files: readline.lisp Log Message: Don't modify condition. --- /project/movitz/cvsroot/movitz/losp/lib/readline.lisp 2005/10/31 09:17:07 1.8 +++ /project/movitz/cvsroot/movitz/losp/lib/readline.lisp 2007/03/11 22:43:46 1.9 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.8 2005/10/31 09:17:07 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.9 2007/03/11 22:43:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -128,15 +128,12 @@ (write-string buffer t :end end) (setf (cursor-x console) (+ cursor-origin pos))) (loop with previous-key-was-tab-p = nil - with keypress-condition = (when *readline-signal-keypresses* - (make-condition 'readline-keypress)) and displayed-completions-p = nil as key = (muerte:read-key console) do (with-saved-excursion (console) - (when keypress-condition - (setf (readline-keypress-key keypress-condition) key) + (when *readline-signal-keypresses* (with-simple-restart (continue "Proceed with interactive READLINE.") - (signal keypress-condition)))) + (signal 'readline-keypress :key key)))) (when (characterp key) (unless (char= key #\tab) (setf previous-key-was-tab-p nil))
participants (1)
-
ffjeld