[climacs-cvs] CVS update: climacs/gui.lisp

Elliott Johnson ejohnson at common-lisp.net
Fri Jan 7 15:01:29 UTC 2005


Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv22222

Modified Files:
	gui.lisp 
Log Message:
Lets try this again
Date: Fri Jan  7 16:01:23 2005
Author: ejohnson

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.52 climacs/gui.lisp:1.53
--- climacs/gui.lisp:1.52	Fri Jan  7 15:59:15 2005
+++ climacs/gui.lisp	Fri Jan  7 16:01:20 2005
@@ -350,11 +350,13 @@
   (let* ((payne (win *application-frame*))
 	 (pnt (point payne))
          (mrk (offset pnt)))
-    (end-of-line pnt)
-    (cond ((or (beginning-of-buffer-p pnt)
-	       (end-of-buffer-p pnt)) nil)
-	  ((and (beginning-of-line-p pnt)
-		(end-of-line-p pnt))(forward-object pnt)))
+    (if (end-of-line-p pnt)
+	(forward-object pnt)
+	(progn
+	  (end-of-line pnt)
+	  (cond ((or (beginning-of-buffer-p pnt)
+		     (end-of-buffer-p pnt)) nil)
+		((beginning-of-line-p pnt)(forward-object pnt)))))
     (if (eq (previous-command payne) 'com-kill-line)
 	(kill-ring-concatenating-push *kill-ring*
 				      (region-to-sequence mrk pnt))




More information about the Climacs-cvs mailing list