diff options
| author | Stefan Monnier <[email protected]> | 2002-09-13 18:25:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-09-13 18:25:26 +0000 |
| commit | 595015bbf8225865b18db2efca387e90846599e9 (patch) | |
| tree | bd29b9e9e1f13920497c5576692d02e1ea33e196 | |
| parent | 4745e7383364deebade9f35e8d421ab6bd1f8874 (diff) | |
(cvs-mode-find-file): Work even if point is at beg-of-line.
| -rw-r--r-- | lisp/pcvs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index b1ec3d72b3..3483adb1dd 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -14,7 +14,7 @@ ;; (Jari Aalto+mail.emacs) [email protected] ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/[email protected] ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.38 2002/06/25 00:11:28 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.39 2002/09/03 01:40:29 monnier Exp $ ;; This file is part of GNU Emacs. @@ -1888,7 +1888,7 @@ This command ignores files that are not flagged as `Unknown'." With a prefix, opens the buffer in an OTHER window." (interactive (list last-input-event current-prefix-arg)) (when (ignore-errors (mouse-set-point e) t) ;for invocation via the mouse - (unless (memq (get-text-property (point) 'face) + (unless (memq (get-text-property (1- (line-end-position)) 'face) '(cvs-header-face cvs-filename-face)) (error "Not a file name"))) (cvs-mode! |