Ignore:
Timestamp:
03/03/05 19:50:06 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/emacs.lisp

    r8695 r8698  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: emacs.lisp,v 1.3 2005-03-03 19:39:12 piso Exp $
     4;;; $Id: emacs.lisp,v 1.4 2005-03-03 19:50:06 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    122122(define-key *global-map* "Ctrl Alt L" "listOccurrencesOfPatternAtDot")
    123123
    124 ;; mapKey(KeyEvent.VK_F3, 0, "findNext");
    125124(define-key *global-map* "F3" "findNext")
    126 ;; mapKey(KeyEvent.VK_G, CTRL_MASK, "findNext");
    127 ;; mapKey(KeyEvent.VK_F3, SHIFT_MASK, "findPrev");
    128125(define-key *global-map* "Shift F3" "findPrev")
    129 ;; mapKey(KeyEvent.VK_H, CTRL_MASK, "findPrev");
    130 ;; mapKey(KeyEvent.VK_F6, 0, "findInFiles");
    131126(define-key *global-map* "F6" "findInFiles")
    132 ;; mapKey(KeyEvent.VK_F, CTRL_MASK | SHIFT_MASK, "findInFiles");
    133 ;; mapKey(KeyEvent.VK_L, CTRL_MASK, "listOccurrences");
    134 ;; mapKey(KeyEvent.VK_L, CTRL_MASK | SHIFT_MASK, "listFiles");
    135 ;; mapKey(KeyEvent.VK_R, CTRL_MASK, "replace");
    136 (define-key *global-map* "Shift Alt 5" "replace")
    137 ;; mapKey(KeyEvent.VK_R, CTRL_MASK | SHIFT_MASK, "replaceInFiles");
     127(define-key *global-map* "Ctrl Shift F" "findInFiles")
     128(define-key *global-map* "Ctrl F3" "listOccurrences")
     129(define-key *global-map* "Ctrl Shift L" "listFiles")
     130(define-key *global-map* "Shift Alt 5" "replace") ; M-%
     131(define-key *global-map* "Ctrl Shift R" "replaceInFiles")
    138132
    139133;; mapKey(KeyEvent.VK_K, CTRL_MASK, "killLine");
Note: See TracChangeset for help on using the changeset viewer.