[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/levents.el

[Miles Bader]

Index: emacs/lisp/emacs-lisp/levents.el
diff -c emacs/lisp/emacs-lisp/levents.el:1.15 
emacs/lisp/emacs-lisp/levents.el:1.16
*** emacs/lisp/emacs-lisp/levents.el:1.15       Tue Sep  4 08:48:50 2001
--- emacs/lisp/emacs-lisp/levents.el    Tue Feb  4 07:53:34 2003
***************
*** 98,105 ****
  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 
  ASCII character set can encode."
    ch)
  
--- 98,105 ----
  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
  ASCII character set can encode."
    ch)
  
***************
*** 214,224 ****
  (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 
  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 
  will be returned for events which have no direct ASCII equivalent."
    (if (symbolp event)
        (and lenient
--- 214,224 ----
  (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
  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
  will be returned for events which have no direct ASCII equivalent."
    (if (symbolp event)
        (and lenient