Function: w32--filter-USB-scripts

w32--filter-USB-scripts is a byte-compiled function defined in w32-win.el.gz.

Signature

(w32--filter-USB-scripts)

Documentation

Filter USB scripts out of script-representative-chars.

Source Code

;; Defined in /usr/src/emacs/lisp/term/w32-win.el.gz
(defun w32--filter-USB-scripts ()
  "Filter USB scripts out of `script-representative-chars'."
  (let (val)
    (dolist (elt script-representative-chars)
      (let ((subranges w32-no-usb-subranges)
            (chars (append (cdr elt) nil)) ; handle vectors as well
            ch found subrange)
        (while (and (consp chars) (not found))
          (setq ch (car chars)
                chars (cdr chars))
          (while (and (consp subranges) (not found))
            (setq subrange (car subranges)
                  subranges (cdr subranges))
            (when (and (>= ch (car subrange)) (<= ch (cdr subrange)))
              (setq found t)
              (push elt val))))))
    (nreverse val)))