Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv21518/Drei

Modified Files: motion.lisp Log Message: Make paragraph-movement commands move the beginning or end of buffer even if no paragraph delimiter can be found.

--- /project/mcclim/cvsroot/mcclim/Drei/motion.lisp 2008/01/05 20:08:32 1.6 +++ /project/mcclim/cvsroot/mcclim/Drei/motion.lisp 2008/01/15 06:55:30 1.7 @@ -476,10 +476,9 @@ (unless (beginning-of-buffer-p mark) (backward-object mark 1) (if (search-backward mark (coerce (paragraph-delimiter syntax) 'vector)) - (progn (forward-object mark (length (paragraph-delimiter syntax))) - t) - (progn (beginning-of-buffer mark) - nil)))) + (forward-object mark (length (paragraph-delimiter syntax))) + (beginning-of-buffer mark)) + t))

(defgeneric forward-one-paragraph (mark syntax) (:documentation @@ -490,10 +489,9 @@ (unless (end-of-buffer-p mark) (forward-object mark 1) (if (search-forward mark (coerce (paragraph-delimiter syntax) 'vector)) - (progn (backward-object mark (length (paragraph-delimiter syntax))) - t) - (progn (end-of-buffer mark) - nil)))) + (backward-object mark (length (paragraph-delimiter syntax))) + (end-of-buffer mark)) + t))

(define-motion-fns paragraph)