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))