|
@@ -2291,11 +2291,16 @@ file's directory then expand relative links."
|
|
|
"Comment out region using the inline '==' or ': ' org example quote."
|
|
|
(interactive "*r")
|
|
|
(let ((chars-between (lambda (b e)
|
|
|
- (not (string-match "^[\\s]*$" (buffer-substring b e)))))
|
|
|
+ (not (string-match "^[\\s]*$"
|
|
|
+ (buffer-substring b e)))))
|
|
|
(maybe-cap (lambda (str) (if org-babel-capitalize-examplize-region-markers
|
|
|
- (upcase str) str))))
|
|
|
- (if (or (funcall chars-between (save-excursion (goto-char beg) (point-at-bol)) beg)
|
|
|
- (funcall chars-between end (save-excursion (goto-char end) (point-at-eol))))
|
|
|
+ (upcase str) str)))
|
|
|
+ (beg-bol (save-excursion (goto-char beg) (point-at-bol)))
|
|
|
+ (end-bol (save-excursion (goto-char end) (point-at-bol)))
|
|
|
+ (end-eol (save-excursion (goto-char end) (point-at-eol))))
|
|
|
+ (if (and (not (= end end-bol))
|
|
|
+ (or (funcall chars-between beg-bol beg)
|
|
|
+ (funcall chars-between end end-eol)))
|
|
|
(save-excursion
|
|
|
(goto-char beg)
|
|
|
(insert (format org-babel-inline-result-wrap
|