|
@@ -240,8 +240,8 @@ buffer."
|
|
|
block-nindent (nth 5 info)
|
|
|
lang-f (intern (concat lang "-mode"))
|
|
|
begline (save-excursion (goto-char beg) (org-current-line)))
|
|
|
- (if (and mark (>= mark beg) (<= mark end))
|
|
|
- (save-excursion (goto-char mark)
|
|
|
+ (if (and mark (>= mark beg) (<= mark (1+ end)))
|
|
|
+ (save-excursion (goto-char (min mark end))
|
|
|
(setq markline (org-current-line)
|
|
|
markcol (current-column))))
|
|
|
(if (equal lang-f 'table.el-mode)
|