Mercurial > emacs
comparison lisp/sort.el @ 34601:5ca359ff87e6
(sort-columns): Fix error message.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 15 Dec 2000 13:00:59 +0000 |
| parents | d38d6c74805d |
| children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
| 34600:b1fc8bfd0f73 | 34601:5ca359ff87e6 |
|---|---|
| 484 (forward-line) | 484 (forward-line) |
| 485 (setq end1 (point)) | 485 (setq end1 (point)) |
| 486 (setq col-start (min col-beg1 col-end1)) | 486 (setq col-start (min col-beg1 col-end1)) |
| 487 (setq col-end (max col-beg1 col-end1)) | 487 (setq col-end (max col-beg1 col-end1)) |
| 488 (if (search-backward "\t" beg1 t) | 488 (if (search-backward "\t" beg1 t) |
| 489 (error "sort-columns does not work with tabs. Use M-x untabify")) | 489 (error "sort-columns does not work with tabs -- use M-x untabify")) |
| 490 (if (not (or (eq system-type 'vax-vms) | 490 (if (not (or (eq system-type 'vax-vms) |
| 491 (text-properties-at beg1) | 491 (text-properties-at beg1) |
| 492 (< (next-property-change beg1 nil end1) end1))) | 492 (< (next-property-change beg1 nil end1) end1))) |
| 493 ;; Use the sort utility if we can; it is 4 times as fast. | 493 ;; Use the sort utility if we can; it is 4 times as fast. |
| 494 ;; Do not use it if there are any properties in the region, | 494 ;; Do not use it if there are any properties in the region, |