Changeset 12121


Ignore:
Timestamp:
May 24, 2009, 7:26:14 AM (10 years ago)
Author:
gb
Message:

Provide a "Native Quoted Insert" command, bound to m-! by default.
This may be necessary to support some Asian input methods, but
doesn't seem to be sufficient.

Location:
trunk/source/cocoa-ide/hemlock/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/bindings.lisp

    r11971 r12121  
    249249
    250250(bind-key "Quoted Insert" #k"control-q")
     251(bind-key "Native Quoted Insert" #k"meta-!")
    251252
    252253(bind-key "Self Insert" #k"space")
  • trunk/source/cocoa-ide/hemlock/src/command.lisp

    r11971 r12121  
    5555  (declare (ignore p))
    5656  (setf (hi::hemlock-view-quote-next-p hi::*current-view*) t))
     57
     58(defcommand "Native Quoted Insert" (p)
     59  "Causes the next character typed to be processed by the native text-handling
     60   facility."
     61  (declare (ignore p))
     62  (setf (hi::hemlock-view-quote-next-p hi::*current-view*) :native))
    5763
    5864(defcommand "Forward Character" (p)
Note: See TracChangeset for help on using the changeset viewer.