Changeset 8715


Ignore:
Timestamp:
03/05/05 20:52:47 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r8712 r8715  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: emacs.lisp,v 1.5 2005-03-05 04:22:06 piso Exp $
     4;;; $Id: emacs.lisp,v 1.6 2005-03-05 20:52:47 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package #:j)
    2121
    22 (export '(java-mode-map))
     22(export '(java-mode-map lisp-mode-map))
    2323
    2424(defpackage #:emacs
     
    4040(defparameter *help-map* (make-keymap))
    4141(defparameter *java-mode-map* (make-keymap))
     42(defparameter *lisp-mode-map* (make-keymap))
    4243
    4344(define-key *global-map* "Escape" *esc-map*)
     
    377378
    378379;; Java mode.
    379 ;; km.mapKey('{', "electricOpenBrace");
    380380(define-key *java-mode-map* "{" "electricOpenBrace")
    381 ;; km.mapKey('}', "electricCloseBrace");
    382381(define-key *java-mode-map* "}" "electricCloseBrace")
    383 ;; km.mapKey(KeyEvent.VK_TAB, CTRL_MASK, "insertTab");
    384 ;; km.mapKey(KeyEvent.VK_TAB, 0, "tab");
    385382(define-key *java-mode-map* "Tab" "tab")
    386 ;; km.mapKey(KeyEvent.VK_ENTER, 0, "newlineAndIndent");
    387 ;; km.mapKey(';', "electricSemi");
     383(define-key *java-mode-map* "Ctrl Tab" "insertTab")
    388384(define-key *java-mode-map* "';'" "electricSemi")
    389385;;                km.mapKey(':', "electricColon");
     
    448444  *java-mode-map*)
    449445
     446;; km.mapKey(KeyEvent.VK_TAB, 0, "tab");
     447(define-key *lisp-mode-map* "Tab" "tab")
     448;; km.mapKey(KeyEvent.VK_TAB, CTRL_MASK, "insertTab");
     449(define-key *lisp-mode-map* "Ctrl Tab" "insertTab")
     450;; km.mapKey(KeyEvent.VK_F12, 0, "wrapComment");
     451(define-key *lisp-mode-map* "F12" "wrapComment")
     452;; km.mapKey(KeyEvent.VK_T, CTRL_MASK, "findTag");
     453;; km.mapKey(KeyEvent.VK_COMMA, ALT_MASK, "listMatchingTagsAtDot");
     454;; km.mapKey(KeyEvent.VK_PERIOD, CTRL_MASK | ALT_MASK, "findTagAtDotOtherWindow");
     455(define-key *lisp-mode-map* #\) "closeParen")
     456;; km.mapKey(KeyEvent.VK_F1, ALT_MASK, "hyperspec");
     457(define-key *lisp-mode-map* "Alt F1" "hyperspec")
     458;; km.mapKey(KeyEvent.VK_F, CTRL_MASK | ALT_MASK, "forwardSexp");
     459(define-key *lisp-mode-map* "Ctrl Alt F" "forwardSexp")
     460;; km.mapKey(KeyEvent.VK_B, CTRL_MASK | ALT_MASK, "backwardSexp");
     461(define-key *lisp-mode-map* "Ctrl Alt B""backwardSexp")
     462(define-key *lisp-mode-map* "Ctrl Alt Space" "markSexp")
     463;; km.mapKey(KeyEvent.VK_D, CTRL_MASK | ALT_MASK, "downList");
     464(define-key *lisp-mode-map* "Ctrl Alt D" "downList")
     465;; km.mapKey(KeyEvent.VK_U, CTRL_MASK | ALT_MASK, "backwardUpList");
     466(define-key *lisp-mode-map* "Ctrl Alt U" "backwardUpList")
     467;; km.mapKey(KeyEvent.VK_X, CTRL_MASK | ALT_MASK, "evalDefunLisp");
     468;; km.mapKey(KeyEvent.VK_C, CTRL_MASK | ALT_MASK, "compileDefunLisp");
     469;; km.mapKey(KeyEvent.VK_R, CTRL_MASK | ALT_MASK, "evalRegionLisp");
     470;; km.mapKey(KeyEvent.VK_M, CTRL_MASK, "lispFindMatchingChar");
     471;; km.mapKey(KeyEvent.VK_M, CTRL_MASK | SHIFT_MASK, "lispSelectSyntax");
     472;; km.mapKey(KeyEvent.VK_9, CTRL_MASK | SHIFT_MASK, "insertParentheses");
     473;; km.mapKey(KeyEvent.VK_0, CTRL_MASK | SHIFT_MASK, "movePastCloseAndReindent");
     474
     475(defun lisp-mode-map ()
     476  (format t "lisp-mode-map called~%")
     477  *lisp-mode-map*)
     478
    450479(provide 'emacs)
Note: See TracChangeset for help on using the changeset viewer.