[Emacs-diffs] Changes to emacs/lisp/subr.el

[Stefan Monnier]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.409 emacs/lisp/subr.el:1.410
*** emacs/lisp/subr.el:1.409    Sun Sep 19 01:08:16 2004
--- emacs/lisp/subr.el  Sun Sep 19 06:07:38 2004
***************
*** 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.
  
  ;; Maintainer: FSF
  ;; Keywords: internal
--- 1,7 ----
  ;;; subr.el --- basic lisp subroutines for Emacs
  
! ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003,
! ;;   2004  Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: internal
***************
*** 683,689 ****
        (setq event (car event)))
    (if (symbolp event)
        (car (get event 'event-symbol-elements))
!     (let ((base (logand event (1- (lsh 1 18)))))
        (downcase (if (< base 32) (logior base 64) base)))))
  
  (defsubst mouse-movement-p (object)
--- 683,689 ----
        (setq event (car event)))
    (if (symbolp event)
        (car (get event 'event-symbol-elements))
!     (let ((base (logand event (1- ?\A-\^@))))
        (downcase (if (< base 32) (logior base 64) base)))))
  
  (defsubst mouse-movement-p (object)
***************
*** 2649,2653 ****
    (put symbol 'abortfunc (or abortfunc 'kill-buffer))
    (put symbol 'hookvar (or hookvar 'mail-send-hook)))
  
! ;;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc
  ;;; subr.el ends here
--- 2649,2653 ----
    (put symbol 'abortfunc (or abortfunc 'kill-buffer))
    (put symbol 'hookvar (or hookvar 'mail-send-hook)))
  
! ;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc
  ;;; subr.el ends here