From d7eacccf74240fe9d37445be1f29c2dbb3af24d1 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 26 Apr 2026 18:35:11 +0200 Subject: [PATCH] update async --- elpa/async-20260318.1803/README-elpa | 2 + .../async-autoloads.el | 48 ++++++++--------- .../async-bytecomp.el | 54 +++++++++---------- .../async-package.el | 2 +- .../async-pkg.el | 6 +-- .../async.el | 26 +++++---- .../dired-async.el | 12 ++--- .../smtpmail-async.el | 0 8 files changed, 75 insertions(+), 75 deletions(-) create mode 100644 elpa/async-20260318.1803/README-elpa rename elpa/{async-20251005.634 => async-20260318.1803}/async-autoloads.el (84%) rename elpa/{async-20251005.634 => async-20260318.1803}/async-bytecomp.el (84%) rename elpa/{async-20251005.634 => async-20260318.1803}/async-package.el (99%) rename elpa/{async-20251005.634 => async-20260318.1803}/async-pkg.el (71%) rename elpa/{async-20251005.634 => async-20260318.1803}/async.el (97%) rename elpa/{async-20251005.634 => async-20260318.1803}/dired-async.el (98%) rename elpa/{async-20251005.634 => async-20260318.1803}/smtpmail-async.el (100%) diff --git a/elpa/async-20260318.1803/README-elpa b/elpa/async-20260318.1803/README-elpa new file mode 100644 index 00000000..ac103499 --- /dev/null +++ b/elpa/async-20260318.1803/README-elpa @@ -0,0 +1,2 @@ +Adds the ability to call asynchronous functions and process with ease. See +the documentation for `async-start' and `async-start-process'. diff --git a/elpa/async-20251005.634/async-autoloads.el b/elpa/async-20260318.1803/async-autoloads.el similarity index 84% rename from elpa/async-20251005.634/async-autoloads.el rename to elpa/async-20260318.1803/async-autoloads.el index 5dbb2341..dd83dabd 100644 --- a/elpa/async-20251005.634/async-autoloads.el +++ b/elpa/async-20260318.1803/async-autoloads.el @@ -11,8 +11,8 @@ ;;; Generated autoloads from async.el -(autoload 'async-start-process "async" "\ -Start the executable PROGRAM asynchronously named NAME. See `async-start'. +(autoload 'async-start-process "async" +"Start the executable PROGRAM asynchronously named NAME. See `async-start'. PROGRAM is passed PROGRAM-ARGS, calling FINISH-FUNC with the process object when done. If FINISH-FUNC is nil, the future object will return the process object when the program is @@ -20,8 +20,8 @@ finished. Set DEFAULT-DIRECTORY to change PROGRAM's current working directory. (fn NAME PROGRAM FINISH-FUNC &rest PROGRAM-ARGS)") -(autoload 'async-start "async" "\ -Execute START-FUNC (often a lambda) in a subordinate Emacs process. +(autoload 'async-start "async" +"Execute START-FUNC (often a lambda) in a subordinate Emacs process. When done, the return value is passed to FINISH-FUNC. Example: (async-start @@ -95,21 +95,21 @@ returns nil. It can still be useful, however, as an argument to ;;; Generated autoloads from async-bytecomp.el -(autoload 'async-byte-recompile-directory "async-bytecomp" "\ -Compile all *.el files in DIRECTORY asynchronously. +(autoload 'async-byte-recompile-directory "async-bytecomp" +"Compile all *.el files in DIRECTORY asynchronously. All *.elc files are systematically deleted before proceeding. (fn DIRECTORY &optional QUIET)") -(defvar async-bytecomp-package-mode nil "\ -Non-nil if Async-Bytecomp-Package mode is enabled. +(defvar async-bytecomp-package-mode nil +"Non-nil if Async-Bytecomp-Package mode is enabled. See the `async-bytecomp-package-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `async-bytecomp-package-mode'.") (custom-autoload 'async-bytecomp-package-mode "async-bytecomp" nil) -(autoload 'async-bytecomp-package-mode "async-bytecomp" "\ -Byte compile asynchronously packages installed with package.el. +(autoload 'async-bytecomp-package-mode "async-bytecomp" +"Byte compile asynchronously packages installed with package.el. Async compilation of packages can be controlled by `async-bytecomp-allowed-packages'. @@ -132,8 +132,8 @@ The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG)" t) -(autoload 'async-byte-compile-file "async-bytecomp" "\ -Byte compile Lisp code FILE asynchronously. +(autoload 'async-byte-compile-file "async-bytecomp" +"Byte compile Lisp code FILE asynchronously. Same as `byte-compile-file' but asynchronous. @@ -148,16 +148,16 @@ Same as `byte-compile-file' but asynchronous. ;;; Generated autoloads from dired-async.el -(defvar dired-async-mode nil "\ -Non-nil if Dired-Async mode is enabled. +(defvar dired-async-mode nil +"Non-nil if Dired-Async mode is enabled. See the `dired-async-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `dired-async-mode'.") (custom-autoload 'dired-async-mode "dired-async" nil) -(autoload 'dired-async-mode "dired-async" "\ -Do dired actions asynchronously. +(autoload 'dired-async-mode "dired-async" +"Do dired actions asynchronously. This is a global minor mode. If called interactively, toggle the `Dired-Async mode' mode. If the prefix argument is positive, enable the @@ -174,20 +174,20 @@ The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG)" t) -(autoload 'dired-async-do-copy "dired-async" "\ -Run ‘dired-do-copy’ asynchronously. +(autoload 'dired-async-do-copy "dired-async" +"Run ‘dired-do-copy’ asynchronously. (fn &optional ARG)" t) -(autoload 'dired-async-do-symlink "dired-async" "\ -Run ‘dired-do-symlink’ asynchronously. +(autoload 'dired-async-do-symlink "dired-async" +"Run ‘dired-do-symlink’ asynchronously. (fn &optional ARG)" t) -(autoload 'dired-async-do-hardlink "dired-async" "\ -Run ‘dired-do-hardlink’ asynchronously. +(autoload 'dired-async-do-hardlink "dired-async" +"Run ‘dired-do-hardlink’ asynchronously. (fn &optional ARG)" t) -(autoload 'dired-async-do-rename "dired-async" "\ -Run ‘dired-do-rename’ asynchronously. +(autoload 'dired-async-do-rename "dired-async" +"Run ‘dired-do-rename’ asynchronously. (fn &optional ARG)" t) (register-definition-prefixes "dired-async" '("dired-async-")) diff --git a/elpa/async-20251005.634/async-bytecomp.el b/elpa/async-20260318.1803/async-bytecomp.el similarity index 84% rename from elpa/async-20251005.634/async-bytecomp.el rename to elpa/async-20260318.1803/async-bytecomp.el index a5d63709..12013bd0 100644 --- a/elpa/async-20251005.634/async-bytecomp.el +++ b/elpa/async-20260318.1803/async-bytecomp.el @@ -110,33 +110,33 @@ The log file is a temporary file that name is determined by `async-byte-compile-log-file', which see. Return the actual log file name, or nil if no log file has been created." `(when (get-buffer byte-compile-log-buffer) - (let ((error-data (with-current-buffer byte-compile-log-buffer - (buffer-substring-no-properties (point-min) (point-max))))) - (unless (string= error-data "") - ;; The `async-byte-compile-log-file' used to be an absolute file name - ;; shared amongst all compilation async processes. For backward - ;; compatibility the directory part of it is used to create logs the same - ;; directory while the nondirectory part denotes the PREFIX for - ;; `make-temp-file' call. The `temporary-file-directory' is bound, such - ;; that the async process uses one set by the caller. - (let ((temporary-file-directory - ,(or (when (and async-byte-compile-log-file - (file-name-absolute-p - async-byte-compile-log-file)) - (expand-file-name (file-name-directory - async-byte-compile-log-file))) - temporary-file-directory)) - (log-file (make-temp-file ,(let ((log-file - (file-name-nondirectory - async-byte-compile-log-file))) - (format "%s%s" - log-file - (if (string-suffix-p "." log-file) - "" ".")))))) - (with-temp-file log-file - (erase-buffer) - (insert error-data)) - log-file))))) + (let ((error-data (with-current-buffer byte-compile-log-buffer + (buffer-substring-no-properties (point-min) (point-max))))) + (unless (string= error-data "") + ;; The `async-byte-compile-log-file' used to be an absolute file name + ;; shared amongst all compilation async processes. For backward + ;; compatibility the directory part of it is used to create logs the same + ;; directory while the nondirectory part denotes the PREFIX for + ;; `make-temp-file' call. The `temporary-file-directory' is bound, such + ;; that the async process uses one set by the caller. + (let ((temporary-file-directory + ,(or (when (and async-byte-compile-log-file + (file-name-absolute-p + async-byte-compile-log-file)) + (expand-file-name (file-name-directory + async-byte-compile-log-file))) + temporary-file-directory)) + (log-file (make-temp-file ,(let ((log-file + (file-name-nondirectory + async-byte-compile-log-file))) + (format "%s%s" + log-file + (if (string-suffix-p "." log-file) + "" ".")))))) + (with-temp-file log-file + (erase-buffer) + (insert error-data)) + log-file))))) ;;;###autoload (defun async-byte-recompile-directory (directory &optional quiet) diff --git a/elpa/async-20251005.634/async-package.el b/elpa/async-20260318.1803/async-package.el similarity index 99% rename from elpa/async-20251005.634/async-package.el rename to elpa/async-20260318.1803/async-package.el index 208d5a0f..4d8d270c 100644 --- a/elpa/async-20251005.634/async-package.el +++ b/elpa/async-20260318.1803/async-package.el @@ -33,7 +33,7 @@ (require 'package) (define-minor-mode async-package--modeline-mode - "Notify mode-line that an async process run." + "Notify mode-line that an async process run." :group 'async :global t :lighter (:eval (propertize (format " [%s async job Installing package(s)]" diff --git a/elpa/async-20251005.634/async-pkg.el b/elpa/async-20260318.1803/async-pkg.el similarity index 71% rename from elpa/async-20251005.634/async-pkg.el rename to elpa/async-20260318.1803/async-pkg.el index ebe53e94..3fb33080 100644 --- a/elpa/async-20251005.634/async-pkg.el +++ b/elpa/async-20260318.1803/async-pkg.el @@ -1,10 +1,10 @@ ;; -*- no-byte-compile: t; lexical-binding: nil -*- -(define-package "async" "20251005.634" +(define-package "async" "20260318.1803" "Asynchronous processing in Emacs." '((emacs "24.4")) :url "https://github.com/jwiegley/emacs-async" - :commit "31cb2fea8f4bc7a593acd76187a89075d8075500" - :revdesc "31cb2fea8f4b" + :commit "5faab28916603bb324d9faba057021ce028ca847" + :revdesc "5faab2891660" :keywords '("async") :authors '(("John Wiegley" . "jwiegley@gmail.com")) :maintainers '(("Thierry Volpiatto" . "thievol@posteo.net"))) diff --git a/elpa/async-20251005.634/async.el b/elpa/async-20260318.1803/async.el similarity index 97% rename from elpa/async-20251005.634/async.el rename to elpa/async-20260318.1803/async.el index 4c2b01f2..8bfb3c90 100644 --- a/elpa/async-20251005.634/async.el +++ b/elpa/async-20260318.1803/async.el @@ -6,12 +6,12 @@ ;; Maintainer: Thierry Volpiatto ;; Created: 18 Jun 2012 -;; Package-Version: 20251005.634 -;; Package-Revision: 31cb2fea8f4b +;; Package-Version: 20260318.1803 +;; Package-Revision: 5faab2891660 ;; Package-Requires: ((emacs "24.4")) ;; Keywords: async -;; X-URL: https://github.com/jwiegley/emacs-async +;; URL: https://github.com/jwiegley/emacs-async ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -284,15 +284,13 @@ is used." (move-marker async-read-marker (point))))))) (defun async--receive-sexp (&optional stream) - ;; FIXME: Why use `utf-8-auto' instead of `utf-8-unix'? This is - ;; a communication channel over which we have complete control, - ;; so we get to choose exactly which encoding and EOL we use, isn't - ;; it? - ;; UPDATE: We use now `utf-8-emacs-unix' instead of `utf-8-auto' as - ;; recommended in bug#165. + ;; We use `utf-8-emacs-unix' for the communication channel between + ;; parent and child Emacs processes. This encoding can represent any + ;; character that Emacs is capable of processing and gives us full + ;; control over the EOL format. (See bug#165) (let ((sexp (decode-coding-string (base64-decode-string (read stream)) 'utf-8-emacs-unix)) - ;; Parent expects UTF-8 encoded text. + ;; Parent expects utf-8-emacs-unix encoded text. (coding-system-for-write 'utf-8-emacs-unix)) (if async-debug (message "Received sexp {{{%s}}}" (pp-to-string sexp))) @@ -324,8 +322,8 @@ is used." (defun async-batch-invoke () "Called from the child Emacs process' command line." - ;; Make sure 'message' and 'prin1' encode stuff in UTF-8, as parent - ;; process expects. + ;; Make sure 'message' and 'prin1' encode stuff in utf-8-emacs-unix, + ;; as parent process expects. (let ((coding-system-for-write 'utf-8-emacs-unix) (args-left command-line-args-left)) (setq async-in-child-emacs t @@ -488,7 +486,7 @@ used globally. Should be found with `locate-library'.") (with-temp-buffer (async--insert-sexp (list 'quote sexp)) (buffer-string)) - ""))))) + ""))))) ;;;###autoload (defun async-start (start-func &optional finish-func) @@ -560,7 +558,7 @@ passed to FINISH-FUNC). Call `async-get' on such a future always returns nil. It can still be useful, however, as an argument to `async-ready' or `async-wait'." (let ((sexp start-func) - ;; Subordinate Emacs will send text encoded in UTF-8. + ;; Subordinate Emacs will send text encoded in utf-8-emacs-unix. (coding-system-for-read 'utf-8-emacs-unix)) (setq async--procvar (apply 'async-start-process diff --git a/elpa/async-20251005.634/dired-async.el b/elpa/async-20260318.1803/dired-async.el similarity index 98% rename from elpa/async-20251005.634/dired-async.el rename to elpa/async-20260318.1803/dired-async.el index b044bd12..6f3fbaaf 100644 --- a/elpa/async-20251005.634/dired-async.el +++ b/elpa/async-20260318.1803/dired-async.el @@ -88,19 +88,19 @@ or rename for `dired-async-skip-fast'." :type 'integer) (defface dired-async-message - '((t (:foreground "yellow"))) + '((t (:foreground "yellow"))) "Face used for mode-line message.") (defface dired-async-failures - '((t (:foreground "red"))) + '((t (:foreground "red"))) "Face used for mode-line message.") (defface dired-async-mode-message - '((t (:foreground "Gold"))) + '((t (:foreground "Gold"))) "Face used for `dired-async--modeline-mode' lighter.") (define-minor-mode dired-async--modeline-mode - "Notify mode-line that an async process run." + "Notify mode-line that an async process run." :global t :lighter (:eval (propertize (format " [%s Async job(s) running]" (length (dired-async-processes))) @@ -227,8 +227,8 @@ See `dired-create-files' for FILE-CREATOR and NAME-CONSTRUCTOR." (dired-async--same-device-p file (file-name-directory new)))))) (defun dired-async--smart-create-files (old-func file-creator - operation fn-list name-constructor - &optional marker-char) + operation fn-list name-constructor + &optional marker-char) "Around advice for `dired-create-files'. Uses async like `dired-async-create-files' but skips certain fast cases if `dired-async-skip-fast' is non-nil." diff --git a/elpa/async-20251005.634/smtpmail-async.el b/elpa/async-20260318.1803/smtpmail-async.el similarity index 100% rename from elpa/async-20251005.634/smtpmail-async.el rename to elpa/async-20260318.1803/smtpmail-async.el -- 2.47.3