Show
Ignore:
Timestamp:
06/02/07 09:29:41 (1 year ago)
Author:
miyoshi
Message:

Sync up with Emacs_22_BASE.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/progmodes/compile.el

    r4207 r4210  
    14271427                  (cons msg exit-status))) 
    14281428        (omax (point-max)) 
    1429         (opoint (point))) 
     1429        (opoint (point)) 
     1430        (cur-buffer (current-buffer))) 
    14301431    ;; Record where we put the message, so we can ignore it later on. 
    14311432    (goto-char omax) 
    …… 
    14481449    (with-no-warnings 
    14491450      (if compilation-finish-function 
    1450           (funcall compilation-finish-function (current-buffer) msg))) 
    1451     (run-hook-with-args compilation-finish-functions (current-buffer) msg))) 
     1451          (funcall compilation-finish-function cur-buffer msg))) 
     1452    (run-hook-with-args 'compilation-finish-functions cur-buffer msg))) 
    14521453 
    14531454;; Called when compilation process changes state.