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

Diff of /climacs/gui.lisp

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

revision 1.221 by thenriksen, Fri Jul 21 06:25:45 2006 UTC revision 1.222 by thenriksen, Sat Jul 22 20:35:06 2006 UTC
# Line 432  Signals and error if the file does not e Line 432  Signals and error if the file does not e
432    (let* ((buffers (buffers *application-frame*))    (let* ((buffers (buffers *application-frame*))
433           (position (position buffer buffers))           (position (position buffer buffers))
434           (pane (current-window)))           (pane (current-window)))
435      (if position      (when position
436          (rotatef (car buffers) (nth position buffers))        (setf buffers (delete buffer buffers)))
437          (push buffer (buffers *application-frame*)))      (push buffer (buffers *application-frame*))
438      (setf (offset (point (buffer pane))) (offset (point pane)))      (setf (offset (point (buffer pane))) (offset (point pane)))
439      (setf (buffer pane) buffer)      (setf (buffer pane) buffer)
440      (full-redisplay pane)      (full-redisplay pane)

Legend:
Removed from v.1.221  
changed lines
  Added in v.1.222

  ViewVC Help
Powered by ViewVC 1.1.5