Re: [O] Bug: org-babel-tangle fails with :comments org [8.3beta (release_8.3beta-1286-g20795f @ /home/malsburg/usr/share/emacs/site-lisp/org/)]

2016-01-31 Thread Nicolas Goaziou 
Hello,

Titus von der Malsburg  writes:

> I used the following org-mode document:
>
>   #+PROPERTY: header-args:R :tangle yes :comments org
>   
>   * Test
>   
>   Text for testing.
>   
>   #+BEGIN_SRC R
>   message(1)
>   #+END_SRC
>   
>   #+BEGIN_SRC R
>   message(2)
>   #+END_SRC
>
> When I `org-babel-tangle', this fails after the first code block is
> written.  Stacktrace below.  Tested with current development versions of
> Emacs and org-mode.
>
> Debugger entered--Lisp error: (error "Nothing to comment")

Fixed. Thank you.


Regards,

-- 
Nicolas Goaziou

[O] Bug: org-babel-tangle fails with :comments org [8.3beta (release_8.3beta-1286-g20795f @ /home/malsburg/usr/share/emacs/site-lisp/org/)]

2016-01-31 Thread Titus von der Malsburg 

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


I used the following org-mode document:

  #+PROPERTY: header-args:R :tangle yes :comments org
  
  * Test
  
  Text for testing.
  
  #+BEGIN_SRC R
  message(1)
  #+END_SRC
  
  #+BEGIN_SRC R
  message(2)
  #+END_SRC

When I `org-babel-tangle', this fails after the first code block is
written.  Stacktrace below.  Tested with current development versions of
Emacs and org-mode.

Debugger entered--Lisp error: (error "Nothing to comment")
  signal(error ("Nothing to comment"))
  error("Nothing to comment")
  comment-region-default(1 3 nil)
  comment-region(1 3)
  #[(text) "\205&\303\230?\205&   G\304V\205&\n\203  c\207\305`  
