[climacs-cvs] CVS update: climacs/gui.lisp

Elliott Johnson ejohnson at common-lisp.net
Mon Jan 3 13:36:35 UTC 2005


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)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




More information about the Climacs-cvs mailing list