[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)