Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv14784

Modified Files: gui.lisp Log Message: a very small fix. Fixnum was a bad choice here. Integer works much nicer Date: Mon Jan 3 14:36:34 2005 Author: ejohnson

Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.45 climacs/gui.lisp:1.46 --- climacs/gui.lisp:1.45 Mon Jan 3 13:21:19 2005 +++ climacs/gui.lisp Mon Jan 3 14:36:34 2005 @@ -553,7 +553,7 @@

;; Not bound to a key yet (define-named-command com-kr-resize () - (let ((size (accept 'fixnum :prompt "New kill ring size: "))) + (let ((size (accept 'integer :prompt "New kill ring size"))) (kr-resize *kill-ring* size)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;