diff options
| author | Eli Zaretskii | 2004-03-07 07:08:43 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2004-03-07 07:08:43 +0000 |
| commit | 263d3d5d206856543375e09726e56863d7d33db6 (patch) | |
| tree | 55a26a3035ef108df73501e60f7ffd591b5bfc6b | |
| parent | 5e7b42627852d8a8ddddee8f23152ec5545bbbd5 (diff) | |
| download | emacs-263d3d5d206856543375e09726e56863d7d33db6.tar.gz emacs-263d3d5d206856543375e09726e56863d7d33db6.zip | |
(sort-columns): Remove ms-dos from the list of systems
where the external `sort' command is not used.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/sort.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 068e25de870..4a237696188 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2004-03-07 Eli Zaretskii <eliz@elta.co.il> | ||
| 2 | |||
| 3 | * sort.el (sort-columns): Remove ms-dos from the list of systems | ||
| 4 | where the external `sort' command is not used. | ||
| 5 | |||
| 1 | 2004-03-07 Kim F. Storm <storm@cua.dk> | 6 | 2004-03-07 Kim F. Storm <storm@cua.dk> |
| 2 | 7 | ||
| 3 | * gdb-ui.el (gdb-overlay-arrow-position): Add defvar. | 8 | * 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." | |||
| 480 | (setq col-end (max col-beg1 col-end1)) | 480 | (setq col-end (max col-beg1 col-end1)) |
| 481 | (if (search-backward "\t" beg1 t) | 481 | (if (search-backward "\t" beg1 t) |
| 482 | (error "sort-columns does not work with tabs -- use M-x untabify")) | 482 | (error "sort-columns does not work with tabs -- use M-x untabify")) |
| 483 | (if (not (or (memq system-type '(vax-vms windows-nt ms-dos)) | 483 | (if (not (or (memq system-type '(vax-vms windows-nt)) |
| 484 | (let ((pos beg1) plist fontified) | 484 | (let ((pos beg1) plist fontified) |
| 485 | (catch 'found | 485 | (catch 'found |
| 486 | (while (< pos end1) | 486 | (while (< pos end1) |