Add a provide statement.

[gnu-emacs] / lisp / emacs-lisp / levents.el

diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index ed12511f32219d7fbe9baaaf97ec909625e21378..cd3fe2764c2a30799fe6f4c8c8153bd2fe934eca 100644 (file)
--- a/lisp/emacs-lisp/levents.el
+++ b/lisp/emacs-lisp/levents.el
@@ -1,6 +1,9 @@
-;;; levents.el --- emulate the Lucid event data type and associated functions.
+;;; 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.
 
 
 ;; This file is part of GNU Emacs.
 


@@ -95,8 +98,8 @@ in is the second.  This function contains knowledge about what the codes
 mean -- for example, the number 9 is converted to the character Tab,
 not the distinct character Control-I.
 
 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)
 
 ASCII character set can encode."
   ch)
 


@@ -192,7 +195,7 @@ or for window WINDOW if that is specified."
            (if (windowp end-w)
                (nth 1 (window-edges end-w))
              (/ (cdr (posn-x-y (event-end event)))
            (if (windowp end-w)
                (nth 1 (window-edges end-w))
              (/ (cdr (posn-x-y (event-end event)))

-                ((frame-char-height end-w)))))
+                (frame-char-height end-w))))

       (if (>= end-w-top w-top)
          (event-closest-point-1 start-window)
        (window-start start-window)))))
       (if (>= end-w-top w-top)
          (event-closest-point-1 start-window)
        (window-start start-window)))))


@@ -211,11 +214,11 @@ In this emulation, it returns nil for non-mouse-related events."
 (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.
 (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,
 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
 will be returned for events which have no direct ASCII equivalent."
   (if (symbolp event)
       (and lenient


@@ -285,4 +288,7 @@ an existing event object."
 GNU Emacs 19 does not currently generate process-output events."
   (eq (car-safe obj) 'process))
 
 GNU Emacs 19 does not currently generate process-output events."
   (eq (car-safe obj) 'process))
 

+(provide 'levents)
+
+;;; arch-tag: a80c21da-69d7-46de-9cdb-5f68577b5525

 ;;; levents.el ends here
 ;;; levents.el ends here