From 3e3ef4461f598a88461245f659341201c68503ef Mon Sep 17 00:00:00 2001 From: Peter Jones Date: Thu, 22 Nov 2012 10:36:50 -0700 Subject: [PATCH] Ensure that narrowing contains everything between the tokens --- lisp/bufshow.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/bufshow.el b/lisp/bufshow.el index d2a8d50..b93cd17 100644 --- 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)))