Re: Problem opening etc/compilation.txt

[Richard M. Stallman]

Does this patch give good results?

*** compile.el  09 Sep 2005 21:05:39 -0400      1.382
--- compile.el  23 Sep 2005 21:18:16 -0400      
***************
*** 614,619 ****
--- 614,620 ----
  ;; This function is the central driver, called when font-locking to gather
  ;; all information needed to later jump to corresponding source code.
  ;; Return a property list with all meta information on this error location.
+ 
  (defun compilation-error-properties (file line end-line col end-col type fmt)
    (unless (< (next-single-property-change (match-beginning 0) 'directory nil 
(point))
             (point))
***************
*** 628,638 ****
                                    (get-text-property dir 'directory)))))
            (setq file (cons file (car dir)))))
        ;; This message didn't mention one, get it from previous
!       (setq file (previous-single-property-change (point) 'message)
!           file (or (if file
!                        (car (nth 2 (car (or (get-text-property (1- file) 
'message)
!                                        (get-text-property file 'message))))))
!                    '("*unknown*"))))
      ;; All of these fields are optional, get them only if we have an index, 
and
      ;; it matched some part of the message.
      (and line
--- 629,650 ----
                                    (get-text-property dir 'directory)))))
            (setq file (cons file (car dir)))))
        ;; This message didn't mention one, get it from previous
!       (let ((prev-pos
!            ;; Find the previous message.
!            (previous-single-property-change (point) 'message)))
!       (if prev-pos
!           ;; Get the file structure that belongs to it.
!           (let* ((prev
!                   (or (get-text-property (1- prev-pos) 'message)
!                       (get-text-property prev-pos 'message)))
!                  (prev-struct
!                   (car (nth 2 (car prev)))))
!             ;; Construct FILE . DIR from that.
!             (if prev-struct
!                 (setq file (cons (car prev-struct)
!                                  (cadr prev-struct))))))
!       (unless file
!         (setq file '("*unknown*")))))
      ;; All of these fields are optional, get them only if we have an index, 
and
      ;; it matched some part of the message.
      (and line