Add a tooltip to the comint-mode mode line format

* lisp/comint.el (comint-mode): Add a tooltip to say what the :run
bit means (bug#13776).

diff --git a/lisp/comint.el b/lisp/comint.el
index 9e3042f597beeded8832e5d066a0560d36730786..e058e6b8cf1e4e827fb1fa6e14271bf538ecc165 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -665,7 +665,8 @@ to continue it.
 \\{comint-mode-map}
 
 Entry to this mode runs the hooks on `comint-mode-hook'."
-  (setq mode-line-process '(":%s"))
+  (setq mode-line-process
+        (list (propertize ":%s" 'help-echo "Process status")))
   (setq-local window-point-insertion-type t)
   (setq-local comint-last-input-start (point-min-marker))
   (setq-local comint-last-input-end (point-min-marker))