diff --git a/hemlock/key-event.lisp b/hemlock/key-event.lisp index b1825ed1b899ecb46cc244e179e6058b50396d86..d870888fd7ed48eda9cf7c7643545f7c02d9f2ae 100644 --- a/hemlock/key-event.lisp +++ b/hemlock/key-event.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/key-event.lisp,v 1.1.1.9 1992/05/22 18:42:38 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/key-event.lisp,v 1.1.1.10 1992/09/07 16:50:35 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -647,7 +647,7 @@ ,@body))))) (defmacro do-alpha-key-events ((var kind &optional result) &rest forms) - "(DO-ALPHA-CHARS (var kind [result]) {form}*) + "(DO-ALPHA-KEY-EVENTS (var kind [result]) {form}*) This macro evaluates each form with var bound to a key-event representing an alphabetic character. Kind is one of :lower, :upper, or :both, and this binds var to each key-event in order as specified in the X11 protocol