diff options
Diffstat (limited to 'lisp/obsolete/levents.el')
| -rw-r--r-- | lisp/obsolete/levents.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/obsolete/levents.el b/lisp/obsolete/levents.el index a2a50119c8a..714b3fbb761 100644 --- a/lisp/obsolete/levents.el +++ b/lisp/obsolete/levents.el @@ -145,7 +145,7 @@ It will be the next event read after all pending events." The value is an ASCII printing character (not upper case) or a symbol." (if (symbolp event) (car (get event 'event-symbol-elements)) - (let ((base (logand event (1- (lsh 1 18))))) + (let ((base (logand event (1- (ash 1 18))))) (downcase (if (< base 32) (logior base 64) base))))) (defun event-object (event) |