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)