Mercurial > emacs
comparison lisp/time-stamp.el @ 19154:57f551ebd40b
(time-stamp): Use insert-and-inherit for new stamp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Aug 1997 03:44:40 +0000 |
| parents | 566b6cf773ed |
| children | fd1ee3c25839 |
comparison
equal
deleted
inserted
replaced
| 19153:6544faf75c9f | 19154:57f551ebd40b |
|---|---|
| 220 (save-excursion | 220 (save-excursion |
| 221 (save-restriction | 221 (save-restriction |
| 222 (widen) | 222 (widen) |
| 223 (delete-region start end) | 223 (delete-region start end) |
| 224 (goto-char start) | 224 (goto-char start) |
| 225 (insert new-time-stamp) | 225 (insert-and-inherit new-time-stamp) |
| 226 (setq end (point)) | 226 (setq end (point)) |
| 227 ;; remove any tabs used to format time stamp | 227 ;; remove any tabs used to format time stamp |
| 228 (goto-char start) | 228 (goto-char start) |
| 229 (if (search-forward "\t" end t) | 229 (if (search-forward "\t" end t) |
| 230 (untabify start end))))))))))) | 230 (untabify start end))))))))))) |