;;; levents.el --- emulate the Lucid event data type and associated functions
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 2001 Free Software Foundation, Inc.
;; Maintainer: FSF
+;; Keywords: emulations
;; This file is part of GNU Emacs.
mean -- for example, the number 9 is converted to the character Tab,
not the distinct character Control-I.
-Beware that character-to-event and event-to-character are not strictly
-inverse functions, since events contain much more information than the
+Beware that character-to-event and event-to-character are not strictly
+inverse functions, since events contain much more information than the
ASCII character set can encode."
ch)
(defun event-to-character (event &optional lenient)
"Returns the closest ASCII approximation to the given event object.
If the event isn't a keypress, this returns nil.
-If the second argument is non-nil, then this is lenient in its
+If the second argument is non-nil, then this is lenient in its
translation; it will ignore modifier keys other than control and meta,
-and will ignore the shift modifier on those characters which have no
-shifted ASCII equivalent (Control-Shift-A for example, will be mapped to
-the same ASCII code as Control-A.) If the second arg is nil, then nil
+and will ignore the shift modifier on those characters which have no
+shifted ASCII equivalent (Control-Shift-A for example, will be mapped to
+the same ASCII code as Control-A.) If the second arg is nil, then nil
will be returned for events which have no direct ASCII equivalent."
(if (symbolp event)
(and lenient
(provide 'levents)
+;;; arch-tag: a80c21da-69d7-46de-9cdb-5f68577b5525
;;; levents.el ends here