/[climacs]/climacs/file-commands.lisp
ViewVC logotype

Diff of /climacs/file-commands.lisp

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

revision 1.29 by thenriksen, Sat Dec 8 08:55:06 2007 UTC revision 1.30 by thenriksen, Sat Jan 26 23:06:04 2008 UTC
# Line 137  Signals and error if the file does not e Line 137  Signals and error if the file does not e
137  ;;; Buffer commands  ;;; Buffer commands
138    
139  (define-command (com-switch-to-view :name t :command-table pane-table)  (define-command (com-switch-to-view :name t :command-table pane-table)
140      ((view 'view :default (or (second (views *application-frame*))      ;; Perhaps the default should be an undisplayed view?
141        ((view 'view :default (or (find (current-view) (views *application-frame*)
142                                   :test (complement #'eq))
143                                (any-view))))                                (any-view))))
144    "Prompt for a buffer name and switch to that buffer.    "Prompt for a buffer name and switch to that buffer.
145  If the a buffer with that name does not exist, create it. Uses  If the a buffer with that name does not exist, create it. Uses

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5