Mercurial > emacs
comparison lisp/vc-cvs.el @ 84583:52ca2a6a41bf
(vc-cvs-annotate-time): Use inhibit-read-only and inhibit-modification-hooks.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 15 Sep 2007 21:07:32 +0000 |
| parents | b98604865ea0 |
| children | 8ba0e30716a5 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
| 84582:b5d78f18d087 | 84583:52ca2a6a41bf |
|---|---|
| 588 (defun vc-cvs-annotate-time () | 588 (defun vc-cvs-annotate-time () |
| 589 "Return the time of the next annotation (as fraction of days) | 589 "Return the time of the next annotation (as fraction of days) |
| 590 systime, or nil if there is none." | 590 systime, or nil if there is none." |
| 591 (let* ((bol (point)) | 591 (let* ((bol (point)) |
| 592 (cache (get-text-property bol 'vc-cvs-annotate-time)) | 592 (cache (get-text-property bol 'vc-cvs-annotate-time)) |
| 593 buffer-read-only) | 593 (inhibit-read-only t) |
| 594 (inhibit-modification-hooks t)) | |
| 594 (cond | 595 (cond |
| 595 (cache) | 596 (cache) |
| 596 ((looking-at | 597 ((looking-at |
| 597 "^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): ") | 598 "^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): ") |
| 598 (let ((day (string-to-number (match-string 1))) | 599 (let ((day (string-to-number (match-string 1))) |