Здесь включается открытие файла ассоциированного с приложениями windows.
Подсмотрено тут:
https://www.emacswiki.org/emacs/w32-browser.el
http://ergoemacs.org/emacs/emacs_dired_open_file_in_ext_apps.html
(Нельзя назвать это оригинальным, но час на поиски этого увы ушел)

 

(defun interactive1 (number) 

(interactive "p")

(let* (($file-list

(if (string-equal major-mode "dired-mode") 

(dired-get-marked-files) 

(list (buffer-file-name)))))

;;  (message "~{~a~}" $file-list)

(mapc (lambda ($fpath) 

(w32-shell-execute nil (replace-regexp-in-string "/" "\" $fpath t t))) 

$file-list))

)

 

(global-set-key [f7] 'interactive1)

(define-key dired-mode-map [mouse-2] 'interactive1)

* строчку следует читать так (поломалась):
(w32-shell-execute nil (replace-regexp-in-string "/" "\\" $fpath t t)))