bugEmacs Muse - Bugs: bug #12879, <quote> tag fails when text...

 
 
Show feedback again

bug #12879: <quote> tag fails when text follows on the same line

Submitted by:  Daniel Clemente <clemente>
Submitted on:  Tue 20 Jan 2009 08:06:02 PM UTC  
 
Category: museSeverity: 2 - Minor
Priority: 5 - NormalStatus: None
Privacy: PublicAssigned to: None
Open/Closed: Open

Add a New Comment (Rich MarkupRich Markup):
   

You are not logged in

Please log in, so followups can be emailed to you.

 

Tue 20 Jan 2009 08:48:57 PM UTC, comment #2:

In other cases, it blocks Emacs; for instance with this file:

(muse-publish-this-file "html" "/tmp/")

<literal>Es texto literal</literal>

<perl>print 2</perl>

<quote>Citado</quote>

<ruby>2+5</ruby>

<src lang="c">println("Hola");</src>

Daniel Clemente <clemente>
Tue 20 Jan 2009 08:40:04 PM UTC, comment #1:

Now I don't know if my function call is correct. But even if you used "html" instead of '(html), that is,
(muse-publish-this-file "html" "/tmp/")
, it still fails because of the one-line <quote>, this time with:

Debugger entered--Lisp error: (args-out-of-range 92 110)
muse-publish-surround-text("<p class=\"quoted\">" "</p>" #[(indent) "............" [quote-regexp muse-forward-paragraph 0 looking-at] 2] nil nil nil "^\\(<\\(/?\\)quote>\\)")
muse-publish-quote-tag(79 #<marker at 109 in muse-temp<9>>)
apply(muse-publish-quote-tag (79 #<marker at 109 in muse-temp<9>>))
muse-publish-markup-tag()
muse-publish-markup("prueba2" ((1000 "\\(\\`\n+\\|\n+\\'.......................\\'\\)" 3 muse-html-markup-paragraph)))
muse-publish-markup-region(1 103 "prueba2" ("html" :suffix muse-html-extension :regexps muse-html-markup-regexps :functions muse-html-markup-functions :strings muse-html-markup-strings :tags muse-html-markup-tags :specials muse-xml-decide-specials :before muse-html-prepare-buffer :before-end muse-html-munge-buffer :after muse-html-finalize-buffer :header muse-html-header :footer muse-html-footer :style-sheet muse-html-style-sheet :browser muse-html-browse-file))
muse-publish-markup-buffer("prueba2" ("html" :suffix muse-html-extension :regexps muse-html-markup-regexps :functions muse-html-markup-functions :strings muse-html-markup-strings :tags muse-html-markup-tags :specials muse-xml-decide-specials :before muse-html-prepare-buffer :before-end muse-html-munge-buffer :after muse-html-finalize-buffer :header muse-html-header :footer muse-html-footer :style-sheet muse-html-style-sheet :browser muse-html-browse-file))
muse-publish-file(#("/n/prueba2.muse" 0 15 (face nil)) ("html" :suffix muse-html-extension :regexps muse-html-markup-regexps :functions muse-html-markup-functions :strings muse-html-markup-strings :tags muse-html-markup-tags :specials muse-xml-decide-specials :before muse-html-prepare-buffer :before-end muse-html-munge-buffer :after muse-html-finalize-buffer :header muse-html-header :footer muse-html-footer :style-sheet muse-html-style-sheet :browser muse-html-browse-file) "/n/" nil)
muse-publish-this-file("html" "/n/")
eval((muse-publish-this-file "html" "/n/"))
eval-last-sexp-1(nil)
eval-last-sexp(nil)
call-interactively(eval-last-sexp nil nil)

Daniel Clemente <clemente>
Tue 20 Jan 2009 08:06:02 PM UTC, original submission:

I use Emacs 23 from Bzr and Muse from Git, both from today.

Use this file (3 lines):

------------
(muse-publish-this-file '(html) "/tmp/")

<quote>Citado</quote>
------------

and eval the first sexp.
It fails with:

Debugger entered--Lisp error: (args-out-of-range -1 -1)
replace-match("" t t nil 1)
muse-publish-surround-text("" "" #[(indent) "..............................." [quote-regexp muse-forward-paragraph 0 looking-at] 2] nil nil nil "^\\(<\\(/?\\)quote>\\)")
muse-publish-quote-tag(41 #<marker at 48 in muse-temp>)
apply(muse-publish-quote-tag (41 #<marker at 48 in muse-temp>))
muse-publish-markup-tag()
muse-publish-markup("prueba2" ...................................)
muse-publish-markup-region(1 65 "prueba2" (html))
muse-publish-markup-buffer("prueba2" (html))
muse-publish-file("/n/prueba2.muse" (html) "/n/" nil)
muse-publish-this-file((html) "/n/")
eval((muse-publish-this-file (quote (html)) "/n/"))
eval-last-sexp-1(nil)
eval-last-sexp(nil)
call-interactively(eval-last-sexp nil nil)

Daniel Clemente <clemente>

 

(Note: upload size limit is set to 1024 kB, after insertion of the required escape characters.)

Attach File(s):
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -unavailable- added by clemente (Submitted the item)
  •  

    Do you think this task is very important?
    If so, you can click here to add your encouragement to it.
    This task has 0 encouragements so far.

    Only logged-in users can vote.

     

    Please enter the title of George Orwell's famous dystopian book (it's a date):

     

     

    No Changes Have Been Made to This Item
    Show feedback again

    Back to the top


    Powered by Savane 3.1-cleanup