Function: pgg-parse-length-type

pgg-parse-length-type is a macro defined in pgg-parse.el.gz.

Signature

(pgg-parse-length-type C)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-parse.el.gz
(defmacro pgg-parse-length-type (c)
  `(cond
    ((< ,c 192) (cons ,c 1))
    ((< ,c 224)
     (cons (+ (ash (- ,c 192) 8)
	      (pgg-byte-after (+ 2 (point)))
	      192)
	   2))
    ((= ,c 255)
     (cons (cons (logior (ash (pgg-byte-after (+ 2 (point))) 8)
			 (pgg-byte-after (+ 3 (point))))
		 (logior (ash (pgg-byte-after (+ 4 (point))) 8)
			 (pgg-byte-after (+ 5 (point)))))
	   5))
    (t;partial body length
     '(0 . 0))))