# HG changeset patch
# User J.D. Smith <jdsmith@as.arizona.edu>
# Date 1170291851 0
# Node ID 7cca60272387d2cfa2b4670874213c49634d2bfc
# Parent  8630d513892d4dea9688629dfdaba6c5fb7785ed
(idlwave-xml-create-sysvar-alist): Trim leading whitespace in sysvar
	names.

diff -r 8630d513892d -r 7cca60272387 lisp/progmodes/idlwave.el
--- a/lisp/progmodes/idlwave.el	Thu Feb 01 00:39:02 2007 +0000
+++ b/lisp/progmodes/idlwave.el	Thu Feb 01 01:04:11 2007 +0000
@@ -3497,8 +3497,7 @@
 	  (save-excursion
 	    (end-of-line 0)
 	    ;; Indent the split line
-	    (idlwave-indent-line)
-	    )
+	    (idlwave-indent-line))
 	  (if (save-excursion
 		(beginning-of-line)
 		(looking-at idlwave-comment-line-start-skip))
@@ -4843,7 +4842,9 @@
 (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)