Mercurial > emacs
comparison lisp/progmodes/prolog.el @ 104542:5986db97372e
(compilation-error-regexp-alist, compilation-forget-errors): Declare.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 22 Aug 2009 19:21:18 +0000 |
parents | 790054ad67dd |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
104541:f54e4dfe90e2 | 104542:5986db97372e |
---|---|
245 | 245 |
246 (declare-function comint-mode "comint") | 246 (declare-function comint-mode "comint") |
247 (declare-function comint-send-string "comint" (process string)) | 247 (declare-function comint-send-string "comint" (process string)) |
248 (declare-function comint-send-region "comint" (process start end)) | 248 (declare-function comint-send-region "comint" (process start end)) |
249 (declare-function comint-send-eof "comint" ()) | 249 (declare-function comint-send-eof "comint" ()) |
250 (defvar compilation-error-regexp-alist) | |
250 | 251 |
251 (define-derived-mode inferior-prolog-mode comint-mode "Inferior Prolog" | 252 (define-derived-mode inferior-prolog-mode comint-mode "Inferior Prolog" |
252 "Major mode for interacting with an inferior Prolog process. | 253 "Major mode for interacting with an inferior Prolog process. |
253 | 254 |
254 The following commands are available: | 255 The following commands are available: |
392 If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode." | 393 If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode." |
393 (interactive "P\nr") | 394 (interactive "P\nr") |
394 (prolog-consult-region compile beg end) | 395 (prolog-consult-region compile beg end) |
395 (pop-to-buffer inferior-prolog-buffer)) | 396 (pop-to-buffer inferior-prolog-buffer)) |
396 | 397 |
398 ;; inferior-prolog-mode uses the autoloaded compilation-shell-minor-mode. | |
399 (declare-function compilation-forget-errors "compile" ()) | |
400 | |
397 (defun inferior-prolog-load-file () | 401 (defun inferior-prolog-load-file () |
398 "Pass the current buffer's file to the inferior prolog process." | 402 "Pass the current buffer's file to the inferior prolog process." |
399 (interactive) | 403 (interactive) |
400 (save-buffer) | 404 (save-buffer) |
401 (let ((file buffer-file-name) | 405 (let ((file buffer-file-name) |