procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(event-basic-type): Fix mask (extend to 22bits).

Browse source
This commit is contained in:
Stefan Monnier 2004-09-19 06:07:38 +00:00
parent 7147c177a5
commit a8a64811dc
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

8
lisp/subr.el
View file

@ -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