2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ce37b1996a..c90df7c810a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-04  Juanma Barranquero  <lekktu@gmail.com>
+
+        * subr.el (directory-sep-char): Move from fileio.c and make a defconst.
+
 2010-06-04  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-gvfs.el (tramp-gvfs-handle-expand-file-name): Expand "~/".
diff --git a/lisp/subr.el b/lisp/subr.el
index e7fbf31b2b7..16ba45f1c74 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1089,7 +1089,11 @@ is converted into a string by expressing it in decimal."
 (make-obsolete 'process-filter-multibyte-p nil "23.1")
 (make-obsolete 'set-process-filter-multibyte nil "23.1")
 
-(make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
+(defconst directory-sep-char ?/
+  "Directory separator character for built-in functions that return file names.
+The value is always ?/.")
+(make-obsolete-variable 'directory-sep-char "do not use it, just use `/'." "21.1")
+
 (make-obsolete-variable
  'mode-line-inverse-video
  "use the appropriate faces instead."