Lines Matching +defs:range +defs:list
162 (if height (list height))
163 (if width (list width)))
167 (if height (list height))
168 (if width (list width)))))
173 (if left (list left))
174 (if top (list top)))))
1047 "The list of X colors from the `rgb.txt' file.
1119 (add-to-list 'mac-charset-info-alist
1120 (list xlfd-charset mac-text-encoding
1576 (defun mac-ae-list (ae &optional keyword type)
1578 (let ((desc (mac-ae-parameter ae keyword "list")))
1581 ((not (equal (car desc) "list"))
1582 (error "Parameter for \"%s\" is not a list" keyword))
1618 (defun mac-ae-selection-range (ae)
1622 ;; short lineNum; // line to select (<0 to specify range)
1623 ;; long startRange; // start of selection range (if line < 0)
1624 ;; long endRange; // end of selection range (if line < 0)
1629 (let ((range-bytes (cdr (mac-ae-parameter ae "kpos" "TEXT"))))
1630 (and range-bytes
1631 (list (mac-bytes-to-integer range-bytes 2 4)
1632 (mac-bytes-to-integer range-bytes 4 8)
1633 (mac-bytes-to-integer range-bytes 8 12)
1634 (mac-bytes-to-integer range-bytes 16 20)))))
1652 (rest (frame-list))
1670 (defun mac-bytes-to-text-range (bytes &optional from to)
1679 (list (mac-bytes-to-integer bytes from (+ from 4))
1683 (defun mac-ae-text-range-array (ae keyword)
1698 (mac-bytes-to-text-range bytes (+ (* i 10) 2)
1726 (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name))
1732 (let ((selection-range (mac-ae-selection-range ae))
1734 (cond (selection-range
1735 (let ((line (car selection-range))
1736 (start (cadr selection-range))
1737 (end (nth 2 selection-range)))
1934 ;; range is replaced with the new subtext specified by the
1935 ;; (2*j+1)-th range.
2042 (hilite-rng (mac-ae-text-range-array ae "tshi"))
2043 (update-rng (mac-ae-text-range-array ae "tsup"))
2044 ;;(pin-rng (mac-bytes-to-text-range (cdr (mac-ae-parameter ae "tspn" "txrn"))))
2190 (setcar (cdr event) (list (selected-window) (point) '(0 . 0) 0))
2289 (dolist (item (mac-ae-list ae))
2310 (if (x-display-list)
2323 (defvar mac-font-encoder-list
2335 (let ((encoder-list
2336 (mapcar (lambda (lst) (nth 1 lst)) mac-font-encoder-list))
2337 (charset-list
2342 (dolist (encoder encoder-list)
2344 (dolist (charset charset-list)
2404 mac-font-encoder-list)
2407 (defconst mac-char-fontspec-list
2416 mac-font-encoder-list)))
2428 ;; Like fontset-info, but extend a range only if its "to" part is
2432 last-char-or-range last-char last-elt)
2436 (setq last-char-or-range (car (car last))
2437 last-char (if (consp last-char-or-range)
2438 (cdr last-char-or-range)
2439 last-char-or-range)
2444 (if (consp last-char-or-range)
2445 (setcdr last-char-or-range char)
2447 (setcdr last (list (cons char elt)))
2455 of `mac-char-fontspec-list', which is a list
2471 (dolist (char-fontspec mac-char-fontspec-list)
2518 (cond ((x-list-fonts "*-iso10646-1" nil nil 1)
2530 ((null (x-list-fonts "*-iso8859-1" nil nil 1))