From 3112fd4b5b25b84273bfbebf4ede71ea20704a9b Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Fri, 24 Jun 2011 23:25:14 -0400 Subject: [PATCH] org2blog/common/l2r-remote-url treats "file:///" prefix now --- common/l2r.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/common/l2r.el b/common/l2r.el index 297a494..ab2014c 100644 --- a/common/l2r.el +++ b/common/l2r.el @@ -52,8 +52,14 @@ remote URLs" ;;;_ . org2blog/common/l2r-remote-url (defun org2blog/common/l2r-remote-url (path) "Return the persisting translation of PATH." + (let* + ( (path + (if (string-match "file://" path) + (substring path (match-end 0)) + path)) + (true-path (expand-file-name path))) (cadr - (tinydb-alist-assoc org2blog/common/l2r-tq (expand-file-name path)))) + (tinydb-alist-assoc org2blog/common/l2r-tq true-path)))) ;;;_ . org2blog/common/l2r-cvt-link (defun org2blog/common/l2r-cvt-link (opt-plist type path) -- 2.11.4.GIT