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

Diff of /climacs/gui.lisp

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

revision 1.168 by dmurray, Mon Aug 1 21:53:38 2005 UTC revision 1.169 by rstrandh, Thu Aug 4 01:10:45 2005 UTC
# Line 1207  as two values" Line 1207  as two values"
1207    
1208  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1209  ;;;  ;;;
1210    ;;; Commenting
1211    
1212    ;;; figure out how to make commands without key bindings accept numeric arguments.
1213    (define-named-command com-comment-region ()
1214      (let* ((pane (current-window))
1215             (point (point pane))
1216             (mark (mark pane))
1217             (syntax (syntax (buffer pane))))
1218        (comment-region syntax point mark)))
1219    
1220    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1221    ;;;
1222  ;;; For testing purposes  ;;; For testing purposes
1223    
1224  (define-named-command com-reset-profile ()  (define-named-command com-reset-profile ()

Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169

  ViewVC Help
Powered by ViewVC 1.1.5