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

Diff of /climacs/core.lisp

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

revision 1.22 by crhodes, Fri Jan 4 11:14:08 2008 UTC revision 1.23 by thenriksen, Fri Jan 18 07:44:56 2008 UTC
# Line 71  displayed by a Drei instance.")) Line 71  displayed by a Drei instance."))
71                      (pane-frame pane) 'textual-drei-syntax-view                      (pane-frame pane) 'textual-drei-syntax-view
72                      :name name)))))                      :name name)))))
73    
74    (defun switch-or-move-to-view (pane view)
75      "Switch `pane' to show `view'. If `view' is already on display
76    in some other pane, switch that pane to be the active one."
77      (handler-bind ((view-already-displayed
78                      #'(lambda (c)
79                          (declare (ignore c))
80                          (invoke-restart 'switch-to-pane))))
81        (switch-to-view pane view)))
82    
83  (defun views-having-buffer (climacs buffer)  (defun views-having-buffer (climacs buffer)
84    "Return a list of the buffer-views of `climacs' showing    "Return a list of the buffer-views of `climacs' showing
85  `buffer'."  `buffer'."

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5