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

Diff of /climacs/gui.lisp

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

revision 1.81 by rstrandh, Tue Jan 18 06:55:47 2005 UTC revision 1.82 by abakic, Tue Jan 18 18:59:51 2005 UTC
# Line 340  Line 340 
340        ;; If the current line is at the end of the buffer, we want to        ;; If the current line is at the end of the buffer, we want to
341        ;; be able to insert past it, so we need to get an extra line        ;; be able to insert past it, so we need to get an extra line
342        ;; at the end.        ;; at the end.
343        (when (progn (end-of-line point)        (end-of-line point)
344                     (end-of-buffer-p point))        (when (end-of-buffer-p point)
345          (insert-object point #\Newline))          (insert-object point #\Newline))
346        (next-line point)        (next-line point 0)
347        (insert-sequence point line)        (insert-sequence point line)
348        (insert-object point #\Newline))))        (insert-object point #\Newline))))
349    

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

  ViewVC Help
Powered by ViewVC 1.1.5