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

Diff of /climacs/gui.lisp

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

revision 1.75 by rstrandh, Mon Jan 17 07:10:19 2005 UTC revision 1.76 by rstrandh, Mon Jan 17 08:04:44 2005 UTC
# Line 558  Line 558 
558                           :value-key #'identity))                           :value-key #'identity))
559                        :partial-completers '(#\Space)                        :partial-completers '(#\Space)
560                        :allow-any-input t)                        :allow-any-input t)
561      (declare (ignore success string))      (declare (ignore success))
562      object))      (or object
563            (car (push (make-instance 'climacs-buffer :name string)
564                       (buffers *application-frame*))))))
565    
566  (define-named-command com-switch-to-buffer ()  (define-named-command com-switch-to-buffer ()
567    (let ((buffer (accept 'buffer    (let ((buffer (accept 'buffer

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5