/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.324 by jurta, Wed Sep 1 18:44:35 2004 UTC revision 1.325 by jurta, Thu Sep 2 09:45:31 2004 UTC
# Line 458  starting the compilation process.") Line 458  starting the compilation process.")
458    :version "21.4")    :version "21.4")
459    
460  (defface compilation-info-face  (defface compilation-info-face
461    '((((class color) (min-colors 16) (background light))    '((((class color) (min-colors 16) (background light))
462       (:foreground "Green3" :weight bold))       (:foreground "Green3" :weight bold))
463      (((class color) (min-colors 16) (background dark))      (((class color) (min-colors 16) (background dark))
464       (:foreground "Green" :weight bold))       (:foreground "Green" :weight bold))
465      (((class color)) (:foreground "green" :weight bold))      (((class color)) (:foreground "green" :weight bold))
466      (t (:weight bold)))      (t (:weight bold)))
# Line 789  If this is run in a Compilation mode buf Line 789  If this is run in a Compilation mode buf
789  original use.  Otherwise, recompile using `compile-command'."  original use.  Otherwise, recompile using `compile-command'."
790    (interactive)    (interactive)
791    (save-some-buffers (not compilation-ask-about-save) nil)    (save-some-buffers (not compilation-ask-about-save) nil)
792    (let ((default-directory (or compilation-directory default-directory)))    (let ((default-directory
793              (or (and (not (eq major-mode (nth 1 compilation-arguments)))
794                       compilation-directory)
795                  default-directory)))
796      (apply 'compilation-start (or compilation-arguments      (apply 'compilation-start (or compilation-arguments
797                                    `(,(eval compile-command))))))                                    `(,(eval compile-command))))))
798    
# Line 816  Otherwise, construct a buffer name from Line 819  Otherwise, construct a buffer name from
819           (funcall name-function mode-name))           (funcall name-function mode-name))
820          (compilation-buffer-name-function          (compilation-buffer-name-function
821           (funcall compilation-buffer-name-function mode-name))           (funcall compilation-buffer-name-function mode-name))
822          ((and (eq major-mode 'compilation-mode)          ((eq major-mode (nth 1 compilation-arguments))
               (equal mode-name (nth 2 compilation-arguments)))  
823           (buffer-name))           (buffer-name))
824          (t          (t
825           (concat "*" (downcase mode-name) "*"))))           (concat "*" (downcase mode-name) "*"))))
# Line 1522  If nil, don't scroll the compilation out Line 1524  If nil, don't scroll the compilation out
1524    
1525  (defun compilation-goto-locus (msg mk end-mk)  (defun compilation-goto-locus (msg mk end-mk)
1526    "Jump to an error corresponding to MSG at MK.    "Jump to an error corresponding to MSG at MK.
1527  All arguments are markers.  If END-MK is non nil, mark is set there."  All arguments are markers.  If END-MK is non-nil, mark is set there."
1528    (if (eq (window-buffer (selected-window))    (if (eq (window-buffer (selected-window))
1529            (marker-buffer msg))            (marker-buffer msg))
1530        ;; If the compilation buffer window is selected,        ;; If the compilation buffer window is selected,

Legend:
Removed from v.1.324  
changed lines
  Added in v.1.325

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26