Mercurial > emacs
changeset 50925:2318a0020ca5
(cvs-mode-find-file): Fixed the last patch's logic.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 09 May 2003 15:59:02 +0000 |
| parents | 15bfd674106a |
| children | dd6110a63907 |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)