From fecff511bb9fd00267ad9d0d547a64e012480908 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Tue, 14 Aug 2007 14:12:40 +0000
Subject: Add support for sending back literal commands reusing PBP markup
 mechanisms.

---
 generic/pg-assoc.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'generic/pg-assoc.el')

diff --git a/generic/pg-assoc.el b/generic/pg-assoc.el
index deb40e56..546aae3b 100644
--- a/generic/pg-assoc.el
+++ b/generic/pg-assoc.el
@@ -95,8 +95,8 @@ If pg-subterm-first-special-char is unset, return STRING unchanged."
 	  (goto-char start)
 	  (proof-replace-string (char-to-string pg-subterm-end-char) "")
 	  (goto-char start)
-	  (if pg-topterm-char
-	      (proof-replace-string (char-to-string pg-topterm-char) ""))))))
+	  (if pg-topterm-regexp
+	      (proof-replace-regexp pg-topterm-regexp ""))))))
 	  
 	 
 (defun pg-assoc-strip-subterm-markup-buf-old (start end)
-- 
cgit v1.2.3