From 5c4f5db7b1ed988e861b840f355ea1671c639b87 Mon Sep 17 00:00:00 2001 From: Sean O'Rourke Date: Tue, 10 Jan 2012 11:16:22 -0700 Subject: [PATCH] Fix bug #73721 --- sepia.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sepia.el b/sepia.el index ab60dd4..a56ed8d 100644 --- a/sepia.el +++ b/sepia.el @@ -1756,7 +1756,7 @@ link using `browse-url'." (sepia-module-find page) (save-excursion (goto-char (point-min)) - (if (search-forward (concat "^=.*" sec) nil t) + (if (re-search-forward (concat "^=.*" sec) nil t) (goto-char target) (message "Can't find anchor for %s." str)))) (w3m-search-name-anchor sec)))) @@ -1770,9 +1770,9 @@ link using `browse-url'." (let (target) (save-excursion (goto-char (point-min)) - (unless (search-forward (concat "^=.*" sec) nil t) + (unless (re-search-forward (concat "^=.*" sec) nil t) (error "Can't find anchor for %s." str)) - (setq target (match-beginning))) + (setq target (match-beginning 0))) (and target (goto-char target))) (sepia-view-pod) (w3m-search-name-anchor (match-string 1 str))))) -- 2.11.4.GIT