diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-03-01 11:37:37 -0700 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-03-01 11:38:05 -0700 |
commit | 9e3b41d1a4187ec6236d9ba15c0879f8a4ac723c (patch) | |
tree | e3628ec04f11ff1ec16ecb981442feb2919d9944 | |
parent | 8506c90c4bc680cd22ea1a1e46ee52726c38bb9a (diff) | |
download | org-mode-9e3b41d1a4187ec6236d9ba15c0879f8a4ac723c.tar.gz |
Fixed bug in examplization
* lisp/ob.el (org-babel-examplize-region): Fixed bug in examplization.
-rw-r--r-- | lisp/ob.el | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |