print buffer

[Morten Bo Johansen <mojo@xxxxxxxx>]

Hi,

I have a problem printing the buffer in nroff_mode. Funny thing
is that I think it used to work but not any more. I don't know
exactly where I screwed up. I am including below all my defines
etc. relating to nroff_mode even if some of it is probably
irrelevant and hope you can tell me where the problem is.

Instead of printing the formatted document with grolbp some raw
s-lang debugging output is being sent to the printer and it
looks like this:

  Error: /typecheck in --closefile--
  Operand stack:
    --nostringval--   ()
  Execution stack:
     %interp_exit   .runexec2  --nostringval--  --nostringval--  --nostringval--
       2  %stopped_push  --nostringval--  --nostringval--  --nostringval-- 
       false   1   %stopped_push_push  1  3  %oparray_pop  --nostringval--
       --nostringval--
  Dictionary stack:
    --dict:1008/1476(ro)(G)--  --dict:0/20(G)--  --dict:66/200(L)--
  Current allocation mode is local
  Last OS error: 2


Here is is my nroff_mode related stuff:


define nroff_mode_hook ()
  {
     % only template with *.lt
	 if (bobp () and eobp () and
          (path_extname (buffer_filename ()) == ".lt"))
        {
           insert_template("nroff.tml");
        }
	   	 local_setkey ("run_gv_command",Key_F9);
         return;
	     local_setkey ("print_buffer_nroff", "^XP");
         WRAP = 78;	 
  }


% print with grolbp

  define print_buffer_nroff ()
  {
     push_spot ();
     mark_buffer ();
     variable status = pipe_region ("groff -mmdk -Tlbp | lpr -Praw1");
     pop_spot ();
     if (status) error ("lpr failed.");
  }
  
%% Update nroff document dynamically in gv

  define run_gv_command ()
  {
      variable curbuf = whatbuf ();
      variable str = read_mini ("Compile command: ", "", "/home/mojo/scripts/myroff.sh " + whatbuf());
      if (strlen (str))
        compile (str);
  }

  

Regards,

Morten


  
-- 
"Life is all memory, except for the one present moment that goes by you 
 so quick you hardly catch it going."              (Tennessee Williams)

--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.