Para abrir archivos con apps externas uso:
(defun external-app ()
"Open the current file or dired marked files in external app."
(interactive)
(let ( doIt
(myFileList
(cond
((string-equal major-mode "dired-mode")
(dired-get-marked-files))
(t (list (buffer-file-name))) ) ) )
(setq doIt (if (<= (length myFileList) 5)
t
(y-or-n-p "Open more than 5 files?") ) )
(when doIt
(cond
((mapc (lambda (fPath) (let ((process-connection-type nil))
(start-process "" nil "xdg-open" fPath)) ) myFileList))))))
(global-set-key (kbd "<f8>") 'external-app)
Pero, dado que mis conocimientos de elips son nulos, no consigo
encontrar como hacer lo mismo pero que me pregunte con cual aplicación
abrir el archivo y no usando la definida por defecto. ¿Alguien puede
echar una mano?
--
La Pipa Plena <http://www.lapipaplena.net>
_______________________________________________
Emacs-es mailing list
[email protected]
http://es.gnu.org/cgi-bin/mailman/listinfo/emacs-es
