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

Diff of /climacs/gui.lisp

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

revision 1.208 by crhodes, Mon Mar 27 15:43:17 2006 UTC revision 1.209 by crhodes, Mon Mar 27 15:54:31 2006 UTC
# Line 462  Line 462 
462       ;; Always need one buffer.       ;; Always need one buffer.
463       (when (null buffers)       (when (null buffers)
464         (make-buffer "*scratch*"))         (make-buffer "*scratch*"))
465       (setf (buffer (current-window)) (car buffers))))       (setf (buffer (current-window)) (car buffers))
466         (full-redisplay (current-window))
467         (buffer (current-window))))
468    
469  (defmethod kill-buffer ((name string))  (defmethod kill-buffer ((name string))
470    (let ((buffer (find name (buffers *application-frame*)    (let ((buffer (find name (buffers *application-frame*)

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

  ViewVC Help
Powered by ViewVC 1.1.5