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

Diff of /climacs/gui.lisp

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

revision 1.142 by rstrandh, Mon May 30 07:51:32 2005 UTC revision 1.143 by rstrandh, Mon May 30 09:33:39 2005 UTC
# Line 1406  as two values" Line 1406  as two values"
1406           (syntax (syntax (buffer pane))))           (syntax (syntax (buffer pane))))
1407      (forward-expression point syntax)))      (forward-expression point syntax)))
1408    
1409    (define-named-command com-eval-defun ()
1410      (let* ((pane (current-window))
1411             (point (point pane))
1412             (syntax (syntax (buffer pane))))
1413        (eval-defun point syntax)))
1414    
1415  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1416  ;;;  ;;;
1417  ;;; Global and dead-escape command tables  ;;; Global and dead-escape command tables
# Line 1495  as two values" Line 1501  as two values"
1501    
1502  (global-set-key '(#\b :control :meta) `(com-backward-expression ,*numeric-argument-marker*))  (global-set-key '(#\b :control :meta) `(com-backward-expression ,*numeric-argument-marker*))
1503  (global-set-key '(#\f :control :meta) `(com-forward-expression ,*numeric-argument-marker*))  (global-set-key '(#\f :control :meta) `(com-forward-expression ,*numeric-argument-marker*))
1504    (global-set-key '(#\x :control :meta) '(com-eval-defun))
1505    
1506  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1507  ;;;  ;;;

Legend:
Removed from v.1.142  
changed lines
  Added in v.1.143

  ViewVC Help
Powered by ViewVC 1.1.5