[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     08/02/24 23:21:40

Index: compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.457
retrieving revision 1.458
diff -u -b -r1.457 -r1.458
--- compile.el  24 Feb 2008 20:44:23 -0000      1.457
+++ compile.el  24 Feb 2008 23:21:39 -0000      1.458
@@ -1549,13 +1549,13 @@
                         (append '(compilation-handle-exit t) nil))
     (setq mode-line-process
          (let ((out-string (format ":%s [%s]" process-status (cdr status)))
-               (tooltip (buffer-substring-no-properties (1+ omax) (point))))
-           (propertize
-            out-string
-            'help-echo tooltip
-            'face
-            (if (> exit-status 0) 'font-lock-warning-face 'compilation-info))))
-    (message (format "exit status: %s %s" exit-status (> 0 exit-status)))
+               (msg (format "%s %s" mode-name
+                            (replace-regexp-in-string "\n?$" "" (car 
status)))))
+           (message "%s" msg)
+           (propertize out-string
+                       'help-echo msg 'face (if (> exit-status 0)
+                                                'compilation-error
+                                              'compilation-info))))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)
     (if (and opoint (< opoint omax))