From 8e341b2eca379e6d69fe55c822e74ee0e1fc0726 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Mon, 6 Nov 2006 13:59:06 +0000 Subject: [PATCH] Fix link-following bug with invalid relative links 2006-11-06 Michael Olson * lisp/muse-project.el (muse-project-find-file): Fix bug when following a relative link worked even when the path was incorrect. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-242 --- ChangeLog | 5 +++++ lisp/muse-project.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index aed9f93..c7c1058 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-11-06 Michael Olson + + * lisp/muse-project.el (muse-project-find-file): Fix bug when + following a relative link worked even when the path was incorrect. + 2006-11-04 Michael Olson * lisp/muse-wiki.el (muse-wiki-update-interwiki-regexp): Make page diff --git a/lisp/muse-project.el b/lisp/muse-project.el index 740a69f..6847585 100644 --- a/lisp/muse-project.el +++ b/lisp/muse-project.el @@ -548,7 +548,8 @@ first directory within the project's fileset is used." ;; If we're given a relative or absolute filename, open it as-is (if (and (car name) (save-match-data - (or (string-match muse-file-regexp (car name)) + (or (string-match "\\`\\.+/" (car name)) + (string-match muse-file-regexp (car name)) (string-match muse-image-regexp (car name))))) (setcdr name (car name)) ;; At this point, name is (PAGE . FILE). -- 2.11.4.GIT