diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2002-08-16 16:48:30 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2002-08-16 16:48:30 +0000 |
| commit | 826078b86ddde1fbcb350d1bf542f40b49361ff1 (patch) | |
| tree | ee13db8aed13200c9ea5dc2b77f365b97de00bce | |
| parent | de7d43bf2f03c42dab34be88be5a94b6b50a9edc (diff) | |
Robustness against pg-subterm-start-char not being set.
| -rw-r--r-- | generic/pg-assoc.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |