mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(sort-columns): Don't use `sort' utility if the text has text properties.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-12-10 07:26:02 +00:00
parent 59b1de826d
commit c08fe8fdc5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/sort.el
View File

@ -455,8 +455,12 @@ 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 (eq system-type 'vax-vms))
(if (not (or (eq system-type 'vax-vms)
(text-properties-at beg1)
(< (next-property-change beg1 nil end1) end1)))
;; Use the sort utility if we can; it is 4 times as fast.
;; Do not use it if there are any properties in the region,
;; since the sort utility would lose the properties.
(call-process-region beg1 end1 "sort" t t nil
(if reverse "-rt\n" "-t\n")
(concat "+0." col-start)