Mercurial > emacs
comparison lisp/pcvs.el @ 63210:2e115caaa7d2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380
Update uses of renamed pcvs faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/pcvs.el (cvs-mode-find-file): Use renamed pcvs faces.
* lisp/pcvs-defs.el (cvs-mode-map): Likewise.
* lisp/cvs-status.el (cvs-status-font-lock-keywords): Likewise.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 10 Jun 2005 09:13:25 +0000 |
| parents | f43815bbb303 |
| children | 8d79f84e54e8 |
comparison
equal
deleted
inserted
replaced
| 63209:24689001fa22 | 63210:2e115caaa7d2 |
|---|---|
| 1978 (interactive (list last-input-event current-prefix-arg)) | 1978 (interactive (list last-input-event current-prefix-arg)) |
| 1979 ;; If the event moves point, check that it moves it to a valid location. | 1979 ;; If the event moves point, check that it moves it to a valid location. |
| 1980 (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) | 1980 (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) |
| 1981 (not (memq (get-text-property (1- (line-end-position)) | 1981 (not (memq (get-text-property (1- (line-end-position)) |
| 1982 'font-lock-face) | 1982 'font-lock-face) |
| 1983 '(cvs-header-face cvs-filename-face)))) | 1983 '(cvs-header cvs-filename)))) |
| 1984 (error "Not a file name")) | 1984 (error "Not a file name")) |
| 1985 (cvs-mode! | 1985 (cvs-mode! |
| 1986 (lambda (&optional rev) | 1986 (lambda (&optional rev) |
| 1987 (interactive (list (cvs-prefix-get 'cvs-branch-prefix))) | 1987 (interactive (list (cvs-prefix-get 'cvs-branch-prefix))) |
| 1988 (let* ((cvs-buf (current-buffer)) | 1988 (let* ((cvs-buf (current-buffer)) |