commit: Quote temp-directory regexp in gnuserv.

[Michael Sperber]

changeset:   4436:a72dc882abf1f0b22ed65bba72d725e70223a435
tag:         tip
user:        Mike Sperber <sperber at deinprogramm.de>
date:        Fri Mar 07 14:35:37 2008 +0100
files:       lisp/ChangeLog lisp/gnuserv.el
description:
Quote temp-directory regexp in gnuserv.

2008-03-07  Michael Sperber  <mike at xemacs.org>

	* gnuserv.el (gnuserv-temp-file-regexp): Quote the temp-directory
	part.


diff -r 1e2fc51563a598c293a47edbd50b1ff58caa308f -r a72dc882abf1f0b22ed65bba72d725e70223a435 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 05 18:01:37 2008 +0100
+++ b/lisp/ChangeLog	Fri Mar 07 14:35:37 2008 +0100
@@ -1,3 +1,8 @@ 2008-03-05  Didier Verna  <didier at xemacs
+2008-03-07  Michael Sperber  <mike at xemacs.org>
+
+	* gnuserv.el (gnuserv-temp-file-regexp): Quote the temp-directory
+	part.
+
 2008-03-05  Didier Verna  <didier at xemacs.org>
 
 	Fix auto-formatting of comments in auto-fill-mode.
diff -r 1e2fc51563a598c293a47edbd50b1ff58caa308f -r a72dc882abf1f0b22ed65bba72d725e70223a435 lisp/gnuserv.el
--- a/lisp/gnuserv.el	Wed Mar 05 18:01:37 2008 +0100
+++ b/lisp/gnuserv.el	Fri Mar 07 14:35:37 2008 +0100
@@ -214,7 +214,7 @@ current buffer set to the visiting buffe
   :group 'gnuserv)
 
 (defcustom gnuserv-temp-file-regexp
-  (concat "^" (temp-directory) "/Re\\|/draft$")
+  (concat "^" (regexp-quote (temp-directory)) "/Re\\|/draft$")
   "*Regexp which should match filenames of temporary files deleted
 and reused by the programs that invoke the Emacs server."
   :type 'regexp