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).
flatwhatson · Sep 6, 2021 · 63618ba · 63618ba
1 parent 8ed2f20
commit 63618ba
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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))