From 0cbb2b7a774a74311150601aa4d3ad67f5a4a09e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 7 Sep 1992 16:50:35 +0000
Subject: [PATCH] Fixed doc string.

---
 hemlock/key-event.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/key-event.lisp b/hemlock/key-event.lisp
index b1825ed1b..d870888fd 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
-- 
GitLab