Re: Launch application with region as a parameter

[Tak Kunihiro]

I suppose you want to have something like below.

(defun open-file-at-point ()
  "Open a file at point by Explorer."
  (interactive)
  (let ((file (thing-at-point 'filename)) w32file)
    (when (file-exists-p file)
        (setq w32file (subst-char-in-string ?/ ?\\ (expand-file-name file)))
        (w32-shell-execute "open" "explorer" w32file))))
(global-set-key (kbd "C-c o") 'open-thing-at-point)