2 files changed, 37 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c94c19feda..2b069d37395 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-06  Richard M. Stallman  <rms@gnu.org>
+
+        * progmodes/compile.el (compilation-error-regexp-alist):
+        New alternatives for FILE:LINE.COL and for ranges of columns and lines.
+
 2002-04-06  Per Abrahamsen  <abraham@dina.kvl.dk>
 
         * progmodes/cc-vars.el (c-block-comment-prefix): Specify :value
@@ -14,6 +19,11 @@
 
 2002-04-04  Richard M. Stallman  <rms@gnu.org>
 
+        * files.el (mode-line-format, mode-line-modified) 
+        (mode-line-mule-info, mode-line-buffer-identification) 
+        (mode-line-modes, mode-line-position): Explicitly mark as risky.
+        (hack-one-local-variable): Don't recognize "mode-line-..." as risky.
+
         * calendar/solar.el (solar-northern-spring-or-summer-season): Doc fix.
 
         * mail/mailabbrev.el (mail-abbrev-make-syntax-table):
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f9296235add..c1f8b9b345a 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -270,6 +270,33 @@ or when it is used with \\[next-error] or \\[compile-goto-error].")
 \\([a-zA-Z]?:?[^:( \t\n]*[^:( \t\n0-9][^:( \t\n]*\\)[:(][ \t]*\\([0-9]+\\)\
 \\([) \t]\\|:\\(\\([0-9]+:\\)\\|[0-9]*[^:0-9]\\)\\)" 2 3 6)
 
+    ;; GNU utilities with precise locations (line and columns),
+    ;; possibly ranges:
+    ;;  foo.c:8.23-9.1: error message
+    ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\
+\\([0-9]+\\)\\.\\([0-9]+\\)\
+-\\([0-9]+\\)\\.\\([0-9]+\\)\
+:" 1 2 3) ;; When ending points are supported, add line = 4 and col = 5.
+    ;;  foo.c:8.23-45: error message
+    ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\
+\\([0-9]+\\)\\.\\([0-9]+\\)\
+-\\([0-9]+\\)\
+:" 1 2 3) ;; When ending points are supported, add line = 2 and col = 4.
+    ;;  foo.c:8-45.3: error message
+    ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\
+\\([0-9]+\\)\
+-\\([0-9]+\\)\\.\\([0-9]+\\)\
+:" 1 2 nil) ;; When ending points are supported, add line = 2 and col = 4.
+    ;;  foo.c:8.23: error message
+    ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\
+\\([0-9]+\\)\\.\\([0-9]+\\)\
+:" 1 2 3)
+    ;;  foo.c:8-23: error message
+    ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\
+\\([0-9]+\\)\
+-\\([0-9]+\\)\
+:" 1 2 nil);; When ending points are supported, add line = 3.
+
     ;; Microsoft C/C++:
     ;;  keyboard.c(537) : warning C4005: 'min' : macro redefinition
     ;;  d:\tmp\test.c(23) : error C2143: syntax error : missing ';' before 'if'