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

Diff of /climacs/gui.lisp

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

revision 1.41 by rstrandh, Sat Jan 1 12:55:01 2005 UTC revision 1.42 by rstrandh, Sat Jan 1 13:25:19 2005 UTC
# Line 230  Line 230 
230  (define-named-command com-backward-delete-object ()  (define-named-command com-backward-delete-object ()
231    (delete-range (point (win *application-frame*)) -1))    (delete-range (point (win *application-frame*)) -1))
232    
233    (define-named-command com-transpose-objects ()
234      (let* ((point (point (win *application-frame*))))
235        (unless (beginning-of-buffer-p point)
236          (when (end-of-line-p point)
237            (decf (offset point)))
238          (let ((object (object-after point)))
239            (delete-range point)
240            (decf (offset point))
241            (insert-object point object)
242            (incf (offset point))))))
243    
244  (define-named-command com-previous-line ()  (define-named-command com-previous-line ()
245    (previous-line (point (win *application-frame*))))    (previous-line (point (win *application-frame*))))
246    
# Line 503  Line 514 
514  (global-set-key '(#\n :control) 'com-next-line)  (global-set-key '(#\n :control) 'com-next-line)
515  (global-set-key '(#\o :control) 'com-open-line)  (global-set-key '(#\o :control) 'com-open-line)
516  (global-set-key '(#\k :control) 'com-kill-line)  (global-set-key '(#\k :control) 'com-kill-line)
517    (global-set-key '(#\t :control) 'com-transpose-objects)
518  (global-set-key '(#\Space :control) 'com-set-mark)  (global-set-key '(#\Space :control) 'com-set-mark)
519  (global-set-key '(#\y :control) 'com-copy-in)  (global-set-key '(#\y :control) 'com-copy-in)
520  (global-set-key '(#\w :control) 'com-cut-out)  (global-set-key '(#\w :control) 'com-cut-out)

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5