User: viteno Date: 06/06/16 12:23:28 Modified: packages/xemacs-packages/prog-modes ChangeLog cvs.el Log: From: Jens Petersen <petersen(a)redhat.com&gt; Subject: Re: [cvs.el] add regexp-quote in is-under-cvs Message-ID: <4486BF46.20704(a)redhat.com&gt; Revision Changes Path 1.239 +5 -0 XEmacs/packages/xemacs-packages/prog-modes/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/ChangeLog,v retrieving revision 1.238 retrieving revision 1.239 diff -u -p -r1.238 -r1.239 --- ChangeLog 2006/05/17 08:33:45 1.238 +++ ChangeLog 2006/06/16 10:23:27 1.239 ＠＠ -1,3 +1,8 ＠＠ +2006-06-07 Jens Petersen <petersen(a)redhat.com&gt; + + * cvs.el (is-under-cvs): regexp-quote the filename to stop + cvs:hook error for filenames containing "c++" for example. + 2006-05-17 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.08 released. 1.4 +4 -4 XEmacs/packages/xemacs-packages/prog-modes/cvs.el Index: cvs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/cvs.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- cvs.el 2004/08/15 19:12:35 1.3 +++ cvs.el 2006/06/16 10:23:27 1.4 ＠＠ -3,13 +3,13 ＠＠ ;; Copyright (C) 1995-1998 Frederic Lepied <Frederic.Lepied(a)sugix.frmug.org&gt; ;; ;; Author: Frederic Lepied <Frederic.Lepied(a)sugix.frmug.org&gt; -;; Version: $Id: cvs.el,v 1.3 2004/08/15 19:12:35 scop Exp $ +;; Version: $Id: cvs.el,v 1.4 2006/06/16 10:23:27 viteno Exp $ ;; Keywords: cvs ediff mode-line ;; ;; LCD Archive Entry: ;; cvs|Frederic Lepied|Frederic.Lepied(a)sugix.frmug.org| ;; Light cvs support for emacs (ediff + msb + dired + mode line).| -;; $Date: 2004/08/15 19:12:35 $|$Revision: 1.3 $|~/modes/cvs.el.gz| +;; $Date: 2006/06/16 10:23:27 $|$Revision: 1.4 $|~/modes/cvs.el.gz| ;; ;; This program is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the Free ＠＠ -51,7 +51,7 ＠＠ (require 'easymenu) ;;============================================================================= -(defconst cvs:version "$Id: cvs.el,v 1.3 2004/08/15 19:12:35 scop Exp $" +(defconst cvs:version "$Id: cvs.el,v 1.4 2006/06/16 10:23:27 viteno Exp $" "Version number of cvs.el. To communicate with bug report") ;;============================================================================= ＠＠ -337,7 +337,7 ＠＠ If so, set the variables `cvs:current-re (set-buffer (cvs:find-file-noselect entries-filename)) (goto-char 1) (if (re-search-forward (concat "^/" - (file-name-nondirectory filename) + (regexp-quote (file-name-nondirectory filename)) "/\\([^/]*\\)/") nil t) (progn