From a86bd65016a92e8c65c73cdfc7790d3917e427d3 Mon Sep 17 00:00:00 2001 From: "J.D. Smith" Date: Thu, 1 Feb 2007 01:04:59 +0000 Subject: [PATCH] (idlwave-xml-create-sysvar-alist): Trim leading whitespace in sysvar names. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/idlwave.el | 7 ++++--- 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 + + * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist): Trim + leading whitespace in sysvar names. + 2007-02-01 Juanma Barranquero * 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) -- 2.39.2