Function: archive-get-marked

archive-get-marked is a byte-compiled function defined in arc-mode.el.gz.

Signature

(archive-get-marked MARK &optional DEFAULT)

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive-get-marked (mark &optional default)
  (let (files)
    (save-excursion
      (goto-char archive-file-list-start)
      (while (< (point) archive-file-list-end)
        (if (= (following-char) mark)
	    (setq files (cons (archive-get-descr) files)))
        (forward-line 1)))
    (or (nreverse files)
	(and default
	     (list (archive-get-descr))))))