/*  EDIT_VIEW.P  */


section $-eden => edit_view;


;;; make mapping to ved_q "soft", by mapping to word
;;; not procedure.
vedsetkey('\^[q', "ved_q");


define edit_view();

    lvars oldfile = vedcurrent;
    lvars oldvedline, oldvedcolumn;

    define vars ved_x();
        vedjumpto( oldvedline, oldvedcolumn );
        vededitor(identfn, oldfile);

        ;;; then exit from ved_get_and_edit
        exitfrom(edit_view)
    enddefine;

    define vars ved_q();
        vedjumpto( oldvedline, oldvedcolumn );
        vededitor(identfn, oldfile);

        ;;; then exit from ved_get_and_edit
        exitfrom(edit_view)
    enddefine;

    ;;; make the specified file current, after saving the oldfile
    edit('VIEW');

    ;;; save position so can restore writing position on exit.
    vedline -> oldvedline;
    vedcolumn -> oldvedcolumn;

    ;;; Invoke a replica of VED's top level loop, to be left when
    ;;; ved_q or ved_x is invoked
    runproc(0, consproc(0,vedscreenraw<>vedprocess));
enddefine;


endsection;