[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Sam Steingold]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.52 emacs/lisp/pcvs.el:1.53
*** emacs/lisp/pcvs.el:1.52     Wed Apr 30 20:46:41 2003
--- emacs/lisp/pcvs.el  Fri May  9 11:59:02 2003
***************
*** 14,20 ****
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.52 2003/05/01 00:46:41 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 14,20 ----
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.53 2003/05/09 15:59:02 sds Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1901,1908 ****
    (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)))
      (error "Not a file name"))
    (cvs-mode!
     (lambda (&optional rev)
--- 1901,1909 ----
    (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)))
!            (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)