Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml-mode/trunk/sml-proc.el
ViewVC logotype

Diff of /sml-mode/trunk/sml-proc.el

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

revision 1690, Mon Nov 15 03:26:34 2004 UTC revision 1691, Mon Nov 15 03:26:57 2004 UTC
# Line 634  Line 634 
634    (let ((err (point-marker))    (let ((err (point-marker))
635          (linenum (string-to-number c))          (linenum (string-to-number c))
636          (filename (list (first f) (second f)))          (filename (list (first f) (second f)))
637          (column (string-to-number (compile-buffer-substring (third f)))))          (column (string-to-number (match-string (third f)))))
638      ;; record the end of error, if any      ;; record the end of error, if any
639      (when (fourth f)      (when (fourth f)
640        (let ((endlinestr (compile-buffer-substring (fourth f))))        (let ((endlinestr (match-string (fourth f))))
641          (when endlinestr          (when endlinestr
642            (let* ((endline (string-to-number endlinestr))            (let* ((endline (string-to-number endlinestr))
643                   (endcol (string-to-number                   (endcol (string-to-number
644                            (or (compile-buffer-substring (fifth f)) "0")))                            (or (match-string (fifth f)) "0")))
645                   (linediff (- endline linenum)))                   (linediff (- endline linenum)))
646              (push (list err linediff (if (= 0 linediff) (- endcol column) endcol))              (push (list err linediff (if (= 0 linediff) (- endcol column) endcol))
647                    sml-endof-error-alist)))))                    sml-endof-error-alist)))))

Legend:
Removed from v.1690  
changed lines
  Added in v.1691

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0