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