From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 1 Feb 2021 04:34:40 +0000 (+0100)
Subject: Make XEmacs compat alias obsolete in allout-widgets.el
X-Git-Tag: emacs-28.0.90~3983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fdd7a0a3aacd9792b9368ad9d750ef253e29165;p=emacs.git

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

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)