Mercurial > emacs
diff src/xdisp.c @ 90988:492971a3f31f unicode-xft-base
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 816-823)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 59-69)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 237-238)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-235
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 24 Jul 2007 01:23:55 +0000 |
| parents | 988f1edc9674 83bb644ccd17 |
| children | f55f9811f5d7 |
line wrap: on
line diff
--- a/src/xdisp.c Mon Jul 23 05:39:31 2007 +0000 +++ b/src/xdisp.c Tue Jul 24 01:23:55 2007 +0000 @@ -18144,6 +18144,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);