/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.388 by monnier, Sun Oct 16 14:12:50 2005 UTC revision 1.389 by rms, Mon Nov 7 00:49:17 2005 UTC
# Line 707  FMTS is a list of format specs for trans Line 707  FMTS is a list of format specs for trans
707        (setq marker (nth 3 (cadr marker-line))        (setq marker (nth 3 (cadr marker-line))
708              marker-line (or (car marker-line) 1))              marker-line (or (car marker-line) 1))
709        (with-current-buffer (marker-buffer marker)        (with-current-buffer (marker-buffer marker)
710          (save-restriction          (save-excursion
711            (widen)            (save-restriction
712            (goto-char (marker-position marker))              (widen)
713            (when (or end-col end-line)              (goto-char (marker-position marker))
714              (beginning-of-line (- (or end-line line) marker-line -1))              (when (or end-col end-line)
715              (if (or (null end-col) (< end-col 0))                (beginning-of-line (- (or end-line line) marker-line -1))
716                  (end-of-line)                (if (or (null end-col) (< end-col 0))
717                (compilation-move-to-column                    (end-of-line)
718                 end-col compilation-error-screen-columns))                  (compilation-move-to-column
719              (setq end-marker (list (point-marker))))                   end-col compilation-error-screen-columns))
720            (beginning-of-line (if end-line                (setq end-marker (list (point-marker))))
721                                   (- line end-line -1)              (beginning-of-line (if end-line
722                                 (- loc marker-line -1)))                                     (- line end-line -1)
723            (if col                                   (- loc marker-line -1)))
724                (compilation-move-to-column              (if col
725                 col compilation-error-screen-columns)                  (compilation-move-to-column
726              (forward-to-indentation 0))                   col compilation-error-screen-columns)
727            (setq marker (list (point-marker))))))                (forward-to-indentation 0))
728                (setq marker (list (point-marker)))))))
729    
730      (setq loc (compilation-assq line (cdr file-struct)))      (setq loc (compilation-assq line (cdr file-struct)))
731      (if end-line      (if end-line

Legend:
Removed from v.1.388  
changed lines
  Added in v.1.389

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26