diff options
Diffstat (limited to 'generic/pg-pgip.el')
| -rw-r--r-- | generic/pg-pgip.el | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/generic/pg-pgip.el b/generic/pg-pgip.el index cd9dac2a..0f427ecb 100644 --- a/generic/pg-pgip.el +++ b/generic/pg-pgip.el @@ -1,10 +1,19 @@ -;; pg-pgip.el --- PGIP manipulation for Proof General -;; -;; Copyright (C) 2000-2002, 2010 LFCS Edinburgh. +;;; pg-pgip.el --- PGIP manipulation for Proof General + +;; This file is part of Proof General. + +;; Portions © Copyright 1994-2012 David Aspinall and University of Edinburgh +;; Portions © Copyright 2003, 2012, 2014 Free Software Foundation, Inc. +;; Portions © Copyright 2001-2017 Pierre Courtieu +;; Portions © Copyright 2010, 2016 Erik Martin-Dorel +;; Portions © Copyright 2011-2013, 2016-2017 Hendrik Tews +;; Portions © Copyright 2015-2017 Clément Pit-Claudel + ;; Author: David Aspinall <David.Aspinall@ed.ac.uk> + ;; License: GPL (GNU GENERAL PUBLIC LICENSE) -;; -;; $Id$ + +;;; Commentary: ;; ;; STATUS: Experimental ;; @@ -23,19 +32,15 @@ ;; -- support fully native PGIP mode ;; - -;;; Commentary: -;; - +;;; Code: (require 'cl) ; incf (require 'pg-xml) ; (declare-function pg-response-warning "pg-response") (declare-function pg-response-message "pg-response") -(declare-function proof-segment-up-to "proof-script") +(declare-function proof-segment-up-to "proof-script") (declare-function proof-insert-pbp-command "proof-script") -;;; Code: (defalias 'pg-pgip-debug 'proof-debug) (defalias 'pg-pgip-error 'error) (defalias 'pg-pgip-warning 'pg-internal-warning) @@ -106,7 +111,7 @@ Return a symbol representing the PGIP command processed, or nil." (let ((ppfn (cdr-safe (assoc cmdname pg-pgip-post-process-functions)))) (if (fboundp ppfn) (progn - (pg-pgip-debug + (pg-pgip-debug "Post-processing for PGIP message type `%s' with function `%s'" cmdname ppfn) (funcall ppfn)) (pg-pgip-debug "[No post-processing defined for PGIP message type `%s']" cmdname)))) |