Changeset 12171


Ignore:
Timestamp:
Jun 1, 2009, 7:46:19 AM (10 years ago)
Author:
gb
Message:

Implicitly self-insert graphic-chars, not just alpha-chars.

File:
1 edited

Legend:

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

    r11914 r12171  
    193193       ;; are about 94000), and the event has no modifiers or only a shift
    194194       ;; modifier, treat it if it were bound to "Self Insert".
     195       
    195196       (when (eq main-binding (get-default-command))
    196197         (let ((modifiers (key-event-bits-modifiers (key-event-bits key))))
    197            (when (and (alpha-char-p (key-event-char key))
     198           (when (and (graphic-char-p (key-event-char key))
    198199                      (or (null modifiers)
    199200                          (equal '("Shift") modifiers)))
Note: See TracChangeset for help on using the changeset viewer.