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

[Kim F . Storm]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.345 
emacs/lisp/progmodes/compile.el:1.346
*** emacs/lisp/progmodes/compile.el:1.345       Sat Jan 29 15:50:26 2005
--- emacs/lisp/progmodes/compile.el     Wed Feb  9 15:50:36 2005
***************
*** 459,465 ****
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
!   :version "21.4")
  
  (defface compilation-info-face
    '((((class color) (min-colors 16) (background light))
--- 459,465 ----
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
!   :version "22.1")
  
  (defface compilation-info-face
    '((((class color) (min-colors 16) (background light))
***************
*** 470,476 ****
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
!   :version "21.4")
  
  (defvar compilation-message-face nil
    "Face name to use for whole messages.
--- 470,476 ----
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
!   :version "22.1")
  
  (defvar compilation-message-face nil
    "Face name to use for whole messages.
***************
*** 1133,1139 ****
                 (const :tag "Info" 1)
                 (const :tag "None" 0))
    :group 'compilation
!   :version "21.4")
  
  (defcustom compilation-skip-visited nil
    "*Compilation motion commands skip visited messages if this is t.
--- 1133,1139 ----
                 (const :tag "Info" 1)
                 (const :tag "None" 0))
    :group 'compilation
!   :version "22.1")
  
  (defcustom compilation-skip-visited nil
    "*Compilation motion commands skip visited messages if this is t.
***************
*** 1142,1148 ****
  from a different message."
    :type 'boolean
    :group 'compilation
!   :version "21.4")
  
  ;;;###autoload
  (defun compilation-mode (&optional name-of-mode)
--- 1142,1148 ----
  from a different message."
    :type 'boolean
    :group 'compilation
!   :version "22.1")
  
  ;;;###autoload
  (defun compilation-mode (&optional name-of-mode)
***************
*** 1557,1563 ****
  If nil, don't scroll the compilation output window."
    :type '(choice integer (const :tag "No window scrolling" nil))
    :group 'compilation
!   :version "21.4")
  
  (defsubst compilation-set-window (w mk)
    "Align the compilation output window W with marker MK near top."
--- 1557,1563 ----
  If nil, don't scroll the compilation output window."
    :type '(choice integer (const :tag "No window scrolling" nil))
    :group 'compilation
!   :version "22.1")
  
  (defsubst compilation-set-window (w mk)
    "Align the compilation output window W with marker MK near top."