forked from mirrors/org-mode
ob-tangle: Fix commenting links at column 0
* lisp/ob-tangle.el (org-babel-spec-to-string): Ignore invisible characters when commenting in destination file. * testing/lisp/test-ob-tangle.el (ob-tangle/comment-links-at-left-margin): New test. Reported-by: Rainer M Krug <Rainer@krugs.de> <http://permalink.gmane.org/gmane.emacs.orgmode/101002>
This commit is contained in:
parent
f051d663ab
commit
62dc515ae5
|
@ -362,13 +362,17 @@ that the appropriate major-mode is set. SPEC has the form:
|
||||||
(when (and comments (not (string= comments "no"))
|
(when (and comments (not (string= comments "no"))
|
||||||
(> (length text) 0))
|
(> (length text) 0))
|
||||||
(if org-babel-tangle-uncomment-comments
|
(if org-babel-tangle-uncomment-comments
|
||||||
;; just plain comments with no processing
|
;; Plain comments: no processing.
|
||||||
(insert text)
|
(insert text)
|
||||||
;; ensure comments are made to be
|
;; Ensure comments are made to be
|
||||||
;; comments, and add a trailing newline
|
;; comments, and add a trailing
|
||||||
|
;; newline. Also ignore invisible
|
||||||
|
;; characters when commenting.
|
||||||
(comment-region
|
(comment-region
|
||||||
(point) (progn (insert text) (point)))
|
(point)
|
||||||
(end-of-line nil)
|
(progn (insert (org-no-properties text))
|
||||||
|
(point)))
|
||||||
|
(end-of-line)
|
||||||
(insert "\n"))))))
|
(insert "\n"))))))
|
||||||
(when comment (funcall insert-comment comment))
|
(when comment (funcall insert-comment comment))
|
||||||
(when link-p
|
(when link-p
|
||||||
|
|
|
@ -77,6 +77,23 @@
|
||||||
(should (string-match (regexp-quote "simple") expanded))
|
(should (string-match (regexp-quote "simple") expanded))
|
||||||
(should (string-match (regexp-quote "length 14") expanded)))))
|
(should (string-match (regexp-quote "length 14") expanded)))))
|
||||||
|
|
||||||
|
(ert-deftest ob-tangle/comment-links-at-left-margin ()
|
||||||
|
"Test commenting of links at left margin."
|
||||||
|
(should
|
||||||
|
(string-match
|
||||||
|
(regexp-quote "# [[http://orgmode.org][Org mode]]")
|
||||||
|
(org-test-with-temp-text-in-file
|
||||||
|
"[[http://orgmode.org][Org mode]]
|
||||||
|
#+header: :comments org :tangle \"test-ob-tangle.sh\"
|
||||||
|
#+begin_src sh
|
||||||
|
echo 1
|
||||||
|
#+end_src"
|
||||||
|
(unwind-protect
|
||||||
|
(progn (org-babel-tangle)
|
||||||
|
(with-temp-buffer (insert-file-contents "test-ob-tangle.sh")
|
||||||
|
(buffer-string)))
|
||||||
|
(delete-file "test-ob-tangle.sh"))))))
|
||||||
|
|
||||||
(provide 'test-ob-tangle)
|
(provide 'test-ob-tangle)
|
||||||
|
|
||||||
;;; test-ob-tangle.el ends here
|
;;; test-ob-tangle.el ends here
|
||||||
|
|
Loading…
Reference in New Issue