comparison lisp/progmodes/compile.el @ 732:a8d94735277e

*** empty log message ***

731:5c6db33a9ef6

      ;; Pop up the compilation buffer.
      (setq outwin (display-buffer outbuf))
      (set-buffer outbuf)
      (compilation-mode)
      (buffer-disable-undo (current-buffer))
      (set (make-local-variable 'compilation-parse-errors-function) parser)
      (set (make-local-variable 'compilation-error-message) error-message)
      (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist)
      (setq default-directory thisdir
	    compilation-directory-stack (list default-directory))

	     (unwind-protect
		 (progn
		   ;; Write something in the compilation buffer
		   ;; and hack its mode line.
		   (set-buffer buffer)
		   (setq omax (point-max)
			 opoint (point))
		   (goto-char omax)
		   ;; Record where we put the message, so we can ignore it
		   ;; later on.

		   ;; Since the buffer and mode line will show that the
		   ;; process is dead, we can delete it now.  Otherwise it
		   ;; will stay around until M-x list-processes.
		   (delete-process proc))
	       ;; Force mode line redisplay soon.
	       (set-buffer-modified-p (buffer-modified-p)))
	     (if (and opoint (< opoint omax))
		 (goto-char opoint))
	     (set-buffer obuf)
	     (if compilation-finish-function
		 (funcall compilation-finish-function buffer msg))

732:a8d94735277e

      ;; Pop up the compilation buffer.
      (setq outwin (display-buffer outbuf))
      (set-buffer outbuf)
      (compilation-mode)
      (buffer-disable-undo (current-buffer))
      (setq buffer-read-only t)
      (set (make-local-variable 'compilation-parse-errors-function) parser)
      (set (make-local-variable 'compilation-error-message) error-message)
      (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist)
      (setq default-directory thisdir
	    compilation-directory-stack (list default-directory))

	     (unwind-protect
		 (progn
		   ;; Write something in the compilation buffer
		   ;; and hack its mode line.
		   (set-buffer buffer)
		   (setq buffer-read-only nil)
		   (setq omax (point-max)
			 opoint (point))
		   (goto-char omax)
		   ;; Record where we put the message, so we can ignore it
		   ;; later on.

		   ;; Since the buffer and mode line will show that the
		   ;; process is dead, we can delete it now.  Otherwise it
		   ;; will stay around until M-x list-processes.
		   (delete-process proc))
	       ;; Force mode line redisplay soon.
	       (set-buffer-modified-p (buffer-modified-p))
	       (setq buffer-read-only t))
	     (if (and opoint (< opoint omax))
		 (goto-char opoint))
	     (set-buffer obuf)
	     (if compilation-finish-function
		 (funcall compilation-finish-function buffer msg))