Commit ad5f4654 authored by Nick Roberts's avatar Nick Roberts
Browse files

(decode_mode_spec): Add case 'R' for to test for

remote default-directory.
parent 3649e4e0
......@@ -17994,6 +17994,16 @@ decode_mode_spec (w, c, field_width, precision, multibyte)
#endif
break;
 
case 'R':
{
Lisp_Object val;
val = call1 (intern ("file-remote-p"), current_buffer->directory);
if (NILP (val))
return "-";
else
return "@";
}
case 't': /* indicate TEXT or BINARY */
#ifdef MODE_LINE_BINARY_TEXT
return MODE_LINE_BINARY_TEXT (b);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment