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