Function: nxml-ns-prefixes-for

nxml-ns-prefixes-for is a byte-compiled function defined in nxml-ns.el.gz.

Signature

(nxml-ns-prefixes-for NS &optional ATTRIBUTEP)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-ns.el.gz
(defun nxml-ns-prefixes-for (ns &optional attributep)
  (let ((current (car nxml-ns-state))
	prefixes)
    (when (if attributep
	      (not ns)
	    (eq (car current) ns))
      (setq prefixes '(nil)))
    (setq current (cdr current))
    (while (let ((binding (rassq ns current)))
	     (when binding
               (let ((prefix (car binding)))
                 (when (eq (nxml-ns-get-prefix prefix) ns)
                   (unless (member prefix prefixes)
                     (push prefix prefixes))))
               (setq current
                     (cdr (member binding current))))))
    prefixes))