[Linedit-cvs] CVS update: src/command-keys.lisp src/linedit.asd src/pool.lisp src/version.txt

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv30924

Modified Files:
	command-keys.lisp linedit.asd pool.lisp version.txt 
Log Message:
Added C-n and C-p as history bindings. Fixed building on Darwin. Fixed undo pool.
Date: Thu Oct 16 11:52:20 2003
Author: nsiivola

Index: src/command-keys.lisp
diff -u src/command-keys.lisp:1.3 src/command-keys.lisp:1.4
--- src/command-keys.lisp:1.3	Mon Sep 29 10:19:01 2003
+++ src/command-keys.lisp	Thu Oct 16 11:52:20 2003
@@ -41,9 +41,9 @@
 (defcommand "C-K" 'kill-to-eol)
 (defcommand "C-L")
 (defcommand "Return" 'finish-input)
-(defcommand "C-N")
+(defcommand "C-N" 'history-next)
 (defcommand "C-O")
-(defcommand "C-P")
+(defcommand "C-P" 'history-previous)
 (defcommand "C-Q")
 (defcommand "C-R")
 (defcommand "C-S")


Index: src/linedit.asd
diff -u src/linedit.asd:1.15 src/linedit.asd:1.16
--- src/linedit.asd:1.15	Mon Sep 29 15:28:36 2003
+++ src/linedit.asd	Thu Oct 16 11:52:20 2003
@@ -25,6 +25,10 @@
 
 (defvar *gcc* "/usr/bin/gcc")
 
+(defvar *gcc-options* '(#-darwin "-shared"
+			#+darwin "-bundle"
+			"-fPIC"))
+
 (defmethod output-files ((o compile-op) (c c-source-file))
   (list (make-pathname :name (component-name c)
 		       :type "so"
@@ -36,9 +40,10 @@
       (funcall loader f))))
 
 (defmethod perform ((o compile-op) (c c-source-file))
-  (unless (zerop (run-shell-command "~A ~A -shared -fPIC -o ~A"
+  (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A"
 				    *gcc*
 				    (namestring (component-pathname c))
+				    *gcc-options*
 				    (namestring (car (output-files o c)))))
     (error 'operation-error :component c :operation o)))
 


Index: src/pool.lisp
diff -u src/pool.lisp:1.2 src/pool.lisp:1.3
--- src/pool.lisp:1.2	Sun Sep 28 07:37:43 2003
+++ src/pool.lisp	Thu Oct 16 11:52:20 2003
@@ -51,5 +51,5 @@
     (vector-push-extend object store)))
 
 (defun rewind (pool)
-  (setf (%pool-index pool) (mod (1+ (%pool-index pool)) (pool-size pool)))
+  (setf (%pool-index pool) (mod (1+ (%pool-index pool)) (%pool-size pool)))
   (aref (%pool-store pool) (- (%pool-size pool) (%pool-index pool) 1)))


Index: src/version.txt
diff -u src/version.txt:1.4 src/version.txt:1.5
--- src/version.txt:1.4	Mon Sep 29 15:30:44 2003
+++ src/version.txt	Thu Oct 16 11:52:20 2003
@@ -1 +1 @@
-0.13
+0.13.2