Mercurial > emacs
comparison lisp/gnus/gnus-uu.el @ 91041:bdb3fe0ba9fa
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2007 16:22:07 +0000 |
| parents | f55f9811f5d7 ff46392e7e97 |
| children | 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 91040:14c4a6aac623 | 91041:bdb3fe0ba9fa |
|---|---|
| 1087 (end-of-line) | 1087 (end-of-line) |
| 1088 (if (re-search-backward "\\([^0-9]\\)[0-9]+\\([^0-9]+\\)[0-9]+" | 1088 (if (re-search-backward "\\([^0-9]\\)[0-9]+\\([^0-9]+\\)[0-9]+" |
| 1089 nil t) | 1089 nil t) |
| 1090 (replace-match "\\1[0-9]+\\2[0-9]+" t nil nil nil)))) | 1090 (replace-match "\\1[0-9]+\\2[0-9]+" t nil nil nil)))) |
| 1091 | 1091 |
| 1092 (goto-char 1) | 1092 (goto-char (point-min)) |
| 1093 (while (re-search-forward "[ \t]+" nil t) | 1093 (while (re-search-forward "[ \t]+" nil t) |
| 1094 (replace-match "[ \t]+" t t)) | 1094 (replace-match "[ \t]+" t t)) |
| 1095 | 1095 |
| 1096 (buffer-string))) | 1096 (buffer-string))) |
| 1097 | 1097 |
| 1188 (ignore-errors | 1188 (ignore-errors |
| 1189 (replace-match | 1189 (replace-match |
| 1190 (format "%06d" | 1190 (format "%06d" |
| 1191 (string-to-number (buffer-substring | 1191 (string-to-number (buffer-substring |
| 1192 (match-beginning 0) (match-end 0))))))) | 1192 (match-beginning 0) (match-end 0))))))) |
| 1193 (setq string (buffer-substring 1 (point-max))) | 1193 (setq string (buffer-substring (point-min) (point-max))) |
| 1194 (setcar (car string-list) string) | 1194 (setcar (car string-list) string) |
| 1195 (setq string-list (cdr string-list)))) | 1195 (setq string-list (cdr string-list)))) |
| 1196 out-list)) | 1196 out-list)) |
| 1197 | 1197 |
| 1198 | 1198 |