wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

XEmacs compatibility 

XEmacs doesn't know anything about character classes in regexps
(e.g. [:space:]).  Most likely a space will suffice instead,
for matching the whitespace between an XML node name and its
attributes.
This commit is contained in:
Magnus Henoch 2004-10-16 18:35:39 +00:00 committed by Kirill A. Korinskiy
parent 7d0c1f6139
commit e1a887a17c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
jabber-core.el
View File

@ -243,7 +243,7 @@ Call this function after disconnection."
(if (string-match " \\w+=''" *xmlq*)
(setq *xmlq* (replace-match "" nil nil *xmlq*)))
(catch 'jabber-no-tag
(while (string-match "<\\([a-zA-Z0-9\:]+\\)[>[:space:]]" *xmlq*)
(while (string-match "<\\([a-zA-Z0-9\:]+\\)[> ]" *xmlq*)
(if (or (string-match (concat "<" (match-string 1 *xmlq*) "[^<>]*?/>") *xmlq*)
(string-match (concat "<" (match-string 1 *xmlq*) ".*?>[^\0]+?</" (match-string 1 *xmlq*) ">") *xmlq*))
(progn