(compilation-finish-function): Mark obsolete.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d08766f5a350d78ec473620c60965dd380f8bbae..67feb970cc2c6f2988f4c98a619abf1d4a266c03 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -117,7 +117,11 @@ nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.")
 (defvar compilation-finish-function nil
   "Function to call when a compilation process finishes.
 It is called with two arguments: the compilation buffer, and a string
-describing how the process finished.")
+describing how the process finished.
+
+(make-obsolete-variable 'compilation-finish-function
+  "Use `compilation-finish-functions', but it works a little differently."
+  "22.1")
 
 ;;;###autoload
 (defvar compilation-finish-functions nil
@@ -1592,7 +1596,8 @@ displays at the top of the window; there is no arrow."
                            (beginning-of-line
                             (- 1 compilation-context-lines))
                            (point)))
-    (if (left-fringe-p)
+    ;; If there is no left fringe.
+    (if (equal (car (window-fringes)) 0)
        (set-window-start w (save-excursion
                              (goto-char mk)
                            (beginning-of-line 1)