Changeset 12315


Ignore:
Timestamp:
Jun 28, 2009, 9:00:27 AM (10 years ago)
Author:
gb
Message:

In EXECUTE-HEMLOCK-KEY, don't try to automatically self-insert
key events that characters that satisfy GRAPHIC-CHAR-P.

File:
1 edited

Legend:

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

    r12171 r12315  
    195195       
    196196       (when (eq main-binding (get-default-command))
    197          (let ((modifiers (key-event-bits-modifiers (key-event-bits key))))
    198            (when (and (graphic-char-p (key-event-char key))
     197         (let* ((modifiers (key-event-bits-modifiers (key-event-bits key)))
     198                (char (key-event-char key)))
     199           (when (and char
     200                      (graphic-char-p char)
    199201                      (or (null modifiers)
    200202                          (equal '("Shift") modifiers)))
Note: See TracChangeset for help on using the changeset viewer.