mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Silence prolog.el compilation.

Browse Source 
* lisp/progmodes/prolog.el: Don't require compile when compiling.
  -- not using any macros from it, it's just a cheap way to silence the
  compiler that actually produces one warning.
(compilation-shell-minor-mode, compilation-error-regexp-alist)
(compilation-forget-errors, compilation-fake-loc)
(compilation-parse-errors-function, compilation-error-list): Declare.
(prolog-inferior-mode): Require 'compile.
This commit is contained in:
Glenn Morris 2011-02-18 00:42:21 -08:00
parent 15e0d5a174
commit 135dee5572
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,5 +1,11 @@
2011-02-18 Glenn Morris <rgm@gnu.org>
* progmodes/prolog.el: Don't require compile when compiling.
(compilation-shell-minor-mode, compilation-error-regexp-alist)
(compilation-forget-errors, compilation-fake-loc)
(compilation-parse-errors-function, compilation-error-list): Declare.
(prolog-inferior-mode): Require 'compile.
* emulation/cua-base.el (pc-selection-mode): Declare.
* emacs-lisp/eieio-custom.el: Set generated-autoload-file.

12
lisp/progmodes/prolog.el
View File

@ -280,7 +280,6 @@
;;; Code:
(eval-when-compile
(require 'compile)
(require 'font-lock)
;; We need imenu everywhere because of the predicate index!
(require 'imenu)
@ -1126,6 +1125,8 @@ Actually this is just customized `prolog-mode'."
(comint-send-string proc (string last-command-event))
(call-interactively 'self-insert-command))))
(declare-function 'compilation-shell-minor-mode "compile" (&optional arg))
(defvar compilation-error-regexp-alist)
(define-derived-mode prolog-inferior-mode comint-mode "Inferior Prolog"
"Major mode for interacting with an inferior Prolog process.
@ -1156,6 +1157,7 @@ imitating normal Unix input editing.
To find out what version of Prolog mode you are running, enter
`\\[prolog-mode-version]'."
(require 'compile)
(setq comint-input-filter 'prolog-input-filter)
(setq mode-line-process '(": %s"))
(prolog-mode-variables)
@ -1279,6 +1281,10 @@ the variable `prolog-prompt-regexp'."
;; Old consulting and compiling functions
;;------------------------------------------------------------
(declare-function compilation-forget-errors "compile" ())
(declare-function compilation-fake-loc "compile"
(marker file &optional line col))
(defun prolog-old-process-region (compilep start end)
"Process the region limited by START and END positions.
If COMPILEP is non-nil then use compilation, otherwise consulting."
@ -1480,6 +1486,8 @@ Used for temporary files.")
(defvar prolog-consult-compile-real-file nil
"The file name of the buffer to compile/consult.")
(defvar compilation-parse-errors-function)
(defun prolog-consult-compile (compilep file &optional first-line)
"Consult/compile FILE.
If COMPILEP is non-nil, perform compilation, otherwise perform CONSULTING.
@ -1541,6 +1549,8 @@ This function must be called from the source code buffer."
"\nConsulted.\n"))
(set-process-filter process old-filter))))
(defvar compilation-error-list)
(defun prolog-parse-sicstus-compilation-errors (limit)
"Parse the prolog compilation buffer for errors.
Argument LIMIT is a buffer position limiting searching.