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

	names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c3e6f4dc01290cb60375fbf82136bbf60f63004..56bfe69acd7e86002ab5d6cc82d923f241e68021 100644 (file)
--- 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 b5b1e05546512e787429945d983cf99c9300e3db..c4349e9c092bb77897b4c51986f8df43914d2681 100644 (file)
--- 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)