branch: externals/idlwave
commit 88a6abe665c29bd1f3b6b3eb1e027e9507b021a3
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
Skip leading space in XML entry for SYSVARs
---
idlwave.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/idlwave.el b/idlwave.el
index f4b9d524c1..0296cade9f 100644
--- a/idlwave.el
+++ b/idlwave.el
@@ -4840,7 +4840,9 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.")
(defun idlwave-xml-create-sysvar-alist (xml-entry)
;; Create a sysvar list entry from the xml parsed list.
(let* ((nameblock (nth 1 xml-entry))
- (sysvar (substring (cdr (assq 'name nameblock)) 1))
+ (name (cdr (assq 'name nameblock)))
+ (sysvar (substring name (progn (string-match "^ *!" name)
+ (match-end 0))))
(link (cdr (assq 'link nameblock)))
(params (cddr xml-entry))
(case-fold-search t)
