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/trunk/sml-mode/sml-proc.el
ViewVC logotype

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

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

revision 888, Thu Jul 19 20:24:21 2001 UTC revision 1472, Sun Apr 4 07:17:07 2004 UTC
# Line 2  Line 2 
2    
3  ;; Copyright (C) 1989       Lars Bo Nielsen  ;; Copyright (C) 1989       Lars Bo Nielsen
4  ;; Copyright (C) 1994-1997  Matthew J. Morley  ;; Copyright (C) 1994-1997  Matthew J. Morley
5  ;; Copyright (C) 1999-2000  Stefan Monnier  ;; Copyright (C) 1999,2000,03,04  Stefan Monnier
6    
7  ;; $Revision$  ;; $Revision$
8  ;; $Date$  ;; $Date$
# Line 213  Line 213 
213      ("File \"\\([^\"]+\\)\", line \\([0-9]+\\)\\(-\\([0-9]+\\)\\)?, characters \\([0-9]+\\)-\\([0-9]+\\):" 1 2 5)      ("File \"\\([^\"]+\\)\", line \\([0-9]+\\)\\(-\\([0-9]+\\)\\)?, characters \\([0-9]+\\)-\\([0-9]+\\):" 1 2 5)
214      ;; SML/NJ:  the file-pattern is anchored to avoid      ;; SML/NJ:  the file-pattern is anchored to avoid
215      ;; pathological behavior with very long lines.      ;; pathological behavior with very long lines.
216      ("^[-= ]*\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warning\\): .*" 1 sml-make-error 2 3 5 6)      ("^[-= ]*\\(.*[^\n)]\\)\\( (.*)\\)?:\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warning\\): .*" 1 sml-make-error 3 4 6 7)
217      ;; SML/NJ's exceptions:  see above.      ;; SML/NJ's exceptions:  see above.
218      ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 sml-make-error 3 4 6 7))      ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 sml-make-error 3 4 6 7))
219    "Alist that specifies how to match errors in compiler output.    "Alist that specifies how to match errors in compiler output.
# Line 684  Line 684 
684              (goto-char marker)              (goto-char marker)
685              (forward-line (1- linenum))              (forward-line (1- linenum))
686              (forward-char (1- column))              (forward-char (1- column))
687              (cons err (point-marker))))              ;; A pair of markers is the right thing to return, but some
688                ;; code in compile.el doesn't like it (when we reach the end
689                ;; of the errors).  So we could try to avoid it, but we don't
690                ;; because that doesn't work correctly if the current buffer
691                ;; has unsaved modifications.  And it's fixed in Emacs-21.
692                ;; (if buffer-file-name
693                ;;  (list err buffer-file-name
694                ;;        (count-lines (point-min) (point)) (current-column))
695                (cons err (point-marker)))) ;; )
696        ;; taken from compile.el        ;; taken from compile.el
697        (list err filename linenum column))))        (list err filename linenum column))))
698    

Legend:
Removed from v.888  
changed lines
  Added in v.1472

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