[Emacs-diffs] Changes to emacs/src/xdisp.c,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/07/22 23:20:31

Index: xdisp.c
===================================================================
RCS file: /sources/emacs/emacs/src/xdisp.c,v
retrieving revision 1.1156
retrieving revision 1.1157
diff -u -b -r1.1156 -r1.1157
--- xdisp.c     17 Jun 2007 01:45:46 -0000      1.1156
+++ xdisp.c     22 Jul 2007 23:20:31 -0000      1.1157
@@ -17994,6 +17994,16 @@
 #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);