[comp.emacs] SORT.EL:sort-columns change, TAB restriction gone, runs on VMS

ROBERTS@UORNSRL.BITNET (12/01/88)

I've received a fair number of requests for this differences file, and
since several of my replies can't seem to find their way back, I decided to
post them.  I've also submitted them to bug-gnu-emacs in hopes that they'll
make their way into the next release.

Below is the output from the VMS command DIFFERENCES --- not quite the same
as unix, but understandable.  Note that there is a change in the
documentation string, thus the documentation program should be re-run and a
new dump file created for everything to be up to date.  Or you can live
with the inaccuracy until you accumulate enough changes for it to be
worthwhile...

************
File EMACS_LIBRARY:[VMS-STUFF]SORT.EL;1
  321   A prefix argument means sort into reverse order."
  322    (interactive "P\nr")
******
File EMACS_LIBRARY:[VMS-STUFF]SORT.EL-ORIGINAL;1
  321   A prefix argument means sort into reverse order.
  322
  323   Note that sort-columns uses the sort utility program and therefore
  324   cannot work on text containing TAB characters. Use M-x untabify
  325   to convert tabs to spaces before sorting."
  326    (interactive "P\nr")
************
************
File EMACS_LIBRARY:[VMS-STUFF]SORT.EL;1
  335    (save-restriction
  336    (narrow-to-region beg1 end1)
  337    (goto-char beg1)
  338    (sort-subr reverse 'forward-line 'end-of-line
  339    (function (lambda () (move-to-column col-start) nil))
  340    (function (lambda () (move-to-column col-end) nil)))))))
******
File EMACS_LIBRARY:[VMS-STUFF]SORT.EL-ORIGINAL;1
  339    (if (search-backward "\t" beg1 t)
  340    (error "sort-columns does not work with tabs. Use M-x untabify."))
  341    (call-process-region beg1 end1 "sort" t t nil
  342    (if reverse "-rt\n" "-t\n")
  343    (concat "+0." col-start)
  344    (concat "-0." col-end)))))
************

Number of difference sections found: 2
Number of difference records found: 11

DIFFERENCES-
    /IGNORE=(SPACING)/MERGED=1/OUTPUT=EMACS_LIBRARY:[VMS-STUFF]SORT.DIFF;1-
    EMACS_LIBRARY:[VMS-STUFF]SORT.EL;1-
    EMACS_LIBRARY:[VMS-STUFF]SORT.EL-ORIGINAL;1


Roland Roberts                        BITNET: roberts@uornsrl.bitnet
  Nuclear Structure Research Lab    INTERNET: rbr4@db2.cc.rochester.edu
  271 East River Road                   UUCP: rochester!ur-cc!rbr4
  Rochester, NY  14267                  AT&T: (716) 275-8962