Mercurial > emacs
changeset 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 | 24689001fa22 |
| children | 620f97df33a7 |
| files | lisp/ChangeLog lisp/cvs-status.el lisp/pcvs-defs.el lisp/pcvs.el |
| diffstat | 4 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 10 09:06:16 2005 +0000 +++ b/lisp/ChangeLog Fri Jun 10 09:13:25 2005 +0000 @@ -1,5 +1,9 @@ 2005-06-10 Miles Bader <miles@gnu.org> + * pcvs.el (cvs-mode-find-file): Use renamed pcvs faces. + * pcvs-defs.el (cvs-mode-map): Likewise. + * cvs-status.el (cvs-status-font-lock-keywords): Likewise. + * pcvs-info.el (cvs-header, cvs-filename, cvs-unknown) (cvs-handled, cvs-need-action, cvs-marked, cvs-msg): Remove "-face" suffix from face names.
--- a/lisp/cvs-status.el Fri Jun 10 09:06:16 2005 +0000 +++ b/lisp/cvs-status.el Fri Jun 10 09:13:25 2005 +0000 @@ -1,6 +1,6 @@ ;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding: utf-8 -*- -;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs cvs status tree tools @@ -73,8 +73,8 @@ (defconst cvs-status-font-lock-keywords `((,cvs-status-entry-leader-re - (1 'cvs-filename-face) - (2 'cvs-need-action-face)) + (1 'cvs-filename) + (2 'cvs-need-action)) (,cvs-status-tags-leader-re (,cvs-status-rev-re (save-excursion (re-search-forward "^\n" nil 'move) (point))
--- a/lisp/pcvs-defs.el Fri Jun 10 09:06:16 2005 +0000 +++ b/lisp/pcvs-defs.el Fri Jun 10 09:13:25 2005 +0000 @@ -1,7 +1,7 @@ ;;; pcvs-defs.el --- variable definitions for PCL-CVS ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2003, 2004 Free Software Foundation, Inc. +;; 2000, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs @@ -381,7 +381,7 @@ ;; mouse bindings ([mouse-2] . cvs-mode-find-file) ([follow-link] . (lambda (pos) - (if (eq (get-char-property pos 'face) 'cvs-filename-face) t))) + (if (eq (get-char-property pos 'face) 'cvs-filename) t))) ([(down-mouse-3)] . cvs-menu) ;; dired-like bindings ("\C-o" . cvs-mode-display-file)
--- a/lisp/pcvs.el Fri Jun 10 09:06:16 2005 +0000 +++ b/lisp/pcvs.el Fri Jun 10 09:13:25 2005 +0000 @@ -1980,7 +1980,7 @@ (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) (not (memq (get-text-property (1- (line-end-position)) 'font-lock-face) - '(cvs-header-face cvs-filename-face)))) + '(cvs-header cvs-filename)))) (error "Not a file name")) (cvs-mode! (lambda (&optional rev)