[nongnu] elpa/rust-mode 00177f5 461/486: compile-mode integration: add link to code references. (#391)

[ELPA Syncer]

branch: elpa/rust-mode
commit 00177f542976601d7f114fed82caaa3daad7b177
Author: Nathan Moreau <nathan.moreau@m4x.org>
Commit: GitHub <noreply@github.com>

    compile-mode integration: add link to code references. (#391)
    
    This allows to jump to code references such as lines 82 and 132 in the
    following snippet error message.
    
    error[E0061]: this function takes 1 parameter but 2 parameters were supplied
      --> file6.rs:132:34
        |
    82  | fn duration_ms_since(time: &Option<SystemTime>) -> u128 {
        | ------------------------------------------------------- defined here
    ...
    132 |             self.total_time_ms = 
duration_ms_since(&self.program_start, 2);
        |                                  
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
---
 rust-mode-tests.el | 41 +++++++++++++++++++++++++++++------------
 rust-mode.el       |  9 +++++++++
 2 files changed, 38 insertions(+), 12 deletions(-)

diff --git a/rust-mode-tests.el b/rust-mode-tests.el
index da874ec..c0e88fa 100644
--- a/rust-mode-tests.el
+++ b/rust-mode-tests.el
@@ -3346,14 +3346,20 @@ impl Two<'a> {
        (mapcar (lambda (r)
                  (let ((match-pos
                         (nth (cdr r) spec)))
-                   (if (eq :type (car r))
-                       (cond ((consp match-pos)
-                              (compilation-face match-pos))
-                             (t
-                              (cdr (assoc match-pos '((1 . compilation-warning)
-                                                      (0 . compilation-info)
-                                                      (2 . 
compilation-error))))))
-                     (match-string match-pos))))
+                   (cond ((and (eq :type (car r)) (consp match-pos))
+                          (compilation-face match-pos))
+                         ((eq :type (car r))
+                          (cdr (assoc match-pos '((1 . compilation-warning)
+                                                  (0 . compilation-info)
+                                                  (2 . compilation-error)))))
+                         ((and (null match-pos) (eq :column (car r)))
+                          'back-to-indentation)
+                         ((and (null match-pos) (eq :file (car r)))
+                          'like-previous-one)
+                         ((null match-pos)
+                          (error (format "%S" (car r))))
+                         (t
+                          (match-string match-pos)))))
                ;; see compilation-error-regexp-alist
                '((:file . 1)
                  (:line . 2)
@@ -3373,16 +3379,27 @@ impl Two<'a> {
     (insert "    ::: file5.rs:12:34\n\n")
     ;; should not match
     (insert "werror found a -> b\n  --> no_match.rs:12:34\n\n")
-
+    (insert "error[E0061]: this function takes 1 parameter but 2 parameters 
were supplied\n  --> file6.rs:132:34
+    |
+82  | fn duration_ms_since(time: &Option<SystemTime>) -> u128 {
+    | ------------------------------------------------------- defined here
+...
+132 |             self.total_time_ms = duration_ms_since(&self.program_start, 
2);
+    |                                  
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+")
     (should (equal
              '((("file1.rs" "12" "34" compilation-error "file1.rs:12:34")
                 ("file2.rs" "12" "34" compilation-error "file2.rs:12:34")
                 ("file3.rs" "12" "34" compilation-warning "file3.rs:12:34")
-                ("file4.rs" "12" "34" compilation-info "file4.rs:12:34"))
-               (("file5.rs" "12" "34" compilation-info "file5.rs:12:34")))
+                ("file4.rs" "12" "34" compilation-info "file4.rs:12:34")
+                ("file6.rs" "132" "34" compilation-error "file6.rs:132:34"))
+               (("file5.rs" "12" "34" compilation-info "file5.rs:12:34"))
+               ((like-previous-one "82" back-to-indentation compilation-info 
"82")
+                (like-previous-one "132" back-to-indentation compilation-info 
"132")))
              (mapcar #'rust-collect-matches
                      (list rustc-compilation-regexps
-                           rustc-colon-compilation-regexps))))))
+                           rustc-colon-compilation-regexps
+                           rustc-refs-compilation-regexps))))))
 
 ;; If electric-pair-mode is available, load it and run the tests that use it.  
If not,
 ;; no error--the tests will be skipped.
diff --git a/rust-mode.el b/rust-mode.el
index d5e0b93..9711a79 100644
--- a/rust-mode.el
+++ b/rust-mode.el
@@ -1947,6 +1947,12 @@ See `compilation-error-regexp-alist' for help on their 
format.")
   "Specifications for matching `:::` hints in rustc invocations.
 See `compilation-error-regexp-alist' for help on their format.")
 
+(defvar rustc-refs-compilation-regexps
+  (let ((re "^\\([0-9]+\\)[[:space:]]*|"))
+    (cons re '(nil 1 nil 0 1)))
+  "Specifications for matching code references in rustc invocations.
+See `compilation-error-regexp-alist' for help on their format.")
+
 ;; Match test run failures and panics during compilation as
 ;; compilation warnings
 (defvar cargo-compilation-regexps
@@ -1978,6 +1984,9 @@ the compilation window until the top of the error is 
visible."
 (eval-after-load 'compile
   '(progn
      (add-to-list 'compilation-error-regexp-alist-alist
+                  (cons 'rustc-refs rustc-refs-compilation-regexps))
+     (add-to-list 'compilation-error-regexp-alist 'rustc-refs)
+     (add-to-list 'compilation-error-regexp-alist-alist
                   (cons 'rustc rustc-compilation-regexps))
      (add-to-list 'compilation-error-regexp-alist 'rustc)
      (add-to-list 'compilation-error-regexp-alist-alist