(batch-byte-compile-file): Give a backtrace if requested.

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

diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index 535d2d36650fb3a38ef56634f361f4549bc222c4..cd3fe2764c2a30799fe6f4c8c8153bd2fe934eca 100644 (file)
--- a/lisp/emacs-lisp/levents.el
+++ b/lisp/emacs-lisp/levents.el
@@ -98,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)
 


@@ -214,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


@@ -290,4 +290,5 @@ GNU Emacs 19 does not currently generate process-output events."
 
 (provide 'levents)
 
 
 (provide 'levents)
 

+;;; arch-tag: a80c21da-69d7-46de-9cdb-5f68577b5525

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