Thank you very much. I copied and pasted your version of the script into the scheme script editor and ran it. When I click the MarkupAtEnd button, still the Low Level Denemo Directive Edit window appears (instead that the script is re-executed). What am I doing wrong?
Andreas Am 23.05.2013 22:28, schrieb Richard Shann: > It was DENEMO_OVERRIDE_TAGEDIT that was needed... > I'll add this to git now, but for reference here is the script > Richard > ;;;MarkupAtEnd > (let ((tag "MarkupAtEnd")(themarkup "")) > (d-DirectivePut-movementcontrol-override tag (logior > DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_TAGEDIT)) > (d-DirectivePut-movementcontrol-display tag (_ "Markup At End")) > (disp "checking previous markup ...") > (if (d-Directive-movementcontrol? tag) > (set! themarkup (d-DirectiveGet-movementcontrol-postfix > tag))) > (set! themarkup (d-GetUserInputWithSnippets (_ "Markup At End") > (_ "Edit markup:") themarkup)) > (if themarkup > (begin > (set! themarkup (car themarkup)) > (disp themarkup) > (d-DirectivePut-movementcontrol-postfix tag themarkup) > (d-SetSaved #f)) > (d-InfoDialog "Cancelled"))) _______________________________________________ Denemo-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/denemo-devel
