Browse Source

Fixed bug in examplization

* lisp/ob.el (org-babel-examplize-region): Fixed bug in examplization.
Eric Schulte 7 years ago
parent
commit
9e3b41d1a4
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/ob.el

+ 2 - 1
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