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"))
|
||||
(> (length text) 0))
|
||||
(if org-babel-tangle-uncomment-comments
|
||||
;; just plain comments with no processing
|
||||
;; Plain comments: no processing.
|
||||
(insert text)
|
||||
;; ensure comments are made to be
|
||||
;; comments, and add a trailing newline
|
||||
;; Ensure comments are made to be
|
||||
;; comments, and add a trailing
|
||||
;; newline. Also ignore invisible
|
||||
;; characters when commenting.
|
||||
(comment-region
|
||||
(point) (progn (insert text) (point)))
|
||||
(end-of-line nil)
|
||||
(point)
|
||||
(progn (insert (org-no-properties text))
|
||||
(point)))
|
||||
(end-of-line)
|
||||
(insert "\n"))))))
|
||||
(when comment (funcall insert-comment comment))
|
||||
(when link-p
|
||||
|
|
|
@ -77,6 +77,23 @@
|
|||
(should (string-match (regexp-quote "simple") 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)
|
||||
|
||||
;;; test-ob-tangle.el ends here
|
||||
|
|
Loading…
Reference in New Issue