From 278a794e1a6ca253284054c323fce32693ce36a6 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 25 Jan 2008 23:53:45 +0000
Subject: pg-clear-script-portions: fix handling of buffer-invisibility-spec
 (missing apply)

---
 generic/proof-script.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'generic/proof-script.el')

diff --git a/generic/proof-script.el b/generic/proof-script.el
index 447d4176..eccb7f4b 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -499,19 +499,23 @@ Assumes script buffer is current"
 This is used for cleaning `buffer-invisibility-spec' in
 `pg-clear-script-portions': it doesn't need to be exactly accurate.")
 
+(defconst pg-default-invisibility-spec 
+  ;; Default supports X-Symbol, see `x-symbol-hide-revealed-at-point'
+  '((t . nil) (hide . nil)))
+
 (defun pg-clear-script-portions ()
   "Clear record of script portion names and types from internal list.
 Also clear all visibility specifications."
   (setq pg-script-portions nil)
   (setq buffer-invisibility-spec
 	(if (listp buffer-invisibility-spec)
-	    (append
-	     (mapcar (lambda (propellips)
-		       (if (memq (car-safe propellips) pg-visibility-specs)
-			   nil (list propellips)))
+	    (apply 'append
+		   (mapcar (lambda (propellips)
+			     (if (memq (car-safe propellips) 
+				       pg-visibility-specs)
+				 nil (list propellips)))
 		     buffer-invisibility-spec))
-	  ;; Default supports X-Symbol, see `x-symbol-hide-revealed-at-point'
-	  '((t . nil) (hide . nil)))))
+	  pg-default-invisibility-spec)))
 
 (defun pg-add-script-element (elt)
   (add-to-list pg-script-portions elt))
-- 
cgit v1.2.3