/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by ejohnson, Fri Jan 7 14:59:15 2005 UTC revision 1.53 by ejohnson, Fri Jan 7 15:01:20 2005 UTC
# Line 350  Line 350 
350    (let* ((payne (win *application-frame*))    (let* ((payne (win *application-frame*))
351           (pnt (point payne))           (pnt (point payne))
352           (mrk (offset pnt)))           (mrk (offset pnt)))
353      (end-of-line pnt)      (if (end-of-line-p pnt)
354      (cond ((or (beginning-of-buffer-p pnt)          (forward-object pnt)
355                 (end-of-buffer-p pnt)) nil)          (progn
356            ((and (beginning-of-line-p pnt)            (end-of-line pnt)
357                  (end-of-line-p pnt))(forward-object pnt)))            (cond ((or (beginning-of-buffer-p pnt)
358                         (end-of-buffer-p pnt)) nil)
359                    ((beginning-of-line-p pnt)(forward-object pnt)))))
360      (if (eq (previous-command payne) 'com-kill-line)      (if (eq (previous-command payne) 'com-kill-line)
361          (kill-ring-concatenating-push *kill-ring*          (kill-ring-concatenating-push *kill-ring*
362                                        (region-to-sequence mrk pnt))                                        (region-to-sequence mrk pnt))

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

  ViewVC Help
Powered by ViewVC 1.1.5