Mercurial > emacs
comparison lisp/align.el @ 31241:3099993cba0f
See ChangeLog
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Tue, 29 Aug 2000 00:47:45 +0000 |
| parents | 7bd10623068c |
| children | b09ded79f0f9 |
comparison
equal
deleted
inserted
replaced
| 31240:10b1c85c0bbe | 31241:3099993cba0f |
|---|---|
| 871 `align-exclude-rules-list'. See `align-rules-list' for more details | 871 `align-exclude-rules-list'. See `align-rules-list' for more details |
| 872 on the format of these lists." | 872 on the format of these lists." |
| 873 (interactive "r") | 873 (interactive "r") |
| 874 (let ((separator | 874 (let ((separator |
| 875 (or separate | 875 (or separate |
| 876 (if (symbolp align-region-separate) | 876 (if (and (symbolp align-region-separate) |
| 877 (boundp align-region-separate)) | |
| 877 (symbol-value align-region-separate) | 878 (symbol-value align-region-separate) |
| 878 align-region-separate) | 879 align-region-separate) |
| 879 'entire))) | 880 'entire))) |
| 880 (if (not (or ;(eq separator 'largest) | 881 (if (not (or ;(eq separator 'largest) |
| 881 (and (functionp separator) | 882 (and (functionp separator) |
| 1036 | 1037 |
| 1037 ;;;###autoload | 1038 ;;;###autoload |
| 1038 (defun align-newline-and-indent () | 1039 (defun align-newline-and-indent () |
| 1039 "A replacement function for `newline-and-indent', aligning as it goes." | 1040 "A replacement function for `newline-and-indent', aligning as it goes." |
| 1040 (interactive) | 1041 (interactive) |
| 1041 (let ((separate (or (if (symbolp align-region-separate) | 1042 (let ((separate (or (if (and (symbolp align-region-separate) |
| 1043 (boundp align-region-separate)) | |
| 1042 (symbol-value align-region-separate) | 1044 (symbol-value align-region-separate) |
| 1043 align-region-separate) | 1045 align-region-separate) |
| 1044 'entire)) | 1046 'entire)) |
| 1045 (end (point))) | 1047 (end (point))) |
| 1046 (call-interactively 'newline-and-indent) | 1048 (call-interactively 'newline-and-indent) |