# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1025081003 0
# Node ID 9c590b35c6cf5cec35cc4a46d30c33eb3c579f3b
# Parent  8f82bf8a959e6a41a37919333b80306e6ef8afa3
(read_file_name_cleanup): Add missing return.

diff -r 8f82bf8a959e -r 9c590b35c6cf src/fileio.c
--- a/src/fileio.c	Wed Jun 26 08:42:22 2002 +0000
+++ b/src/fileio.c	Wed Jun 26 08:43:23 2002 +0000
@@ -5845,7 +5845,7 @@
 read_file_name_cleanup (arg)
      Lisp_Object arg;
 {
-  current_buffer->directory = arg;
+  return (current_buffer->directory = arg);
 }
 
 DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_internal,