Changeset 8730


Ignore:
Timestamp:
03/06/05 19:40:52 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r8718 r8730  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: emacs.lisp,v 1.8 2005-03-06 04:38:25 piso Exp $
     4;;; $Id: emacs.lisp,v 1.9 2005-03-06 19:40:52 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4040(defparameter *help-map* (make-keymap))
    4141(defparameter *java-mode-map* (make-keymap))
    42 (defparameter *lisp-mode-map* (make-keymap))
    4342
    4443(define-key *global-map* "Escape" *esc-map*)
     
    373372(define-keys *help-map*
    374373  '(("a"                        "apropos")
    375     ("b"                        "listBindings")
     374    ("b"                        "describeBindings")
    376375    ("i"                        "help")
    377376    ("k"                        "describeKey")))
     
    402401
    403402;; km.mapKey(KeyEvent.VK_F12, 0, "wrapComment");
     403(define-key *java-mode-map* "F12" "wrapComment")
    404404
    405405;; // Duplicate mapping to support IBM 1.3 for Linux.
     
    444444(defun java-mode-map ()
    445445  *java-mode-map*)
     446
     447;;; Lisp mode
     448
     449(defparameter *lisp-mode-map* (make-keymap))
    446450
    447451;; km.mapKey(KeyEvent.VK_TAB, 0, "tab");
     
    475479
    476480(defun lisp-mode-map ()
    477   (format t "lisp-mode-map called~%")
    478481  *lisp-mode-map*)
    479482
Note: See TracChangeset for help on using the changeset viewer.