Function: dun-ls

dun-ls is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-ls ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-ls (args)
  (let ((ocdroom dun-cdroom))
    (if (car args)
        (let ((ocdpath dun-cdpath))
          (if (not (eq (dun-cd args) -2))
              (dun-ls nil))
          (setq dun-cdpath ocdpath)
          (setq dun-cdroom ocdroom))
      (cond
       ((= ocdroom -10) (dun-ls-inven))
       ((= ocdroom -2) (dun-ls-rooms))
       ((= ocdroom -3) (dun-ls-root))
       ((= ocdroom -4) (dun-ls-usr))
       ((> ocdroom 0) (dun-ls-room))))))