Changeset 8689


Ignore:
Timestamp:
03/03/05 14:11:50 (16 years ago)
Author:
piso
Message:

getGlobalKeyMap()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/j/KeyMap.java

    r8674 r8689  
    22 * KeyMap.java
    33 *
    4  * Copyright (C) 1998-2003 Peter Graves
    5  * $Id: KeyMap.java,v 1.21 2005-03-01 20:24:03 piso Exp $
     4 * Copyright (C) 1998-2005 Peter Graves
     5 * $Id: KeyMap.java,v 1.22 2005-03-03 14:11:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131import java.util.List;
    3232import javax.swing.KeyStroke;
     33import org.armedbear.lisp.Interpreter;
     34import org.armedbear.lisp.JavaObject;
     35import org.armedbear.lisp.LispObject;
    3336
    3437public final class KeyMap implements Constants
     
    4750    {
    4851        if (globalKeyMap == null) {
     52            if (Editor.isLispInitialized()) {
     53                try {
     54                    LispObject result =
     55                        Interpreter.evaluate("(j:current-global-map)");
     56                    if (result instanceof JavaObject) {
     57                        Object obj = ((JavaObject)result).getObject();
     58                        if (obj instanceof KeyMap) {
     59                            globalKeyMap = (KeyMap) obj;
     60                            return globalKeyMap;
     61                        }
     62                    }
     63                }
     64                catch (Throwable t) {
     65                    Log.debug(t);
     66                }
     67            }
    4968            String filename =
    5069                Editor.preferences().getStringProperty(Property.GLOBAL_KEY_MAP);
     
    258277        mapKey(KeyEvent.VK_BACK_SPACE, CTRL_MASK, "deleteWordLeft");
    259278        mapKey(KeyEvent.VK_ENTER, 0, "newline");
     279        mapKey(KeyEvent.VK_J, CTRL_MASK, "newlineAndIndent");
    260280
    261281        mapKey(KeyEvent.VK_ESCAPE, 0, "escape");
Note: See TracChangeset for help on using the changeset viewer.