Function: rng-xsd-base64-binary-length

rng-xsd-base64-binary-length is a byte-compiled function defined in rng-xsd.el.gz.

Signature

(rng-xsd-base64-binary-length OBJ)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-xsd.el.gz
(defun rng-xsd-base64-binary-length (obj)
  (let ((n (* (/ (length obj) 4) 3)))
    (if (and (> n 0)
	     (string= (substring obj -1) "="))
	(- n (if (string= (substring obj -2) "==")
		 2
	       1))
      n)))