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

Diff of /climacs/gui.lisp

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

revision 1.181 by dmurray, Sat Aug 20 19:44:08 2005 UTC revision 1.182 by dmurray, Thu Aug 25 07:48:13 2005 UTC
# Line 1956  If *with-scrollbars* nil, omit the scrol Line 1956  If *with-scrollbars* nil, omit the scrol
1956    (add-command-to-command-table command 'dead-escape-climacs-table    (add-command-to-command-table command 'dead-escape-climacs-table
1957                                  :keystroke gesture :errorp nil))                                  :keystroke gesture :errorp nil))
1958    
1959    (dead-escape-set-key '(#\x) 'esa::com-extended-command)
1960    
1961  (defun global-set-key (gesture command)  (defun global-set-key (gesture command)
1962    (add-command-to-command-table command 'global-climacs-table    (add-command-to-command-table command 'global-climacs-table
1963                                  :keystroke gesture :errorp nil)                                  :keystroke gesture :errorp nil)
# Line 2270  If *with-scrollbars* nil, omit the scrol Line 2272  If *with-scrollbars* nil, omit the scrol
2272    
2273  (c-c-set-key '(#\l :control) 'com-load-file)  (c-c-set-key '(#\l :control) 'com-load-file)
2274    
2275    (define-named-command com-regex-search-forward ()
2276      (let ((string (accept 'string :prompt "RE search"
2277                            :delimiter-gestures nil
2278                            :activation-gestures
2279                            '(:newline :return))))
2280        (re-search-forward (point (current-window)) string)))
2281    
2282    (define-named-command com-regex-search-backward ()
2283      (let ((string (accept 'string :prompt "RE search backward"
2284                            :delimiter-gestures nil
2285                            :activation-gestures
2286                            '(:newline :return))))
2287        (re-search-backward (point (current-window)) string)))

Legend:
Removed from v.1.181  
changed lines
  Added in v.1.182

  ViewVC Help
Powered by ViewVC 1.1.5