add my-w32-shell-execute

lisp/init-deps.el

@@ -68,6 +68,10 @@
     ;;  :linux-command "sudo pacman -S --noconfirm dovecot"
     ;;  :message nil
     ;;  :enabled t)
+    (fusermount3
+     :linux-command "sudo pacman -S --noconfirm fuse3" ; for rclone mount
+     :message nil
+     :enabled t)
     (fzf
      :linux-command "sudo pacman -S --noconfirm fzf"
      :message nil

lisp/init-pre.el

@@ -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:

lisp/init-utils.el

@@ -111,10 +111,11 @@ Version 2023-10-18"
   (let ((fill-column (point-max)))
     (fill-paragraph nil)))
 
-(defun my/unfill-region ()
-  (interactive)
+(defun my/unfill-region (beg end)
+  "Transform a filled region into a single line from BEG to END."
+  (interactive "r")
   (let ((fill-column (point-max)))
-    (fill-region (region-beginning) (region-end) nil)))
+    (fill-region beg end nil)))
 ;; END: undo fill-paragraph