From 1fdd7a0a3aacd9792b9368ad9d750ef253e29165 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 1 Feb 2021 05:34:40 +0100 Subject: [PATCH] Make XEmacs compat alias obsolete in allout-widgets.el * lisp/allout-widgets.el (allout-frame-property): Redefine compat alias as obsolete function alias for 'frame-parameter'. (allout-fetch-icon-image): Update caller. --- lisp/allout-widgets.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 7dcf36851f2..f251be8dfb9 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -2231,7 +2231,7 @@ interactive command." We use a caching strategy, so the caller doesn't need to do so." (let* ((types allout-widgets-icon-types) - (use-dir (if (equal (allout-frame-property nil 'background-mode) + (use-dir (if (equal (frame-parameter nil 'background-mode) 'light) allout-widgets-icons-light-subdir allout-widgets-icons-dark-subdir)) @@ -2262,13 +2262,6 @@ We use a caching strategy, so the caller doesn't need to do so." "Return seconds between START/END time values." (let ((elapsed (time-subtract end start))) (float-time elapsed))) -;;;_ > allout-frame-property (frame property) -(defalias 'allout-frame-property - (cond ((fboundp 'frame-parameter) - 'frame-parameter) - ((fboundp 'frame-property) - 'frame-property) - (t nil))) ;;;_ > allout-find-image (specs) (define-obsolete-function-alias 'allout-find-image #'find-image "28.1") ;;;_ > allout-widgets-copy-list (list) @@ -2295,6 +2288,8 @@ The elements of LIST are not copied, just the list structure itself." (overlays-in start end))))) (length button-overlays))) +(define-obsolete-function-alias 'allout-frame-property #'frame-parameter "28.1") + ;;;_ : provide (provide 'allout-widgets) -- 2.39.2