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

Diff of /climacs/gui.lisp

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

revision 1.59 by rstrandh, Sun Jan 9 11:54:50 2005 UTC revision 1.60 by rstrandh, Sun Jan 9 14:08:27 2005 UTC
# Line 378  Line 378 
378  (define-named-command com-backward-delete-word ()  (define-named-command com-backward-delete-word ()
379    (backward-delete-word (point (win *application-frame*))))    (backward-delete-word (point (win *application-frame*))))
380    
381    (define-named-command com-upcase-word ()
382      (upcase-word (point (win *application-frame*))))
383    
384    (define-named-command com-downcase-word ()
385      (downcase-word (point (win *application-frame*))))
386    
387    (define-named-command com-capitalize-word ()
388      (capitalize-word (point (win *application-frame*))))
389    
390  (define-named-command com-toggle-layout ()  (define-named-command com-toggle-layout ()
391    (setf (frame-current-layout *application-frame*)    (setf (frame-current-layout *application-frame*)
392          (if (eq (frame-current-layout *application-frame*) 'default)          (if (eq (frame-current-layout *application-frame*) 'default)
# Line 683  Line 692 
692  (global-set-key '(#\f :meta) 'com-forward-word)  (global-set-key '(#\f :meta) 'com-forward-word)
693  (global-set-key '(#\b :meta) 'com-backward-word)  (global-set-key '(#\b :meta) 'com-backward-word)
694  (global-set-key '(#\t :meta) 'com-transpose-words)  (global-set-key '(#\t :meta) 'com-transpose-words)
695    (global-set-key '(#\u :meta) 'com-upcase-word)
696    (global-set-key '(#\l :meta) 'com-downcase-word)
697    (global-set-key '(#\c :meta) 'com-capitalize-word)
698  (global-set-key '(#\x :meta) 'com-extended-command)  (global-set-key '(#\x :meta) 'com-extended-command)
699  (global-set-key '(#\y :meta) 'com-rotate-yank)  (global-set-key '(#\y :meta) 'com-rotate-yank)
700  (global-set-key '(#\w :meta) 'com-copy-out)  (global-set-key '(#\w :meta) 'com-copy-out)
# Line 690  Line 702 
702  (global-set-key '(#\v :meta) 'com-page-up)  (global-set-key '(#\v :meta) 'com-page-up)
703  (global-set-key '(#\< :shift :meta) 'com-beginning-of-buffer)  (global-set-key '(#\< :shift :meta) 'com-beginning-of-buffer)
704  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)
 (global-set-key '(#\u :meta) 'com-browse-url)  
705  (global-set-key '(#\m :meta) 'com-back-to-indentation)  (global-set-key '(#\m :meta) 'com-back-to-indentation)
706  (global-set-key '(#\d :meta) 'com-delete-word)  (global-set-key '(#\d :meta) 'com-delete-word)
707  (global-set-key '(#\Backspace :meta) 'com-backward-delete-word)  (global-set-key '(#\Backspace :meta) 'com-backward-delete-word)

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

  ViewVC Help
Powered by ViewVC 1.1.5