Mercurial > emacs
comparison lisp/align.el @ 90182:f042e7c0fe20
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 302-319)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 69)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 20 May 2005 04:22:05 +0000 |
| parents | 29e773288013 a7e02ef1e3d6 |
| children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
| 90181:0c828e2b0b6f | 90182:f042e7c0fe20 |
|---|---|
| 936 (list (min (point) (mark)) | 936 (list (min (point) (mark)) |
| 937 (max (point) (mark))) | 937 (max (point) (mark))) |
| 938 (if current-prefix-arg | 938 (if current-prefix-arg |
| 939 (list (read-string "Complex align using regexp: " | 939 (list (read-string "Complex align using regexp: " |
| 940 "\\(\\s-*\\)") | 940 "\\(\\s-*\\)") |
| 941 (string-to-int | 941 (string-to-number |
| 942 (read-string | 942 (read-string |
| 943 "Parenthesis group to modify (justify if negative): " "1")) | 943 "Parenthesis group to modify (justify if negative): " "1")) |
| 944 (string-to-int | 944 (string-to-number |
| 945 (read-string "Amount of spacing (or column if negative): " | 945 (read-string "Amount of spacing (or column if negative): " |
| 946 (number-to-string align-default-spacing))) | 946 (number-to-string align-default-spacing))) |
| 947 (y-or-n-p "Repeat throughout line? ")) | 947 (y-or-n-p "Repeat throughout line? ")) |
| 948 (list (concat "\\(\\s-*\\)" | 948 (list (concat "\\(\\s-*\\)" |
| 949 (read-string "Align regexp: ")) | 949 (read-string "Align regexp: ")) |