Mercurial > emacs
changeset 75581:7cca60272387
(idlwave-xml-create-sysvar-alist): Trim leading whitespace in sysvar
names.
| author | J.D. Smith <jdsmith@as.arizona.edu> |
|---|---|
| date | Thu, 01 Feb 2007 01:04:11 +0000 |
| parents | 8630d513892d |
| children | 586d8381a846 |
| files | lisp/progmodes/idlwave.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)