[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Aug 30 19:39:46 1994 
Subject:ved_q 
From: Robin Popplestone  
Volume-ID:940901.02 

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;