From 2c789f1ea08650ee85f170ee8fa4aee5dc531aab Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Wed, 3 Aug 2005 04:34:50 +0000 Subject: [PATCH] Fix trailing backslash error. * lisp/muse-project.el (muse-project-of-file): Apply 1-line regexp-quoting fix from drkm. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-190 --- ChangeLog | 14 ++++++++++++++ lisp/muse-project.el | 2 +- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1f32240..e557c37 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,20 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0 # +2005-08-03 04:34:50 GMT Michael Olson patch-190 + + Summary: + Fix trailing backslash error. + Revision: + muse--main--1.0--patch-190 + + * lisp/muse-project.el (muse-project-of-file): Apply 1-line + regexp-quoting fix from drkm. + + modified files: + ChangeLog lisp/muse-project.el + + 2005-07-27 07:43:53 GMT Michael Olson patch-189 Summary: diff --git a/lisp/muse-project.el b/lisp/muse-project.el index 741e76d..5e966a0 100644 --- a/lisp/muse-project.el +++ b/lisp/muse-project.el @@ -397,7 +397,7 @@ If PATHNAME is nil, the current buffer's filename is used." (let ((truename (file-truename (car pats)))) (if (or (string= truename file) (string= truename dir) - (string-match truename file)) + (string-match (regexp-quote truename) file)) (setq found (car project-entry)))) (setq pats (cdr pats)))) (setq project-entry (cdr project-entry)))) -- 2.11.4.GIT