X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/153a17b788f3f9ae2eba606fcc2fce2db542e589..1e62748e6a8bd99a6e0a785090d85dd741ff7682:/src/minibuf.c

diff --git a/src/minibuf.c b/src/minibuf.c
index 03acbc4da5..d7da13d57b 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -204,8 +204,9 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos)
 	   CONSP (buf_list);
 	   buf_list = XCONS (buf_list)->cdr)
 	{
-	  Lisp_Object other_buf = XCONS (XCONS (buf_list)->car)->cdr;
+	  Lisp_Object other_buf;
 
+	  other_buf = XCONS (XCONS (buf_list)->car)->cdr;
 	  if (XTYPE (XBUFFER (other_buf)->directory) == Lisp_String)
 	    {
 	      current_buffer->directory = XBUFFER (other_buf)->directory;