diff options
| author | Juanma Barranquero | 2003-02-04 12:29:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-04 12:29:42 +0000 |
| commit | f1180544bb5ff44cdb45b8734734294b0a2fa7a4 (patch) | |
| tree | 626b0db999b924834efc1f437eb47776ea6bd797 /lisp/sort.el | |
| parent | 37d1e6800ca66b7977ebafb51ddb31a9de077e15 (diff) | |
| download | emacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.tar.gz emacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.zip | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 09123f42ab7..e7390aed512 100644 --- a/lisp/sort.el +++ b/lisp/sort.el | |||
| @@ -97,7 +97,7 @@ same as ENDRECFUN." | |||
| 97 | ((consp (car (car sort-lists))) | 97 | ((consp (car (car sort-lists))) |
| 98 | (function | 98 | (function |
| 99 | (lambda (a b) | 99 | (lambda (a b) |
| 100 | (> 0 (compare-buffer-substrings | 100 | (> 0 (compare-buffer-substrings |
| 101 | nil (car a) (cdr a) | 101 | nil (car a) (cdr a) |
| 102 | nil (car b) (cdr b)))))) | 102 | nil (car b) (cdr b)))))) |
| 103 | (t | 103 | (t |
| @@ -108,7 +108,7 @@ same as ENDRECFUN." | |||
| 108 | ((consp (car (car sort-lists))) | 108 | ((consp (car (car sort-lists))) |
| 109 | (function | 109 | (function |
| 110 | (lambda (a b) | 110 | (lambda (a b) |
| 111 | (> 0 (compare-buffer-substrings | 111 | (> 0 (compare-buffer-substrings |
| 112 | nil (car (car a)) (cdr (car a)) | 112 | nil (car (car a)) (cdr (car a)) |
| 113 | nil (car (car b)) (cdr (car b))))))) | 113 | nil (car (car b)) (cdr (car b))))))) |
| 114 | (t | 114 | (t |
| @@ -205,7 +205,7 @@ same as ENDRECFUN." | |||
| 205 | (delete-region min (1+ min)))))) | 205 | (delete-region min (1+ min)))))) |
| 206 | 206 | ||
| 207 | ;;;###autoload | 207 | ;;;###autoload |
| 208 | (defun sort-lines (reverse beg end) | 208 | (defun sort-lines (reverse beg end) |
| 209 | "Sort lines in region alphabetically; argument means descending order. | 209 | "Sort lines in region alphabetically; argument means descending order. |
| 210 | Called from a program, there are three arguments: | 210 | Called from a program, there are three arguments: |
| 211 | REVERSE (non-nil means reverse order), BEG and END (region to sort). | 211 | REVERSE (non-nil means reverse order), BEG and END (region to sort). |
| @@ -429,7 +429,7 @@ For example: to sort lines in the region by the first word on each line | |||
| 429 | ;; using negative prefix arg to mean "reverse" is now inconsistent with | 429 | ;; using negative prefix arg to mean "reverse" is now inconsistent with |
| 430 | ;; other sort-.*fields functions but then again this was before, since it | 430 | ;; other sort-.*fields functions but then again this was before, since it |
| 431 | ;; didn't use the magnitude of the arg to specify anything. | 431 | ;; didn't use the magnitude of the arg to specify anything. |
| 432 | (interactive "P\nsRegexp specifying records to sort: | 432 | (interactive "P\nsRegexp specifying records to sort: |
| 433 | sRegexp specifying key within record: \nr") | 433 | sRegexp specifying key within record: \nr") |
| 434 | (cond ((or (equal key-regexp "") (equal key-regexp "\\&")) | 434 | (cond ((or (equal key-regexp "") (equal key-regexp "\\&")) |
| 435 | (setq key-regexp 0)) | 435 | (setq key-regexp 0)) |