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

Diff of /climacs/gui.lisp

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

revision 1.14 by rstrandh, Sat Dec 25 12:29:24 2004 UTC revision 1.15 by rstrandh, Sat Dec 25 13:36:20 2004 UTC
# Line 316  Line 316 
316    (add-command-to-command-table command 'c-x-climacs-table    (add-command-to-command-table command 'c-x-climacs-table
317                                  :keystroke gesture :errorp nil))                                  :keystroke gesture :errorp nil))
318    
 (defun c-x-set-key (gesture command)  
   (add-command-to-command-table command 'c-x-climacs-table  
                                 :keystroke gesture :errorp nil))  
   
319  ;;; for some reason, C-c does not seem to arrive as far as CLIM.  ;;; for some reason, C-c does not seem to arrive as far as CLIM.
320  (c-x-set-key '(#\q :control) 'com-quit)  (c-x-set-key '(#\q :control) 'com-quit)
321  (c-x-set-key '(#\f :control) 'com-find-file)  (c-x-set-key '(#\f :control) 'com-find-file)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5