Mercurial > emacs

comparison lisp/pcvs-defs.el @ 63210:2e115caaa7d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 0b09c3970de0
children 88552d8d3c8e a1b34dec1104
comparison
equal deleted inserted replaced
63209:24689001fa22 63210:2e115caaa7d2
1 ;;; pcvs-defs.el --- variable definitions for PCL-CVS 1 ;;; pcvs-defs.el --- variable definitions for PCL-CVS
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 ;; 2000, 2003, 2004 Free Software Foundation, Inc. 4 ;; 2000, 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
7 ;; Keywords: pcl-cvs 7 ;; Keywords: pcl-cvs
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
379 ;; cvstree bindings 379 ;; cvstree bindings
380 ("+" . cvs-mode-tree) 380 ("+" . cvs-mode-tree)
381 ;; mouse bindings 381 ;; mouse bindings
382 ([mouse-2] . cvs-mode-find-file) 382 ([mouse-2] . cvs-mode-find-file)
383 ([follow-link] . (lambda (pos) 383 ([follow-link] . (lambda (pos)
384 (if (eq (get-char-property pos 'face) 'cvs-filename-face) t))) 384 (if (eq (get-char-property pos 'face) 'cvs-filename) t)))
385 ([(down-mouse-3)] . cvs-menu) 385 ([(down-mouse-3)] . cvs-menu)
386 ;; dired-like bindings 386 ;; dired-like bindings
387 ("\C-o" . cvs-mode-display-file) 387 ("\C-o" . cvs-mode-display-file)
388 ;; Emacs-21 toolbar 388 ;; Emacs-21 toolbar
389 ;;([tool-bar item1] . (menu-item "Examine" cvs-examine :image (image :file "/usr/share/icons/xpaint.xpm" :type xpm))) 389 ;;([tool-bar item1] . (menu-item "Examine" cvs-examine :image (image :file "/usr/share/icons/xpaint.xpm" :type xpm)))