Mercurial > emacs

changeset 62518:88b93ce112d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-finish-function): Mark obsolete.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 2005 15:38:27 +0000
parents e375a8cd677e
children ad1a92f77517
files lisp/progmodes/compile.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Thu May 19 13:15:44 2005 +0000
+++ b/lisp/progmodes/compile.el	Thu May 19 15:38:27 2005 +0000
@@ -117,7 +117,11 @@
 (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 @@
 			    (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)