Mercurial > emacs
changeset 57151:5350f17d0a78
(event-basic-type): Fix mask (extend to 22bits).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 19 Sep 2004 06:07:38 +0000 |
| parents | e8b02be78ea7 |
| children | bb857995295b |
| files | lisp/ChangeLog lisp/subr.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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