From: Sean O'Rourke <seano@foobar.local>
Date: Tue, 10 Jan 2012 18:24:30 +0000 (-0700)
Subject: * bind case-fold-search when going to header
X-Git-Url: https://repo.or.cz/w/sepia.git/commitdiff_plain/d944d2cf34168b4dbbc71bc03ec234e43f468a97

* bind case-fold-search when going to header
* fix bug with link-at-EOF
---

diff --git a/sepia.el b/sepia.el
index a56ed8d..25052ee 100644
--- a/sepia.el
+++ b/sepia.el
@@ -1752,7 +1752,8 @@ link using `browse-url'."
           (sec (match-string 2 str)))
       (sepia-perldoc-this page)
       (if src
-          (let (target)
+          (let (target
+                (case-fold-search t))
             (sepia-module-find page)
             (save-excursion
               (goto-char (point-min))
@@ -1767,7 +1768,8 @@ link using `browse-url'."
     ;; jump to POD header in current file or in displayed POD
     (let ((sec (match-string 1 str)))
       (if src
-          (let (target)
+          (let (target
+                (case-fold-search t))
             (save-excursion
               (goto-char (point-min))
               (unless (re-search-forward (concat "^=.*" sec) nil t)
@@ -1789,7 +1791,7 @@ link using `browse-url'."
 (defun sepia-pod-link-at-point (p)
   "Extract POD link at point, or nil."
   (let* ((bol (save-excursion (forward-line 0) (point)))
-         (eol (save-excursion (forward-line 1) (backward-char 1) (point)))
+         (eol (line-end-position))
          (beg (or (save-excursion
                     (forward-char 1)    ;in case we're on < of L<
                     (search-backward "L<" bol t)) p))