# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1052495942 0
# Node ID 2318a0020ca58b6e40a8c5b8dcfdf53a20947ddb
# Parent  15bfd674106ae88f973bc62582c9caa307f45e8b
(cvs-mode-find-file): Fixed the last patch's logic.

diff -r 15bfd674106a -r 2318a0020ca5 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 09 14:35:51 2003 +0000
+++ b/lisp/ChangeLog	Fri May 09 15:59:02 2003 +0000
@@ -1,3 +1,7 @@
+2003-05-09  Sam Steingold  <sds@gnu.org>
+
+	* pcvs.el (cvs-mode-find-file): Fixed the last patch's logic.
+
 2003-05-09  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* uniquify.el: Use the original buffer-name as `base' in place of the
diff -r 15bfd674106a -r 2318a0020ca5 lisp/pcvs.el
--- a/lisp/pcvs.el	Fri May 09 14:35:51 2003 +0000
+++ b/lisp/pcvs.el	Fri May 09 15:59:02 2003 +0000
@@ -14,7 +14,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.51 2003/04/20 22:03:00 sds Exp $
+;; Revision: $Id: pcvs.el,v 1.52 2003/05/01 00:46:41 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1901,8 +1901,9 @@
   (interactive (list last-input-event current-prefix-arg))
   ;; If the event moves point, check that it moves it to a valid location.
   (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point)))
-	     (memq (get-text-property (1- (line-end-position)) 'font-lock-face)
-		   '(cvs-header-face cvs-filename-face)))
+	     (not (memq (get-text-property (1- (line-end-position))
+                                           'font-lock-face)
+                        '(cvs-header-face cvs-filename-face))))
     (error "Not a file name"))
   (cvs-mode!
    (lambda (&optional rev)