From 9e3b41d1a4187ec6236d9ba15c0879f8a4ac723c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 1 Mar 2012 11:37:37 -0700 Subject: [PATCH] Fixed bug in examplization * lisp/ob.el (org-babel-examplize-region): Fixed bug in examplization. --- lisp/ob.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ob.el b/lisp/ob.el index 6b62c6335..6507b50d4 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1955,7 +1955,8 @@ file's directory then expand relative links." (defun org-babel-examplize-region (beg end &optional results-switches) "Comment out region using the inline '==' or ': ' org example quote." (interactive "*r") - (flet ((chars-between (b e) (string-match "[\\S]" (buffer-substring b e)))) + (flet ((chars-between (b e) + (not (string-match "^[\\s]*$" (buffer-substring b e))))) (if (or (chars-between (save-excursion (goto-char beg) (point-at-bol)) beg) (chars-between end (save-excursion (goto-char end) (point-at-eol)))) (save-excursion