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

Diff of /climacs/gui.lisp

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

revision 1.97 by mvilleneuve, Sun Jan 23 23:30:34 2005 UTC revision 1.98 by rstrandh, Mon Jan 24 12:49:09 2005 UTC
# Line 88  Line 88 
88  (defmacro current-window () ; shouldn't this be an inlined function? --amb  (defmacro current-window () ; shouldn't this be an inlined function? --amb
89    `(car (windows *application-frame*)))    `(car (windows *application-frame*)))
90    
91    (defmethod execute-frame-command :around ((frame climacs) command)
92      (declare (ignore command))
93      (with-undo ((buffer (current-window)))
94        (call-next-method)))
95    
96  (defmethod redisplay-frame-panes :around ((frame climacs) &rest args)  (defmethod redisplay-frame-panes :around ((frame climacs) &rest args)
97    (declare (ignore args))    (declare (ignore args))
98    (let ((buffers (remove-duplicates (mapcar #'buffer (windows frame)))))    (let ((buffers (remove-duplicates (mapcar #'buffer (windows frame)))))
# Line 1099  as two values" Line 1104  as two values"
1104  (define-named-command com-isearch-exit ()  (define-named-command com-isearch-exit ()
1105    (setf (isearch-mode (current-window)) nil))    (setf (isearch-mode (current-window)) nil))
1106    
1107    (define-named-command com-undo ()
1108      (undo (undo-tree (buffer (current-window)))))
1109    
1110    (define-named-command com-redo ()
1111      (redo (undo-tree (buffer (current-window)))))
1112    
1113  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1114  ;;;  ;;;
1115  ;;; Dynamic abbrevs  ;;; Dynamic abbrevs
# Line 1263  as two values" Line 1274  as two values"
1274  (c-x-set-key '(#\k) 'com-kill-buffer)  (c-x-set-key '(#\k) 'com-kill-buffer)
1275  (c-x-set-key '(#\l :control) 'com-load-file)  (c-x-set-key '(#\l :control) 'com-load-file)
1276  (c-x-set-key '(#\o) 'com-other-window)  (c-x-set-key '(#\o) 'com-other-window)
1277    (c-x-set-key '(#\r) 'com-redo)
1278    (c-x-set-key '(#\u) 'com-undo)
1279  (c-x-set-key '(#\s :control) 'com-save-buffer)  (c-x-set-key '(#\s :control) 'com-save-buffer)
1280  (c-x-set-key '(#\t :control) 'com-transpose-lines)  (c-x-set-key '(#\t :control) 'com-transpose-lines)
1281  (c-x-set-key '(#\w :control) 'com-write-buffer)  (c-x-set-key '(#\w :control) 'com-write-buffer)

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

  ViewVC Help
Powered by ViewVC 1.1.5