Re: svn commit: rev 5796 - trunk/tools/client-side

Garrett Rooney <rooneg@electricjellyfish.net> writes:

> On Sunday, May 4, 2003, at 04:32 PM, Kalle Olavi Niemitalo wrote:
>> Wacky idea: Put help-echo properties in the string!
>
> That sounds cool, but I'll leave it to those with more emacs-fu than
> myself to implement.

Here is an implementation that people can play with. I haven't
checked it in because (1) I'm not sure this is a good idea and
(2) XEmacs 21.4.6 doesn't have a "propertize" function.

(defun vc-svn-mode-line-string (file)
  (let ((state (vc-state file))
        (rev (vc-workfile-version file)))
    (concat #("SVN" 0 3 (help-echo "Subversion"))
            (if (memq state '(up-to-date needs-patch))
                #("-" 0 1 (help-echo "Working copy is unmodified"))
              #(":" 0 1 (help-echo "Working copy has been edited")))
            (propertize rev 'help-echo
                        (if (string= rev "0") "Newly added"
                          (concat "Revision " rev))))))

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Mon May 5 00:43:42 2003