[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