/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.453 by nickrob, Thu May 19 01:56:04 2005 UTC revision 1.454 by rms, Thu May 19 15:43:48 2005 UTC
# Line 603  in the current Emacs session, then this Line 603  in the current Emacs session, then this
603        (setq event (car event)))        (setq event (car event)))
604    (if (symbolp event)    (if (symbolp event)
605        (car (get event 'event-symbol-elements))        (car (get event 'event-symbol-elements))
606      (let ((base (logand event (1- ?\A-\^@))))      (let* ((base (logand event (1- ?\A-\^@)))
607        (downcase (if (< base 32) (logior base 64) base)))))             (uncontrolled (if (< base 32) (logior base 64) base)))
608          ;; There are some numbers that are invalid characters and
609          ;; cause `downcase' to get an error.
610          (condition-case ()
611              (downcase uncontrolled)
612            (error uncontrolled)))))
613    
614  (defsubst mouse-movement-p (object)  (defsubst mouse-movement-p (object)
615    "Return non-nil if OBJECT is a mouse movement event."    "Return non-nil if OBJECT is a mouse movement event."
# Line 2289  configuration." Line 2294  configuration."
2294    (and (consp object)    (and (consp object)
2295         (eq (car object) 'frame-configuration)))         (eq (car object) 'frame-configuration)))
2296    
 (defsubst left-fringe-p ()  
   (equal (car (window-fringes)) 0))  
   
2297  (defun functionp (object)  (defun functionp (object)
2298    "Non-nil if OBJECT is any kind of function or a special form.    "Non-nil if OBJECT is any kind of function or a special form.
2299  Also non-nil if OBJECT is a symbol and its function definition is  Also non-nil if OBJECT is a symbol and its function definition is

Legend:
Removed from v.1.453  
changed lines
  Added in v.1.454

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26