/[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.375 by rms, Sat Aug 20 21:47:06 2005 UTC revision 1.376 by jurta, Mon Aug 22 19:54:27 2005 UTC
# Line 449  You might also use mode hooks to specify Line 449  You might also use mode hooks to specify
449  (defcustom compilation-disable-input nil  (defcustom compilation-disable-input nil
450    "*If non-nil, send end-of-file as compilation process input.    "*If non-nil, send end-of-file as compilation process input.
451  This only affects platforms that support asynchronous processes (see  This only affects platforms that support asynchronous processes (see
452  start-process); synchronous compilation processes never accept input."  `start-process'); synchronous compilation processes never accept input."
453    :type 'boolean    :type 'boolean
454    :group 'compilation    :group 'compilation
455    :version "22.1")    :version "22.1")
# Line 1228  Runs `compilation-mode-hook' with `run-m Line 1228  Runs `compilation-mode-hook' with `run-m
1228  (defmacro define-compilation-mode (mode name doc &rest body)  (defmacro define-compilation-mode (mode name doc &rest body)
1229    "This is like `define-derived-mode' without the PARENT argument.    "This is like `define-derived-mode' without the PARENT argument.
1230  The parent is always `compilation-mode' and the customizable `compilation-...'  The parent is always `compilation-mode' and the customizable `compilation-...'
1231  variables are also set from the name of the mode you have chosen, by replacing  variables are also set from the name of the mode you have chosen,
1232  the fist word, e.g `compilation-scroll-output' from `grep-scroll-output' if that  by replacing the first word, e.g `compilation-scroll-output' from
1233  variable exists."  `grep-scroll-output' if that variable exists."
1234    (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode))))    (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode))))
1235      `(define-derived-mode ,mode compilation-mode ,name      `(define-derived-mode ,mode compilation-mode ,name
1236         ,doc         ,doc
# Line 1509  Prefix arg N says how many files to move Line 1509  Prefix arg N says how many files to move
1509    (let ((buffer (compilation-find-buffer)))    (let ((buffer (compilation-find-buffer)))
1510      (if (get-buffer-process buffer)      (if (get-buffer-process buffer)
1511          (interrupt-process (get-buffer-process buffer))          (interrupt-process (get-buffer-process buffer))
1512        (error "The compilation process is not running"))))        (error "The %s process is not running" (downcase mode-name)))))
1513    
1514  (defalias 'compile-mouse-goto-error 'compile-goto-error)  (defalias 'compile-mouse-goto-error 'compile-goto-error)
1515    
# Line 1754  Pop up the buffer containing MARKER and Line 1754  Pop up the buffer containing MARKER and
1754                                      marker)                                      marker)
1755              (let ((name (expand-file-name              (let ((name (expand-file-name
1756                           (read-file-name                           (read-file-name
1757                            (format "Find this error in: (default %s) "                            (format "Find this %s in: (default %s) "
1758                                    filename)                                    compilation-error filename)
1759                            dir filename t))))                            dir filename t))))
1760                (if (file-directory-p name)                (if (file-directory-p name)
1761                    (setq name (expand-file-name filename name)))                    (setq name (expand-file-name filename name)))

Legend:
Removed from v.1.375  
changed lines
  Added in v.1.376

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