From 618d6d20db7ac78d564780be37a5f124f283e01b Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 15 Feb 2007 14:13:21 +0000 Subject: [PATCH] Fix error with nestable tags, in particular 2007-02-15 Michael Olson * lisp/muse.el (muse-goto-tag-end): Modify regexp to allow tags to be not just at beginning of line. This fixes an error with the tag. Thanks to Jim Pivarski for the report. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-280 --- ChangeLog | 6 ++++++ lisp/muse.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 977b9aa..9193d5c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-02-15 Michael Olson + + * lisp/muse.el (muse-goto-tag-end): Modify regexp to allow tags to + be not just at beginning of line. This fixes an error with the + tag. Thanks to Jim Pivarski for the report. + 2007-02-14 Michael Olson * lisp/muse-publish.el (muse-publish-classify-url): Check to see diff --git a/lisp/muse.el b/lisp/muse.el index 6231f89..30d7ef1 100644 --- a/lisp/muse.el +++ b/lisp/muse.el @@ -753,7 +753,7 @@ may be nested inside of this tag, and skip past them." (if (not nested) (search-forward (concat "") nil t) (let ((nesting 1) - (tag-regexp (concat "^\\(<\\(/?\\)" tag ">\\)")) + (tag-regexp (concat "\\(<\\(/?\\)" tag ">\\)")) (match-found nil)) (while (and (> nesting 0) (setq match-found (re-search-forward tag-regexp nil t))) -- 2.11.4.GIT