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

[Elliott Johnson]

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

Modified Files:
	gui.lisp 
Log Message:
Now C-k dosn't kill newlines be default and does kill newlines if kills are performed at the end of line.  Good stuff :)
Date: Fri Jan  7 15:59:15 2005
Author: ejohnson

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.51 climacs/gui.lisp:1.52
--- climacs/gui.lisp:1.51	Fri Jan  7 15:29:05 2005
+++ climacs/gui.lisp	Fri Jan  7 15:59:15 2005
@@ -353,7 +353,8 @@
     (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)))
+	  ((and (beginning-of-line-p pnt)
+		(end-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))