jason/emacs.d
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

add my-w32-shell-execute

Browse source
This commit is contained in:
Jason Tian 2024-09-20 13:11:03 +08:00
parent 9f39ce6c83
commit 0d524af979
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/init-pre.el
View file

@ -240,6 +240,28 @@ The tee executable is required for the sudo execution.")))
;; (my-run-after-emacs-startup 'desktop-read)
(when *is-win*
;; START: my w32-shell-execute
(defvar my-enable-w32-shell-execute t
"Flag to indicate if the `w32-shell-execute` is enabled.")
(defun my-w32-shell-execute (operation file &optional parameters show-flag)
"Execute a shell command using `w32-shell-execute` if enabled.
OPERATION specifies the action to be performed (e.g., 'open').
FILE specifies the file to execute.
PARAMETERS specify additional parameters for the execution.
SHOW-FLAG is used to control the window display options."
(if my-enable-w32-shell-execute
(w32-shell-execute operation file parameters show-flag)
(message "The w32-shell-execute is disabled by me.")))
;; END: my w32-shell-execute
)
(provide 'init-pre)
;; Local Variables: