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