From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Jun 2002 08:43:23 +0000 (+0000)
Subject: (read_file_name_cleanup): Add missing return.
X-Git-Tag: ttn-vms-21-2-B4~14441
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4174fbbd33076014273783e2d30566b8d93773b;p=emacs.git

(read_file_name_cleanup): Add missing return.
---

diff --git a/src/fileio.c b/src/fileio.c
index de8f7662e05..08764855a7e 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5845,7 +5845,7 @@ static Lisp_Object
 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,