[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.354 
emacs/lisp/progmodes/compile.el:1.355
*** emacs/lisp/progmodes/compile.el:1.354       Mon May 16 00:01:46 2005
--- emacs/lisp/progmodes/compile.el     Thu May 19 15:38:27 2005
***************
*** 117,123 ****
  (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.")
  
  ;;;###autoload
  (defvar compilation-finish-functions nil
--- 117,127 ----
  (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.
! 
! (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,1598 ****
                            (beginning-of-line
                             (- 1 compilation-context-lines))
                            (point)))
!     (if (left-fringe-p)
        (set-window-start w (save-excursion
                              (goto-char mk)
                            (beginning-of-line 1)
--- 1596,1603 ----
                            (beginning-of-line
                             (- 1 compilation-context-lines))
                            (point)))
!     ;; 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)