forked from mirrors/org-mode
Handle comments in source blocks with `comment-line'
* lisp/org.el (org-comment-or-uncomment-region): Caller is not necessarily `comment-dwim'. Also handle `comment-line'. Reported-by: Xebar Saram <zeltakc@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/109809>
This commit is contained in:
parent
8d2f0a4411
commit
21c6148bbe
|
@ -23526,7 +23526,13 @@ strictly within a source block, use appropriate comment syntax."
|
|||
(skip-chars-backward " \r\t\n")
|
||||
(line-beginning-position))
|
||||
end)))
|
||||
(org-babel-do-in-edit-buffer (call-interactively 'comment-dwim))
|
||||
;; Translate region boundaries for the Org buffer to the source
|
||||
;; buffer.
|
||||
(let ((offset (- end beg)))
|
||||
(save-excursion
|
||||
(goto-char beg)
|
||||
(org-babel-do-in-edit-buffer
|
||||
(comment-or-uncomment-region (point) (+ offset (point))))))
|
||||
(save-restriction
|
||||
;; Restrict region
|
||||
(narrow-to-region (save-excursion (goto-char beg)
|
||||
|
|
Loading…
Reference in New Issue