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

[Juanma Barranquero]

Index: emacs/lisp/sort.el
diff -c emacs/lisp/sort.el:1.42 emacs/lisp/sort.el:1.43
*** emacs/lisp/sort.el:1.42     Thu Jan  9 18:28:25 2003
--- emacs/lisp/sort.el  Tue Feb  4 07:05:19 2003
***************
*** 97,103 ****
                                   ((consp (car (car sort-lists)))
                                    (function
                                     (lambda (a b)
!                                      (> 0 (compare-buffer-substrings 
                                             nil (car a) (cdr a)
                                             nil (car b) (cdr b))))))
                                   (t
--- 97,103 ----
                                   ((consp (car (car sort-lists)))
                                    (function
                                     (lambda (a b)
!                                      (> 0 (compare-buffer-substrings
                                             nil (car a) (cdr a)
                                             nil (car b) (cdr b))))))
                                   (t
***************
*** 108,114 ****
                              ((consp (car (car sort-lists)))
                               (function
                                (lambda (a b)
!                                 (> 0 (compare-buffer-substrings 
                                        nil (car (car a)) (cdr (car a))
                                        nil (car (car b)) (cdr (car b)))))))
                              (t
--- 108,114 ----
                              ((consp (car (car sort-lists)))
                               (function
                                (lambda (a b)
!                                 (> 0 (compare-buffer-substrings
                                        nil (car (car a)) (cdr (car a))
                                        nil (car (car b)) (cdr (car b)))))))
                              (t
***************
*** 205,211 ****
        (delete-region min (1+ min))))))
  
  ;;;###autoload
! (defun sort-lines (reverse beg end) 
    "Sort lines in region alphabetically; argument means descending order.
  Called from a program, there are three arguments:
  REVERSE (non-nil means reverse order), BEG and END (region to sort).
--- 205,211 ----
        (delete-region min (1+ min))))))
  
  ;;;###autoload
! (defun sort-lines (reverse beg end)
    "Sort lines in region alphabetically; argument means descending order.
  Called from a program, there are three arguments:
  REVERSE (non-nil means reverse order), BEG and END (region to sort).
***************
*** 429,435 ****
    ;; using negative prefix arg to mean "reverse" is now inconsistent with
    ;; other sort-.*fields functions but then again this was before, since it
    ;; didn't use the magnitude of the arg to specify anything.
!   (interactive "P\nsRegexp specifying records to sort: 
  sRegexp specifying key within record: \nr")
    (cond ((or (equal key-regexp "") (equal key-regexp "\\&"))
         (setq key-regexp 0))
--- 429,435 ----
    ;; using negative prefix arg to mean "reverse" is now inconsistent with
    ;; other sort-.*fields functions but then again this was before, since it
    ;; didn't use the magnitude of the arg to specify anything.
!   (interactive "P\nsRegexp specifying records to sort:
  sRegexp specifying key within record: \nr")
    (cond ((or (equal key-regexp "") (equal key-regexp "\\&"))
         (setq key-regexp 0))