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

[Juri Linkov]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.324 
emacs/lisp/progmodes/compile.el:1.325
*** emacs/lisp/progmodes/compile.el:1.324       Wed Sep  1 18:44:35 2004
--- emacs/lisp/progmodes/compile.el     Thu Sep  2 09:45:31 2004
***************
*** 458,466 ****
    :version "21.4")
  
  (defface compilation-info-face
!   '((((class color) (min-colors 16) (background light)) 
       (:foreground "Green3" :weight bold))
!     (((class color) (min-colors 16) (background dark)) 
       (:foreground "Green" :weight bold))
      (((class color)) (:foreground "green" :weight bold))
      (t (:weight bold)))
--- 458,466 ----
    :version "21.4")
  
  (defface compilation-info-face
!   '((((class color) (min-colors 16) (background light))
       (:foreground "Green3" :weight bold))
!     (((class color) (min-colors 16) (background dark))
       (:foreground "Green" :weight bold))
      (((class color)) (:foreground "green" :weight bold))
      (t (:weight bold)))
***************
*** 789,795 ****
  original use.  Otherwise, recompile using `compile-command'."
    (interactive)
    (save-some-buffers (not compilation-ask-about-save) nil)
!   (let ((default-directory (or compilation-directory default-directory)))
      (apply 'compilation-start (or compilation-arguments
                                  `(,(eval compile-command))))))
  
--- 789,798 ----
  original use.  Otherwise, recompile using `compile-command'."
    (interactive)
    (save-some-buffers (not compilation-ask-about-save) nil)
!   (let ((default-directory
!           (or (and (not (eq major-mode (nth 1 compilation-arguments)))
!                    compilation-directory)
!               default-directory)))
      (apply 'compilation-start (or compilation-arguments
                                  `(,(eval compile-command))))))
  
***************
*** 816,823 ****
         (funcall name-function mode-name))
        (compilation-buffer-name-function
         (funcall compilation-buffer-name-function mode-name))
!       ((and (eq major-mode 'compilation-mode)
!             (equal mode-name (nth 2 compilation-arguments)))
         (buffer-name))
        (t
         (concat "*" (downcase mode-name) "*"))))
--- 819,825 ----
         (funcall name-function mode-name))
        (compilation-buffer-name-function
         (funcall compilation-buffer-name-function mode-name))
!       ((eq major-mode (nth 1 compilation-arguments))
         (buffer-name))
        (t
         (concat "*" (downcase mode-name) "*"))))
***************
*** 1522,1528 ****
  
  (defun compilation-goto-locus (msg mk end-mk)
    "Jump to an error corresponding to MSG at MK.
! All arguments are markers.  If END-MK is non nil, mark is set there."
    (if (eq (window-buffer (selected-window))
          (marker-buffer msg))
        ;; If the compilation buffer window is selected,
--- 1524,1530 ----
  
  (defun compilation-goto-locus (msg mk end-mk)
    "Jump to an error corresponding to MSG at MK.
! All arguments are markers.  If END-MK is non-nil, mark is set there."
    (if (eq (window-buffer (selected-window))
          (marker-buffer msg))
        ;; If the compilation buffer window is selected,