diff options
| author | Stefan Monnier <[email protected]> | 2004-09-19 06:07:38 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2004-09-19 06:07:38 +0000 |
| commit | a8a64811dc35200e4378d2ab3b7cc947da75fce5 (patch) | |
| tree | 2fb9dc10f295f2e87962f233df12f1c389ebc5e9 /lisp/subr.el | |
| parent | 7147c177a56a4fe1d8ffbcb39e4fbb0920289552 (diff) | |
(event-basic-type): Fix mask (extend to 22bits).
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 327d6386fc..d7bfcc1f7f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1,7 +1,7 @@ ;;; subr.el --- basic lisp subroutines for Emacs -;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003, +;; 2004 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -683,7 +683,7 @@ in the current Emacs session, then this function may return nil." (setq event (car event))) (if (symbolp event) (car (get event 'event-symbol-elements)) - (let ((base (logand event (1- (lsh 1 18))))) + (let ((base (logand event (1- ?\A-\^@)))) (downcase (if (< base 32) (logior base 64) base))))) (defsubst mouse-movement-p (object) @@ -2649,5 +2649,5 @@ The properties used on SYMBOL are `composefunc', `sendfunc', (put symbol 'abortfunc (or abortfunc 'kill-buffer)) (put symbol 'hookvar (or hookvar 'mail-send-hook))) -;;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc +;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc ;;; subr.el ends here |