* bind case-fold-search when going to header
authorSean O'Rourke <seano@foobar.local>
Tue, 10 Jan 2012 18:24:30 +0000 (10 11:24 -0700)
committerSean O'Rourke <seano@foobar.local>
Tue, 10 Jan 2012 18:24:30 +0000 (10 11:24 -0700)
* fix bug with link-at-EOF

sepia.el

index a56ed8d..25052ee 100644 (file)
--- 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))