summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-03-01 11:37:37 -0700
committerEric Schulte <eric.schulte@gmx.com>2012-03-01 11:38:05 -0700
commit9e3b41d1a4187ec6236d9ba15c0879f8a4ac723c (patch)
treee3628ec04f11ff1ec16ecb981442feb2919d9944
parent8506c90c4bc680cd22ea1a1e46ee52726c38bb9a (diff)
downloadorg-mode-9e3b41d1a4187ec6236d9ba15c0879f8a4ac723c.tar.gz
Fixed bug in examplization
* lisp/ob.el (org-babel-examplize-region): Fixed bug in examplization.
-rw-r--r--lisp/ob.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index 6b62c63..6507b50 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