Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 06:17:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(compilation-finish-function): Mark obsolete.

Browse source
This commit is contained in:
Richard M. Stallman 2005-05-19 15:38:27 +00:00
parent de327926e9
commit 3c9e7f42ca
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/compile.el
View file

@ -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)