mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(init_buffer): Add /: to dir names that could be magic.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-10-04 04:26:23 +00:00
parent c49afcd700
commit 0995fa350a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/buffer.c
View File

@ -3543,8 +3543,16 @@ init_buffer ()
buf[rc + 1] = '\0';
}
#endif /* not VMS */
current_buffer->directory = build_string (buf);
/* Add /: to the front of the name
if it would otherwise be treated as magic. */
temp = Ffind_file_name_handler (current_buffer->directory, Qt);
if (! NILP (temp))
current_buffer->directory
= concat2 (build_string ("/:"), current_buffer->directory);
temp = get_minibuffer (0);
XBUFFER (temp)->directory = current_buffer->directory;
}