From 3cd8edcbc5c5e02cbe1c678ba1341e8e7258eed6 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 22 Dec 2024 12:58:30 +0100 Subject: [PATCH] update f Signed-off-by: Andreas Gerler --- elpa/f-20230704.1346/f-autoloads.el | 26 ----------------- elpa/f-20230704.1346/f-pkg.el | 16 ----------- elpa/f-20241003.1131/f-autoloads.el | 28 +++++++++++++++++++ elpa/f-20241003.1131/f-pkg.el | 12 ++++++++ .../f-shortdoc.el | 22 +++++++-------- .../{f-20230704.1346 => f-20241003.1131}/f.el | 8 +++--- 6 files changed, 54 insertions(+), 58 deletions(-) delete mode 100644 elpa/f-20230704.1346/f-autoloads.el delete mode 100644 elpa/f-20230704.1346/f-pkg.el create mode 100644 elpa/f-20241003.1131/f-autoloads.el create mode 100644 elpa/f-20241003.1131/f-pkg.el rename elpa/{f-20230704.1346 => f-20241003.1131}/f-shortdoc.el (95%) rename elpa/{f-20230704.1346 => f-20241003.1131}/f.el (99%) diff --git a/elpa/f-20230704.1346/f-autoloads.el b/elpa/f-20230704.1346/f-autoloads.el deleted file mode 100644 index 4dd17886..00000000 --- a/elpa/f-20230704.1346/f-autoloads.el +++ /dev/null @@ -1,26 +0,0 @@ -;;; f-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- -;; -;;; Code: - -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) - - -;;;### (autoloads nil "f" "f.el" (0 0 0 0)) -;;; Generated autoloads from f.el - -(register-definition-prefixes "f" '("f-")) - -;;;*** - -;;;### (autoloads nil nil ("f-pkg.el" "f-shortdoc.el") (0 0 0 0)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; coding: utf-8 -;; End: -;;; f-autoloads.el ends here diff --git a/elpa/f-20230704.1346/f-pkg.el b/elpa/f-20230704.1346/f-pkg.el deleted file mode 100644 index c635d3df..00000000 --- a/elpa/f-20230704.1346/f-pkg.el +++ /dev/null @@ -1,16 +0,0 @@ -(define-package "f" "20230704.1346" "Modern API for working with files and directories" - '((emacs "24.1") - (s "1.7.0") - (dash "2.2.0")) - :commit "19e1da061e759b05e8c480b426287a063ca39484" :authors - '(("Johan Andersson" . "johan.rejeep@gmail.com")) - :maintainers - '(("Lucien Cartier-Tilet" . "lucien@phundrak.com")) - :maintainer - '("Lucien Cartier-Tilet" . "lucien@phundrak.com") - :keywords - '("files" "directories") - :url "http://github.com/rejeep/f.el") -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/f-20241003.1131/f-autoloads.el b/elpa/f-20241003.1131/f-autoloads.el new file mode 100644 index 00000000..9bba44f2 --- /dev/null +++ b/elpa/f-20241003.1131/f-autoloads.el @@ -0,0 +1,28 @@ +;;; f-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from f.el + +(register-definition-prefixes "f" '("f-")) + +;;; End of scraped data + +(provide 'f-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; f-autoloads.el ends here diff --git a/elpa/f-20241003.1131/f-pkg.el b/elpa/f-20241003.1131/f-pkg.el new file mode 100644 index 00000000..2ffdf7e0 --- /dev/null +++ b/elpa/f-20241003.1131/f-pkg.el @@ -0,0 +1,12 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "f" "20241003.1131" + "Modern API for working with files and directories." + '((emacs "24.1") + (s "1.7.0") + (dash "2.2.0")) + :url "https://github.com/rejeep/f.el" + :commit "931b6d0667fe03e7bf1c6c282d6d8d7006143c52" + :revdesc "931b6d0667fe" + :keywords '("files" "directories") + :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) + :maintainers '(("Lucien Cartier-Tilet" . "lucien@phundrak.com"))) diff --git a/elpa/f-20230704.1346/f-shortdoc.el b/elpa/f-20241003.1131/f-shortdoc.el similarity index 95% rename from elpa/f-20230704.1346/f-shortdoc.el rename to elpa/f-20241003.1131/f-shortdoc.el index 2278382c..e72fa57c 100644 --- a/elpa/f-20230704.1346/f-shortdoc.el +++ b/elpa/f-20241003.1131/f-shortdoc.el @@ -2,7 +2,6 @@ ;; Author: Lucien Cartier-Tilet ;; Maintainer: Lucien Cartier-Tilet -;; Version: 0.1.0 ;; Package-Requires: ((emacs "28.1")) ;; Homepage: https://github.com/rejeep/f.el @@ -29,8 +28,7 @@ ;;; Code: (when (version<= "28.1" emacs-version) - (when (< emacs-major-version 29) - (require 'shortdoc)) + (require 'shortdoc) (define-short-documentation-group f "Paths" @@ -306,27 +304,27 @@ :result nil) (f-older-p - :noeval (f-older-p "older-file.txt" "newer-file.txt") + :no-eval (f-older-p "older-file.txt" "newer-file.txt") :result t - :noeval (f-older-p "newer-file.txt" "older-file.txt") + :no-eval (f-older-p "newer-file.txt" "older-file.txt") :result nil - :noeval (f-older-p "same-time1.txt" "same-time2.txt") + :no-eval (f-older-p "same-time1.txt" "same-time2.txt") :result nil) (f-newer-p - :noeval (f-newer-p "newer-file.txt" "older-file.txt") + :no-eval (f-newer-p "newer-file.txt" "older-file.txt") :result t - :noeval (f-newer-p "older-file.txt" "newer-file.txt") + :no-eval (f-newer-p "older-file.txt" "newer-file.txt") :result nil - :noeval (f-newer-p "same-time1.txt" "same-time2.txt") + :no-eval (f-newer-p "same-time1.txt" "same-time2.txt") :result nil) (f-same-time-p - :noeval (f-same-time-p "same-time1.txt" "same-time2.txt") + :no-eval (f-same-time-p "same-time1.txt" "same-time2.txt") :result t - :noeval (f-same-time-p "newer-file.txt" "older-file.txt") + :no-eval (f-same-time-p "newer-file.txt" "older-file.txt") :result nil - :noeval (f-same-time-p "older-file.txt" "newer-file.txt") + :no-eval (f-same-time-p "older-file.txt" "newer-file.txt") :result nil) "Stats" diff --git a/elpa/f-20230704.1346/f.el b/elpa/f-20241003.1131/f.el similarity index 99% rename from elpa/f-20230704.1346/f.el rename to elpa/f-20241003.1131/f.el index 6984aee2..b5d3821c 100644 --- a/elpa/f-20230704.1346/f.el +++ b/elpa/f-20241003.1131/f.el @@ -4,7 +4,8 @@ ;; Author: Johan Andersson ;; Maintainer: Lucien Cartier-Tilet -;; Version: 0.20.0 +;; Package-Version: 20241003.1131 +;; Package-Revision: 931b6d0667fe ;; Package-Requires: ((emacs "24.1") (s "1.7.0") (dash "2.2.0")) ;; Keywords: files, directories ;; Homepage: http://github.com/rejeep/f.el @@ -40,7 +41,8 @@ (require 's) (require 'dash) (when (version<= "28.1" emacs-version) - (require 'f-shortdoc)) + (when (< emacs-major-version 29) + (require 'f-shortdoc nil t))) (put 'f-guard-error 'error-conditions '(error f-guard-error)) (put 'f-guard-error 'error-message "Destructive operation outside sandbox") @@ -633,8 +635,6 @@ their last access time when METHOD is \\='access." (date-file (apply fn-method (list file))) (date-other (apply fn-method (list other))) (dates (-zip-pair date-file date-other))) - (message "[DEBUG]: file: %s\t\tother: %s" file other) - (message "[DEBUG]: dates: %S" dates) (-reduce-from (lambda (acc elt) (if (= acc 0) (f--three-way-compare (car elt) (cdr elt)) -- 2.47.3