Function: dun-remove-obj-from-inven

dun-remove-obj-from-inven is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-remove-obj-from-inven OBJNUM)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-remove-obj-from-inven (objnum)
  (let (new-inven)
    (dolist (x dun-inventory)
      (if (not (= x objnum))
	  (setq new-inven (append new-inven (list x)))))
    (setq dun-inventory new-inven)))