# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1095574058 0
# Node ID 5350f17d0a78c2b95b5338a5626a6407f0836b9e
# Parent  e8b02be78ea70ec5ba9f40af6d2004f2ba0d0dd5
(event-basic-type): Fix mask (extend to 22bits).

diff -r e8b02be78ea7 -r 5350f17d0a78 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 19 02:14:14 2004 +0000
+++ b/lisp/ChangeLog	Sun Sep 19 06:07:38 2004 +0000
@@ -1,3 +1,7 @@
+2004-09-19  Stefan  <monnier@iro.umontreal.ca>
+
+	* subr.el (event-basic-type): Fix mask (extend to 22bits).
+
 2004-09-18  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* textmodes/enriched.el (enriched-rerun-flag): New variable.
diff -r e8b02be78ea7 -r 5350f17d0a78 lisp/subr.el
--- a/lisp/subr.el	Sun Sep 19 02:14:14 2004 +0000
+++ b/lisp/subr.el	Sun Sep 19 06:07:38 2004 +0000
@@ -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 @@
       (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 @@
   (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