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

Diff of /climacs/gui.lisp

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

revision 1.217 by thenriksen, Sun Jun 4 16:27:18 2006 UTC revision 1.218 by thenriksen, Mon Jun 12 19:10:58 2006 UTC
# Line 311  Line 311 
311    (declare (ignore region))    (declare (ignore region))
312    (redisplay-frame-pane *application-frame* pane))    (redisplay-frame-pane *application-frame* pane))
313    
 (defvar *kill-ring* (make-instance 'kill-ring :max-size 7))  
   
314  (defmethod execute-frame-command :around ((frame climacs) command)  (defmethod execute-frame-command :around ((frame climacs) command)
315    (let ((current-window (car (windows frame))))    (let ((current-window (car (windows frame))))
316      (handler-case      (handler-case

Legend:
Removed from v.1.217  
changed lines
  Added in v.1.218

  ViewVC Help
Powered by ViewVC 1.1.5