diff options
Diffstat (limited to 'compat-29.el')
| -rw-r--r-- | compat-29.el | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/compat-29.el b/compat-29.el index b02424b..3db94c9 100644 --- a/compat-29.el +++ b/compat-29.el @@ -25,11 +25,9 @@ (compat-require compat-28 "28.1") ;; Preloaded in loadup.el -;; TODO Update to 29.1 as soon as the Emacs emacs-29 branch version bumped -(compat-require seq "29.0.90") ;; <compat-tests:seq> +(compat-require seq "29.1") ;; <compat-tests:seq> -;; TODO Update to 29.1 as soon as the Emacs emacs-29 branch version bumped -(compat-version "29.0.90") +(compat-version "29.1") ;;;; Defined in startup.el @@ -39,6 +37,10 @@ (locate-file "simple" load-path (get-load-suffixes)))) "Directory where Emacs's own *.el and *.elc Lisp files are installed.") +;;;; Defined in window.c + +(compat-defalias window-configuration-equal-p compare-window-configurations) ;; <compat-tests:window-configuration-equal-p> + ;;;; Defined in xdisp.c (compat-defun get-display-property (position prop &optional object properties) ;; <compat-tests:get-display-property> @@ -508,6 +510,14 @@ thus overriding the value of the TIMEOUT argument to that function.") ;;;; Defined in simple.el +(compat-defun char-uppercase-p (char) ;; <compat-tests:char-uppercase-p> + "Return non-nil if CHAR is an upper-case character. +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))))) + (compat-defun use-region-noncontiguous-p () ;; <compat-tests:region-noncontiguous-p> "Return non-nil for a non-contiguous region if `use-region-p'." (and (use-region-p) (region-noncontiguous-p))) |