diff options
Diffstat (limited to 'generic')
| -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 |