Function: vhdl-adelete

vhdl-adelete is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-adelete ALIST-SYMBOL KEY)

Documentation

Delete a key-value pair from the alist.

Alist is referenced by ALIST-SYMBOL and the key-value pair to remove is pair matching KEY.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-adelete (alist-symbol key)
  "Delete a key-value pair from the alist.
Alist is referenced by ALIST-SYMBOL and the key-value pair to remove
is pair matching KEY."
  (let ((alist (symbol-value alist-symbol)) alist-cdr)
    (while (equal key (caar alist))
      (setq alist (cdr alist))
      (set alist-symbol alist))
    (while (setq alist-cdr (cdr alist))
      (if (equal key (caar alist-cdr))
	  (setcdr alist (cdr alist-cdr))
	(setq alist alist-cdr)))))