summaryrefslogtreecommitdiff
path: root/editors/psgml/files/patch-psgml-parse.el
diff options
context:
space:
mode:
Diffstat (limited to 'editors/psgml/files/patch-psgml-parse.el')
-rw-r--r--editors/psgml/files/patch-psgml-parse.el25
1 files changed, 25 insertions, 0 deletions
diff --git a/editors/psgml/files/patch-psgml-parse.el b/editors/psgml/files/patch-psgml-parse.el
new file mode 100644
index 000000000000..0c67d70a8d9e
--- /dev/null
+++ b/editors/psgml/files/patch-psgml-parse.el
@@ -0,0 +1,25 @@
+*** psgml-parse.el.orig Sun Mar 6 01:23:40 2005
+--- psgml-parse.el Wed Jun 8 12:47:33 2005
+***************
+*** 568,574 ****
+ (setq s1 (car l)
+ allfinal (and allfinal (sgml-state-final-p s1))
+ s2 (sgml-get-move s1 token)
+! res (and s2 (sgml-make-and-state s2 (remq s1 dfas) next))
+ l (cdr l)))
+ (cond (res)
+ (allfinal (sgml-get-move next token)))))
+--- 568,580 ----
+ (setq s1 (car l)
+ allfinal (and allfinal (sgml-state-final-p s1))
+ s2 (sgml-get-move s1 token)
+! res (and s2
+! (sgml-make-and-state
+! s2
+! (if (memq s1 dfas)
+! (delq s1 (copy-sequence dfas))
+! dfas)
+! next))
+ l (cdr l)))
+ (cond (res)
+ (allfinal (sgml-get-move next token)))))