Merge branch 'origin-maint'

2012-03-01 11:38:24 -07:00 · 2012-03-01 11:38:24 -07:00 · 1ed518109e
parent a3a48f698f 9e3b41d1a4
commit 1ed518109e
1 changed files with 2 additions and 1 deletions
--- a/lisp/ob.el
+++ b/lisp/ob.el
@ -1996,7 +1996,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