diff options
author | Xi Lu <lx@shellcodes.org> | 2023-01-05 05:27:03 +0800 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-01-07 11:08:17 +0200 |
commit | 5636f14856982f6ee342fd45edd460ffaa73a7e3 (patch) | |
tree | 818f309c7133768cddfe2a5704190ca310fedeb7 /lisp/simple.el | |
parent | abeb29bfcc68c578f11d59dcc1522738d493770a (diff) | |
download | emacs-5636f14856982f6ee342fd45edd460ffaa73a7e3.tar.gz |
; Use a single '<=' for range comparisons
* lisp/simple.el (undo-elt-in-region, char-uppercase-p)
(event-apply-modifier): Use a single '<='. (Bug#60561)
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 7910454e2f6..690968ca938 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3795,16 +3795,14 @@ whether (MARKER . ADJUSTMENT) undo elements are in the region, because markers can be arbitrarily relocated. Instead, pass the marker adjustment's corresponding (TEXT . POS) element." (cond ((integerp undo-elt) - (and (>= undo-elt start) - (<= undo-elt end))) + (<= start undo-elt end)) ((eq undo-elt nil) t) ((atom undo-elt) nil) ((stringp (car undo-elt)) ;; (TEXT . POSITION) - (and (>= (abs (cdr undo-elt)) start) - (<= (abs (cdr undo-elt)) end))) + (<= start (abs (cdr undo-elt)) end)) ((and (consp undo-elt) (markerp (car undo-elt))) ;; (MARKER . ADJUSTMENT) (<= start (car undo-elt) end)) @@ -6419,7 +6417,7 @@ If the Unicode tables are not yet available, e.g. during bootstrap, then gives correct answers only for ASCII characters." (cond ((unicode-property-table-internal 'lowercase) (characterp (get-char-code-property char 'lowercase))) - ((and (>= char ?A) (<= char ?Z))))) + ((<= ?A char ?Z)))) (defun zap-to-char (arg char &optional interactive) "Kill up to and including ARGth occurrence of CHAR. @@ -10049,8 +10047,7 @@ PREFIX is the string that represents this modifier in an event type symbol." ((eq symbol 'shift) ;; FIXME: Should we also apply this "upcase" behavior of shift ;; to non-ascii letters? - (if (and (<= (downcase event) ?z) - (>= (downcase event) ?a)) + (if (<= ?a (downcase event) ?z) (upcase event) (logior (ash 1 lshiftby) event))) (t |