Open file or direcotry using marked text path

dealover

Open file or direcotry using marked text file/directory path.
(defun open-mark-file-path ()
"open file or directory by marking text file path"
(interactive)
      (let ((fpath (buffer-substring-no-properties (region-beginning) (region-end))))
        (progn
          (find-file fpath)
          )
        )
)
(global-set-key [f5] 'open-mark-file-path)
todo: If nothing is marked, it will auto-use the string at current cursor point as path.
               
               
               

本文來自ChinaUnix博客，如果查看原文請點：http://blog.chinaunix.net/u/29993/showart_2013408.html