[Linedit-cvs] CVS src

[nsiivola]

Update of /project/linedit/cvsroot/src
In directory clnet:/tmp/cvs-serv32660

Modified Files:
	terminal.lisp version.lisp-expr 
Log Message:
Patch by Lui Fungsin for divide-by-zero errors.

--- /project/linedit/cvsroot/src/terminal.lisp	2004/03/05 18:21:36	1.7
+++ /project/linedit/cvsroot/src/terminal.lisp	2007/03/18 01:26:01	1.8
@@ -30,7 +30,10 @@
   :returning :int)
 
 (defmethod backend-columns ((backend terminal))
-  (c-terminal-columns *default-columns*))
+  (let ((cols (c-terminal-columns *default-columns*)))
+    (if (> cols 0)
+        cols
+        *default-columns*)))
 
 (uffi:def-function ("linedit_terminal_lines" c-terminal-lines)
     ((default :int))
--- /project/linedit/cvsroot/src/version.lisp-expr	2004/04/25 12:25:47	1.15
+++ /project/linedit/cvsroot/src/version.lisp-expr	2007/03/18 01:26:01	1.16
@@ -1 +1 @@
-0.15.12
+0.15.13