c\210`\"\210\306\210\307c\207" [comments text 
org-babel-tangle-uncomment-comments "no" 0 comment-region nil "\n"] 3](#("\n\n" 
0 1 (font-lock-fontified t fontified t face org-block-end-line) 1 2 
(font-lock-fontified t fontified t)))
  org-babel-spec-to-string((12 "/tmp/test2.org" "file:/tmp/test2.org::*Test" 
Test:1 ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:comments . "org") (:shebang . "") (:cache . "no") 
(:padline . "") (:noweb . "no") (:tangle . "yes") (:exports . "code") (:results 
. "replace") (:hlines . "no") (:session . "none")) "message(2)" #("\n\n" 0 1 
(font-lock-fontified t fontified t face org-block-end-line) 1 2 
(font-lock-fontified t fontified t
  #[(spec) "\306\211\307!\310!\211G\311V\205\n)\312! \313\230\203%\314\315 
!\2027\316\230\203/\317\2027  G\311V\2057 \211\205P,\203O
\313\230\203O
\320,Q\202P
\211-\205\321!\322-!.\211/\203w.\203w/\316\230\204w\323.\324\"\210*\325-!\203\217-\326\327*\"\235\204\217\330-!\210\331\332!0r0q\210\333\216\3341!\203\247\317\335\336\217\210\203\277-2\235\204\277\337Pc\210-2B2\3403!\210\341
 
4\331\332!5r5q\210\342\216\325-!\203\340\343-!\210db\210\344\345\34638\"A\316\230\204\371`eU\204\371\337c\2104c\210\347\317\211-#\210.\203\f\204\3506T6\351\352-\fB\317\353$.\207"
 [get-spec tangle sheb she-bang tangle-mode base-name #[(name) "\302\303   
8\"A\207" [name spec assoc 4] 4] :tangle :shebang 0 :tangle-mode "yes" 
file-name-sans-extension buffer-file-name "no" nil "." :mkdirp 
file-name-directory make-directory parents file-exists-p mapcar car delete-file 
generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" 
[temp-buffer buffer-name kill-buffer] 2)) fboundp (funcall lang-f) ((error)) 
"\n" org-babel-spec-to-string buffer-string ((byte-code 
"\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) 
insert-file-contents assoc :padline 4 write-region 493 add-to-list 
path-collector #[(a b) "@  @\232\207" [a b] 2] ext file-name fnd m temp-buffer 
lang-f ...] 6]((12 "/tmp/test2.org" "file:/tmp/test2.org::*Test" Test:1 
((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . 
value) (:comments . "org") (:shebang . "") (:cache . "no") (:padline . "") 
(:noweb . "no") (:tangle . "yes") (:exports . "code") (:results . "replace") 
(:hlines . "no") (:session . "none")) "message(2)" #("\n\n" 0 1 
(font-lock-fontified t fontified t face org-block-end-line) 1 2 
(font-lock-fontified t fontified t
  mapc(#[(spec) "\306\211\307!\310!\211G\311V\205\n)\312!
\313\230\203%\314\315 !\2027\316\230\203/\317\2027  G\311V\2057 
\211\205P,\203O\313\230\203O
\320,Q\202P
\211-\205\321!\322-!.\211/\203w.\203w/\316\230\204w\323.\324\"\210*\325-!\203\217-\326\327*\"\235\204\217\330-!\210\331\332!0r0q\210\333\216\3341!\203\247\317\335\336\217\210\203\277-2\235\204\277\337Pc\210-2B2\3403!\210\341
 
4\331\332!5r5q\210\342\216\325-!\203\340\343-!\210db\210\344\345\34638\"A\316\230\204\371`eU\204\371\337c\2104c\210\347\317\211-#\210.\203\f\204\3506T6\351\352-\fB\317\353$.\207"
 [get-spec tangle sheb she-bang tangle-mode base-name #[(name) "\302\303   
8\"A\207" [name spec assoc 4] 4] :tangle :shebang 0 :tangle-mode "yes" 
file-name-sans-extension buffer-file-name "no" nil "." :mkdirp 
file-name-directory make-directory parents file-exists-p mapcar car delete-file 
generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" 
[temp-buffer buffer-name kill-buffer] 2)) fboundp (funcall lang-f) ((error)) 
"\n" org-babel-spec-to-string buffer-string ((byte-code 
"\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) 
insert-file-contents assoc :padline 4 write-region 493 add-to-list 
path-collector #[(a b) "@  @\232\207" [a b] 2] ext file-name fnd m temp-buffer 
lang-f ...] 6] ((8 "/tmp/test2.org" "file:/tmp/test2.org::*Test" Test:1 
((:colname-names) (:rowname-names) (:result-params "replace")

Re: [O] Bug: org-babel-tangle fails with :comments org [8.3beta (release_8.3beta-1286-g20795f @ /home/malsburg/usr/share/emacs/site-lisp/org/)]

2016-01-31 Thread Titus von der Malsburg 

There were apparently bad characters in the backtrace.  Sorry about
that.  Below it is again, plus my org config.

Debugger entered--Lisp error: (error "Nothing to comment")
  signal(error ("Nothing to comment"))
  error("Nothing to comment")
  comment-region-default(1 3 nil)
  comment-region(1 3)
  #[(text) "\205S.\306\230?\205S. G\307V\205S.\n\203..c\207\310`  
\311..\312\313!\2030.\313\307\fG\311\f$\210\202G.\203?.\314\307\fG.\f$\210\202G.\313\307\fG\311\f$\210\f*c\210`\"\210\311\210\315c\207"
 [comments text org-babel-tangle-uncomment-comments restricted s org-rm-props 
"no" 0 comment-region nil fboundp set-text-properties remove-text-properties 
"\n"] 7]("\n\n")
  org-babel-spec-to-string((12 "/tmp/test2.org" "file:/tmp/test2.org::*Test" 
Test:2 ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:comments . "org") (:shebang . "") (:cache . "no") 
(:padline . "") (:noweb . "no") (:tangle . "yes") (:exports . "code") (:results 
. "replace") (:hlines . "no") (:session . "none")) "message(2)" "\n\n"))
  #[(spec) "\306\211.\307!.\310!\211.G\311V\205..\n).\312!.   
\313\230\203&.\314.A@!\2028.\315\230\2030.\316\2028.G\311V\2058.
\211.*\205T..+\203R.
\313\230\203R..*\317.+Q\202T..*\211.,\205A.\320!\321.,!.-\211..\203{..-\203{...\315\230\204{.\322.-\323\"\210*\324.,!\203\223..,\325\326./\"\235\204\223.\327.,!\210\330\331!.0r.0q\210\332\216\333.1!\203\266.\3341\261..1
 
0\202\265.\210\202\266.\210\203\316..,.2\235\204\316.\335Pc\210.,.2B.2\336.!\210\337
 
.3\330\331!.4r.4q\210\340\216\324.,!\203\356.\341.,!\210db\210\342\343\344.8\"A\315\230\204..`eU\204..\335c\210.3c\210\345\316\211.,#\210.\203..\f\204..\346..5T.5.,\fB.6\347.6./\350\351$\2038../\202@..6./B\211./)..\207"
 [get-spec tangle sheb she-bang tangle-mode spec #[(name) "\302\303   
8\"A\207" [name spec assoc 4] 4] :tangle :shebang 0 :tangle-mode "yes" 
file-name-sans-extension "no" nil "." :mkdirp file-name-directory 
make-directory parents file-exists-p mapcar car delete-file generate-new-buffer 
" *temp*" #[nil "\301!\205.\302!\207" [temp-buffer buffer-name 
kill-buffer] 2] fboundp (error) "\n" org-babel-spec-to-string buffer-string 
#[nil "\301!\205 .\302!\207" [temp-buffer buffer-name kill-buffer] 2] 
insert-file-contents assoc :padline 4 write-region 493 cl-member :test #[(a b) 
"@@\232\207" [a b] 2] base-name ext file-name fnd m path-collector 
temp-buffer lang-f ...] 6]((12 "/tmp/test2.org" "file:/tmp/test2.org::*Test" 
Test:2 ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:comments . "org") (:shebang . "") (:cache . "no") 
(:padline . "") (:noweb . "no") (:tangle . "yes") (:exports . "code") (:results 
. "replace") (:hlines . "no") (:session . "none")) "message(2)" "\n\n"))
  mapc(#[(spec) "\306\211.\307!.\310!\211.G\311V\205..\n).\312!.  
\313\230\203&.\314.A@!\2028.\315\230\2030.\316\2028.G\311V\2058.
\211.*\205T..+\203R.
\313\230\203R..*\317.+Q\202T..*\211.,\205A.\320!\321.,!.-\211..\203{..-\203{...\315\230\204{.\322.-\323\"\210*\324.,!\203\223..,\325\326./\"\235\204\223.\327.,!\210\330\331!.0r.0q\210\332\216\333.1!\203\266.\3341\261..1
 
0\202\265.\210\202\266.\210\203\316..,.2\235\204\316.\335Pc\210.,.2B.2\336.!\210\337
 
.3\330\331!.4r.4q\210\340\216\324.,!\203\356.\341.,!\210db\210\342\343\344.8\"A\315\230\204..`eU\204..\335c\210.3c\210\345\316\211.,#\210.\203..\f\204..\346..5T.5.,\fB.6\347.6./\350\351$\2038../\202@..6./B\211./)..\207"
 [get-spec tangle sheb she-bang tangle-mode spec #[(name) "\302\303   
8\"A\207" [name spec assoc 4] 4] :tangle :shebang 0 :tangle-mode "yes" 
file-name-sans-extension "no" nil "." :mkdirp file-name-directory 
make-directory parents file-exists-p mapcar car delete-file generate-new-buffer 
" *temp*" #[nil "\301!\205.\302!\207" [temp-buffer buffer-name 
kill-buffer] 2] fboundp (error) "\n" org-babel-spec-to-string buffer-string 
#[nil "\301!\205 .\302!\207" [temp-buffer buffer-name kill-buffer] 2] 
insert-file-contents assoc :padline 4 write-region 493 cl-member :test #[(a b) 
"@@\232\207" [a b] 2] base-name ext file-name fnd m path-collector 
temp-buffer lang-f ...] 6] ((8 "/tmp/test2.org" "file:/tmp/test2.org::*Test" 
Test:1 ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:comments . "org") (:shebang . "") (:cache . "no") 
(:padline . "") (:noweb . "no") (:tangle . "yes") (:exports . "code") (:results 
. "replace") (:hlines . "no") (:session . "none")) "message(1)" "Test\n\nText 
for testing.\n\n") (12 "/tmp/test2.org" "file:/tmp/test2.org::*Test" Test:2 
((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . 
value) (:comments . "org") (:shebang . "") (:cache . "no") (:padline . "") 
(:noweb . "no") (:tangle . "yes") (:exports . "code") (:results . "replace") 
(:hlines . "no") (:session . "none")) "message(2)" "\n\n")))
  #[(by-lang) "@.A.\306