From 826078b86ddde1fbcb350d1bf542f40b49361ff1 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 16 Aug 2002 16:48:30 +0000
Subject: Robustness against pg-subterm-start-char not being set.

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

(limited to 'generic')

diff --git a/generic/pg-assoc.el b/generic/pg-assoc.el
index 38f92e96..8e73fd48 100644
--- a/generic/pg-assoc.el
+++ b/generic/pg-assoc.el
@@ -38,7 +38,8 @@ If pg-subterm-first-special-char is unset, return STRING unchanged."
       (let* ((ip 0) (op 0) (l (length string)) (out (make-string l ?x )))
 	(while (< ip l)
 	  (if (>= (aref string ip) pg-subterm-first-special-char)
-	      (if (char-equal (aref string ip) pg-subterm-start-char)
+	      (if (and pg-subterm-start-char
+		       (char-equal (aref string ip) pg-subterm-start-char))
 		  (progn (incf ip)
 			 ;; da: this relies on annotations being
 			 ;; characters between \200 and first special
-- 
cgit v1.2.3