Mercurial > emacs
comparison lisp/sort.el @ 54297:53aea6ea5ce9
(sort-columns): Remove ms-dos from the list of systems
where the external `sort' command is not used.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 07 Mar 2004 07:07:55 +0000 |
| parents | 78ded7186c4e |
| children | 6fb026ad601f |
comparison
equal
deleted
inserted
replaced
| 54296:165e8b137f1b | 54297:53aea6ea5ce9 |
|---|---|
| 478 (setq end1 (point)) | 478 (setq end1 (point)) |
| 479 (setq col-start (min col-beg1 col-end1)) | 479 (setq col-start (min col-beg1 col-end1)) |
| 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) |
| 487 (setq plist (text-properties-at pos)) | 487 (setq plist (text-properties-at pos)) |
| 488 (setq fontified (plist-get plist 'fontified)) | 488 (setq fontified (plist-get plist 'fontified)) |