emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juri Linkov
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
Date: Mon, 22 Aug 2005 15:54:27 -0400

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.375 
emacs/lisp/progmodes/compile.el:1.376
*** emacs/lisp/progmodes/compile.el:1.375       Sat Aug 20 21:47:06 2005
--- emacs/lisp/progmodes/compile.el     Mon Aug 22 19:54:27 2005
***************
*** 449,455 ****
  (defcustom compilation-disable-input nil
    "*If non-nil, send end-of-file as compilation process input.
  This only affects platforms that support asynchronous processes (see
! start-process); synchronous compilation processes never accept input."
    :type 'boolean
    :group 'compilation
    :version "22.1")
--- 449,455 ----
  (defcustom compilation-disable-input nil
    "*If non-nil, send end-of-file as compilation process input.
  This only affects platforms that support asynchronous processes (see
! `start-process'); synchronous compilation processes never accept input."
    :type 'boolean
    :group 'compilation
    :version "22.1")
***************
*** 1228,1236 ****
  (defmacro define-compilation-mode (mode name doc &rest body)
    "This is like `define-derived-mode' without the PARENT argument.
  The parent is always `compilation-mode' and the customizable `compilation-...'
! variables are also set from the name of the mode you have chosen, by replacing
! the fist word, e.g `compilation-scroll-output' from `grep-scroll-output' if 
that
! variable exists."
    (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name 
mode))))
      `(define-derived-mode ,mode compilation-mode ,name
         ,doc
--- 1228,1236 ----
  (defmacro define-compilation-mode (mode name doc &rest body)
    "This is like `define-derived-mode' without the PARENT argument.
  The parent is always `compilation-mode' and the customizable `compilation-...'
! variables are also set from the name of the mode you have chosen,
! by replacing the first word, e.g `compilation-scroll-output' from
! `grep-scroll-output' if that variable exists."
    (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name 
mode))))
      `(define-derived-mode ,mode compilation-mode ,name
         ,doc
***************
*** 1509,1515 ****
    (let ((buffer (compilation-find-buffer)))
      (if (get-buffer-process buffer)
        (interrupt-process (get-buffer-process buffer))
!       (error "The compilation process is not running"))))
  
  (defalias 'compile-mouse-goto-error 'compile-goto-error)
  
--- 1509,1515 ----
    (let ((buffer (compilation-find-buffer)))
      (if (get-buffer-process buffer)
        (interrupt-process (get-buffer-process buffer))
!       (error "The %s process is not running" (downcase mode-name)))))
  
  (defalias 'compile-mouse-goto-error 'compile-goto-error)
  
***************
*** 1754,1761 ****
                                    marker)
            (let ((name (expand-file-name
                         (read-file-name
!                         (format "Find this error in: (default %s) "
!                                 filename)
                          dir filename t))))
              (if (file-directory-p name)
                  (setq name (expand-file-name filename name)))
--- 1754,1761 ----
                                    marker)
            (let ((name (expand-file-name
                         (read-file-name
!                         (format "Find this %s in: (default %s) "
!                                 compilation-error filename)
                          dir filename t))))
              (if (file-directory-p name)
                  (setq name (expand-file-name filename name)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]