[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv23423

Modified Files:
	motion.lisp 
Log Message:
Catch buffer motion conditions in `forward-one-line' and
`backward-one-line'.


--- /project/climacs/cvsroot/climacs/motion.lisp	2006/07/25 11:38:05	1.2
+++ /project/climacs/cvsroot/climacs/motion.lisp	2006/09/03 20:04:19	1.3
@@ -290,10 +290,11 @@
 (defmethod forward-one-line (mark syntax)
   (let ((column (column-number mark)))
     (end-of-line mark)
-    (cond ((forward-object mark)
-           (setf (column-number mark) column)
-           t)
-          (t nil))))
+    (handler-case (cond ((forward-object mark)
+                         (setf (column-number mark) column)
+                         t)
+                        (t nil))
+      (motion-after-end ()))))
 
 (defgeneric backward-one-line (mark syntax)
   (:documentation
@@ -303,10 +304,11 @@
 (defmethod backward-one-line (mark syntax)
   (let ((column (column-number mark)))
     (beginning-of-line mark)
-    (cond ((backward-object mark)
-           (setf (column-number mark) column)
-           t)
-          (t nil))))
+    (handler-case (cond ((backward-object mark)
+                         (setf (column-number mark) column)
+                         t)
+                        (t nil))
+      (motion-before-beginning ()))))
 
 (define-motion-fns line)