Function: idlwave-convert-xml-clean-sysvar-aliases

idlwave-convert-xml-clean-sysvar-aliases is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-convert-xml-clean-sysvar-aliases ALIASES)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlwave.el.gz
(defun idlwave-convert-xml-clean-sysvar-aliases (aliases)
  ;; Duplicate and trim original routine aliases from rinfo list
  ;; This if for, e.g. !X, !Y, !Z.
  (let (alias remove-list)
    (cl-loop for x in aliases do
	  (when (setq alias (assoc (cdr x) idlwave-system-variables-alist))
	    (unless (memq alias remove-list) (push alias remove-list))
	    (setq alias (copy-sequence alias))
	    (setcar alias (car x))
	    (push alias idlwave-system-variables-alist)))
    (cl-loop for x in remove-list do
	     (setq idlwave-system-variables-alist
                   (delq x idlwave-system-variables-alist)))))