Mercurial > emacs
changeset 47468:de490e9b55fa
(cvs-mode-find-file): Work even if point is at beg-of-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 13 Sep 2002 18:25:26 +0000 |
| parents | c5035e184eba |
| children | 531c20e5755b |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Fri Sep 13 18:22:37 2002 +0000 +++ b/lisp/pcvs.el Fri Sep 13 18:25:26 2002 +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.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 @@ 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!