This is my gloss on Aaron's message. I don't know if Aaron approves...
But it is what I like. Robin.
------------------------------------------------------------------------------
;;; ved_q - a new version. Put together by A.Sloman and R.Popplestone.
;;; <enter> q to exit from a VED file as usual
;;; <enter> q <command> to exit from the file, executing <command>
;;; thus <enter> q ved fred is the same as <enter> qved fred
;;; but it works systematically.
lconstant ved_q_old = ved_q;
define ved_q();
;;; quit current ved buffer and run the command given as
;;; argument to ved_qand
if vedargument /= nullstring then
vedqget(veddo(%vedargument%)); ;;; See HELP VEDDO
else ved_q_old();
endif;
;;; or possibly
;;; vedqget(vedargument, veddo)
enddefine;
|