Mercurial > emacs
comparison lisp/pcvs.el @ 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 | 394622821e83 |
children | fa1c848a9779 |
comparison
equal
deleted
inserted
replaced
50924:15bfd674106a | 50925:2318a0020ca5 |
---|---|
12 ;; (Stefan Monnier) monnier@cs.yale.edu | 12 ;; (Stefan Monnier) monnier@cs.yale.edu |
13 ;; (Greg Klanderman) greg@alphatech.com | 13 ;; (Greg Klanderman) greg@alphatech.com |
14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com | 14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com |
15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu | 15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu |
16 ;; Keywords: CVS, version control, release management | 16 ;; Keywords: CVS, version control, release management |
17 ;; Revision: $Id: pcvs.el,v 1.51 2003/04/20 22:03:00 sds Exp $ | 17 ;; Revision: $Id: pcvs.el,v 1.52 2003/05/01 00:46:41 monnier Exp $ |
18 | 18 |
19 ;; This file is part of GNU Emacs. | 19 ;; This file is part of GNU Emacs. |
20 | 20 |
21 ;; GNU Emacs is free software; you can redistribute it and/or modify | 21 ;; GNU Emacs is free software; you can redistribute it and/or modify |
22 ;; it under the terms of the GNU General Public License as published by | 22 ;; it under the terms of the GNU General Public License as published by |
1899 "Select a buffer containing the file. | 1899 "Select a buffer containing the file. |
1900 With a prefix, opens the buffer in an OTHER window." | 1900 With a prefix, opens the buffer in an OTHER window." |
1901 (interactive (list last-input-event current-prefix-arg)) | 1901 (interactive (list last-input-event current-prefix-arg)) |
1902 ;; If the event moves point, check that it moves it to a valid location. | 1902 ;; If the event moves point, check that it moves it to a valid location. |
1903 (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) | 1903 (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) |
1904 (memq (get-text-property (1- (line-end-position)) 'font-lock-face) | 1904 (not (memq (get-text-property (1- (line-end-position)) |
1905 '(cvs-header-face cvs-filename-face))) | 1905 'font-lock-face) |
1906 '(cvs-header-face cvs-filename-face)))) | |
1906 (error "Not a file name")) | 1907 (error "Not a file name")) |
1907 (cvs-mode! | 1908 (cvs-mode! |
1908 (lambda (&optional rev) | 1909 (lambda (&optional rev) |
1909 (interactive (list (cvs-prefix-get 'cvs-branch-prefix))) | 1910 (interactive (list (cvs-prefix-get 'cvs-branch-prefix))) |
1910 (let* ((cvs-buf (current-buffer)) | 1911 (let* ((cvs-buf (current-buffer)) |