[xyzzy:07422] バッファ中のパスを開く

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

こんばんは、サイトウです。

カーソル位置にあるファイルパスを開く関数をつくったりしてみました。
自分で使ってみて便利だったのでPostします。

自分は M-j にバインドして使ってます。

;;== カーソル位置にあるパスを解釈してファイルを開いたりする
;;参考:
;;mouse.l:216
;;errors.l:36
(defun open-cursor-path ()
  (interactive)
  (let (path (skip-words "-a-zA-Z0-9_/~.#@%?&=+(),'$!*:"))
    (save-excursion
      (skip-chars-backward skip-words)
      (setq path (buffer-substring (point)
                                   (progn
                                     (skip-chars-forward skip-words)
                                     (point))))
    )
    (if (file-exist-p path)
        (find-file path nil t)
      (message "~A はファイルなのか？" path)
    )
  )
)

-----------------------------------
サイトウ ヒロシ
HiroshiSaito@xxxxxxx