andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
names.
This commit is contained in:
J.D. Smith 2007-02-01 01:04:59 +00:00
parent 39a897a583
commit a86bd65016
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

7
lisp/progmodes/idlwave.el
View file

@ -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)