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))))))))))) |