Function: archive-get-descr

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

Signature

(archive-get-descr &optional NOERROR)

Documentation

Return the descriptor vector for file at point.

Does not signal an error if optional argument NOERROR is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive-get-descr (&optional noerror)
  "Return the descriptor vector for file at point.
Does not signal an error if optional argument NOERROR is non-nil."
  (let ((no (archive-get-lineno)))
    (if (and (>= (point) archive-file-list-start)
             (< no (length archive-files)))
	(let ((item (aref archive-files no)))
	  (if (and (archive--file-desc-p item)
                   (let ((mode (or (archive--file-desc-mode item) 0)))
                     (zerop (logand 16384 mode))))
	      item
	    (if (not noerror)
		(user-error "Entry is not a regular member of the archive"))))
      (if (not noerror)
          (error "Line does not describe a member of the archive")))))