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)