emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: vc-mode-line


From: Dan Nicolaescu
Subject: Re: vc-mode-line
Date: Thu, 05 Aug 2010 01:20:08 -0400
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux)

Miles Bader <address@hidden> writes:

> If changing everything is OK, how about:
>
>    ":"          unmodified but already in repo

Flipping the meaning of : from modified to unmodified sounds like it
might generate confusion...


>    "="          modified (emacs commonly associates "=" with "diff")
>    "+"          added, but not yet committed
>    "-"          deleted, but not yet committed
>
> If that's too radical a change, how about (avoids redefining old chars):
>
>    "-"          [existing] unmodified but already in repo
>    "="          modified (emacs commonly associates "=" with "diff")
>    "+"          added, but not yet committed
>    "#"          deleted, but not yet committed

These sets are not complete, vc-default-mode-line-string has all the current 
uses:

    (propertize
     (cond ((or (eq state 'up-to-date)
           (eq state 'needs-update))
               (setq state-echo "Up to date file")
                   (concat backend-name "-" rev))
                      ((stringp state)
                          (setq state-echo (concat "File locked by" state))
                              (concat backend-name ":" state ":" rev))
           ((eq state 'added)
            (setq state-echo "Locally added file")
            (concat backend-name "@" rev))
           ((eq state 'conflict)
            (setq state-echo "File contains conflicts after the last merge")
            (concat backend-name "!" rev))
           ((eq state 'removed)
            (setq state-echo "File removed from the VC system")
            (concat backend-name "!" rev))
           ((eq state 'missing)
            (setq state-echo "File tracked by the VC system, but missing from 
the file system")
            (concat backend-name "?" rev))
           (t
            (setq state-echo "Locally modified file")
            (concat backend-name ":" rev)))

All possible states can be seen using C-h f vc-state RET.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]