[elpa] externals/marginalia a514c024ac: Drop Emacs 26 support (#135)

[ELPA Syncer]

branch: externals/marginalia
commit a514c024ac2796ec9d52f65c1f51b51f96bcb1c7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: GitHub <noreply@github.com>

    Drop Emacs 26 support (#135)
    
    Emacs 28.1 has been released. Emacs 27.1 is widely available, even on Debian
    stable. The recommended completion systems Vertico and Mct require Emacs 27 
and
    newer. In the future we can use the compat.el library to ensure backward
    compatibility while still having access to newly introduced Emacs APIs. 
However
    we will still have to work around bugs, which affect this package. By 
dropping
    support for Emacs 26 maintainance is simplified a little bit since most of 
my
    packages already require Emacs 27.1. Emacs 27.1 support will probably be 
kept
    for longer, e.g., until the release of Emacs 30.
---
 marginalia.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 04b9ea06bc..77fe9a49bc 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Omar Antolín Camarena <omar@matem.unam.mx>, Daniel Mendler 
<mail@daniel-mendler.de>
 ;; Created: 2020
 ;; Version: 0.13
-;; Package-Requires: ((emacs "26.1"))
+;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/marginalia
 
 ;; This file is part of GNU Emacs.
@@ -870,8 +870,7 @@ These annotations are skipped for remote paths."
     (when (or (/= (user-uid) uid) (/= (group-gid) gid))
       (format "%s:%s"
               (or (user-login-name uid) uid)
-              ;; group-name was introduced on Emacs 27
-              (or (and (fboundp 'group-name) (group-name gid)) gid)))))
+              (or (group-name gid) gid)))))
 
 (defun marginalia--file-modes (attrs)
   "Return fontified file modes given the ATTRS."
@@ -919,9 +918,8 @@ These annotations are skipped for remote paths."
   "Format TIME as an absolute age."
   (let ((system-time-locale "C"))
     (format-time-string
-     ;; decoded-time-year is only available on Emacs 27, use nth 5 here.
-     (if (> (nth 5 (decode-time (current-time)))
-            (nth 5 (decode-time time)))
+     (if (> (decoded-time-year (decode-time (current-time)))
+            (decoded-time-year (decode-time time)))
          " %Y %b %d"
        "%b %d %H:%M")
      time)))
@@ -1034,9 +1032,7 @@ These annotations are skipped for remote paths."
                       (lambda (tab _) (equal (alist-get 'name tab) cand)))))
     (let* ((tab (nth index tabs))
            (ws (alist-get 'ws tab))
-           ;; window-state-buffers requires Emacs 27
-           (bufs (and (fboundp 'window-state-buffers)
-                      (window-state-buffers ws))))
+           (bufs (window-state-buffers ws)))
       ;; NOTE: When the buffer key is present in the window state
       ;; it is added in front of the window buffer list and gets duplicated.
       (when (cadr (assq 'buffer ws)) (pop bufs))