From: Eli Zaretskii Date: Sun, 7 Mar 2004 07:08:43 +0000 (+0000) Subject: (sort-columns): Remove ms-dos from the list of systems X-Git-Tag: ttn-vms-21-2-B4~7328 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=263d3d5d206856543375e09726e56863d7d33db6;p=emacs.git (sort-columns): Remove ms-dos from the list of systems where the external `sort' command is not used. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 068e25de870..4a237696188 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-03-07 Eli Zaretskii + + * sort.el (sort-columns): Remove ms-dos from the list of systems + where the external `sort' command is not used. + 2004-03-07 Kim F. Storm * gdb-ui.el (gdb-overlay-arrow-position): Add defvar. diff --git a/lisp/sort.el b/lisp/sort.el index 76559f17288..d90369cabcd 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -480,7 +480,7 @@ Use \\[untabify] to convert tabs to spaces before sorting." (setq col-end (max col-beg1 col-end1)) (if (search-backward "\t" beg1 t) (error "sort-columns does not work with tabs -- use M-x untabify")) - (if (not (or (memq system-type '(vax-vms windows-nt ms-dos)) + (if (not (or (memq system-type '(vax-vms windows-nt)) (let ((pos beg1) plist fontified) (catch 'found (while (< pos end1)