Ensure that narrowing contains everything between the tokens

pjones · Nov 22, 2012 · 3e3ef44 · 3e3ef44
1 parent c3d02c5
commit 3e3ef44
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lisp/bufshow.el b/lisp/bufshow.el
@@ -157,11 +157,13 @@ directory. "
   (let* ((start (save-excursion
                   (search-forward (concat "{BEGIN: " token "}"))
                   (forward-line)
+                  (beginning-of-line)
                   (point)))
          (end (save-excursion
                 (goto-char start)
                 (search-forward "{END}")
                 (forward-line -1)
+                (end-of-line)
                 (point))))
     (narrow-to-region start end)))