home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / block.mut < prev    next >
Text File  |  1995-01-14  |  481b  |  21 lines
  1. ;; block.mut : routines to operate on blocks
  2. ;; C Durland    Public Domain
  3.  
  4. ;; !!! This really needs to take two marks and a bag id but I don't want to
  5. ;; figure out how to do the same thing as cut-line.
  6.  
  7. (include me.mh)
  8.  
  9. (defun
  10.   delete-region-as-block HIDDEN
  11.   {
  12.     (byte type)(small-int left-edge width height)(int size)    ;; RegionInfo
  13.  
  14.     (region-stats (loc type) THE-DOT THE-MARK TRUE)
  15.  
  16.     (beginning-of-line)
  17.     (clear-bag CUT-BUFFER)
  18.     (arg-prefix height)(cut-line)
  19.   }
  20. )
  21.