[Emacs-diffs] Changes to emacs/lisp/sort.el

[Richard M. Stallman]

Index: emacs/lisp/sort.el
diff -u emacs/lisp/sort.el:1.52 emacs/lisp/sort.el:1.53
--- emacs/lisp/sort.el:1.52     Mon Feb  6 14:33:35 2006
+++ emacs/lisp/sort.el  Tue Feb 21 19:52:28 2006
@@ -499,8 +499,9 @@
          ;; in the region, since the sort utility would lose the
          ;; properties.
          (let ((sort-args (list (if reverse "-rt\n" "-t\n")
-                                (concat "+0." (int-to-string col-start))
-                                (concat "-0." (int-to-string col-end)))))
+                                (format "-k1.%d,1.%d"
+                                        (1+ col-start)
+                                        (1+ col-end)))))
            (when sort-fold-case
              (push "-f" sort-args))
            (apply #'call-process-region beg1 end1 "sort" t t nil sort-args))