Re: Introducing 'unrecognized and 'ignored

[Thien-Thi Nguyen]

() Dan Nicolaescu <address@hidden>
() Sat, 19 Jan 2008 09:05:24 -0800

   It would be nice if we had something more general that is
   easily visible for buffers that use VC async commands.

we can use `mode-line-process'.  below is a sketch.  works for me.
(would need to be adapted to latest vc.el, of course.)

thi


________________________________________________________
*** vc.el.~1.513.~      Mon Jan 14 18:53:10 2008
--- vc.el       Sat Jan 19 21:00:42 2008
***************
*** 958,963 ****
--- 958,967 ----
  
  (defun vc-process-sentinel (p s)
    (let ((previous (process-get p 'vc-previous-sentinel)))
+     (setq mode-line-process
+           (let ((status (process-status p)))
+             (unless (eq 'exit status)
+               (format " (%s)" status))))
      (if previous (funcall previous p s))
      (with-current-buffer (process-buffer p)
        (let (vc-sentinel-movepoint)
***************
*** 998,1003 ****
--- 1002,1008 ----
        (eval code))
       ;; If a process is running, add CODE to the sentinel
       ((eq (process-status proc) 'run)
+       (setq mode-line-process " (background)")
        (let ((previous (process-sentinel proc)))
          (unless (eq previous 'vc-process-sentinel)
            (process-put proc 'vc-previous-sentinel previous))