(idlwave-xml-create-sysvar-alist): Trim leading whitespace in sysvar

	names.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c3e6f4dc01..56bfe69acd7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-01  J.D. Smith  <jdsmith@as.arizona.edu>
+
+        * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist): Trim
+        leading whitespace in sysvar names.
+
 2007-02-01  Juanma Barranquero  <lekktu@gmail.com>
 
         * faces.el (internal-find-face, internal-get-face): Doc fixes.
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index b5b1e055465..c4349e9c092 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -3497,8 +3497,7 @@ if `idlwave-auto-fill-split-string' is non-nil."
           (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 @@ 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)