From 064d61527bc6b6a1d0fb0065f8a7bae3bbd4cefc Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sun, 5 Mar 2023 15:09:56 +0800 Subject: [PATCH] define alias for 'do-applescript to 'ns-do-applescript --- ffmpeg-utils.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ffmpeg-utils.el b/ffmpeg-utils.el index 7bcd016..e23308a 100644 --- a/ffmpeg-utils.el +++ b/ffmpeg-utils.el @@ -34,6 +34,8 @@ (require 'transient) (declare-function ns-do-applescript "ext:macos-builtin") +(unless (fboundp 'do-applescript) + (defalias 'do-applescript 'ns-do-applescript)) (declare-function osx-lib-notify3 "osx-lib.el") (defvar ffmpeg-utils--output-filename nil @@ -60,13 +62,12 @@ ((featurep 'alert) (let ((msg "Emacs ffmpeg-utils.el process finished.")) (cl-case system-type - (darwin - (ns-do-applescript (format "say \"%s\"" msg)))) + (darwin (do-applescript (format "say \"%s\"" msg)))) (alert msg :title "Emacs ffmpeg-utils.el"))) ((require 'osx-lib nil t) (osx-lib-notify3 "Emacs" "ffmpeg-utils.el" msg)) - ((fboundp 'ns-do-applescript) - (ns-do-applescript + ((fboundp 'do-applescript) + (do-applescript (format "display notification \"%s\" with title \"%s\"" msg "Emacs ffmpeg-utils.el"))) ((executable-find "osascript") -- 2.11.4.GIT