CVS update by viteno (Re: [cvs.el] add regexp-quote in is-under-cvs) packages/xemacs-packages/prog-modes ...
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>
Subject: Re: [cvs.el] add regexp-quote in is-under-cvs
Message-ID: <4486BF46.20704(a)redhat.com>
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>
+
+ * 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>
* 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>
;;
;; Author: Frederic Lepied <Frederic.Lepied(a)sugix.frmug.org>
-;; 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