Lines Matching +defs:list +defs:unique
74 ;; the completion list.
134 return a list of annotations like `write-region-annotate-functions',
140 TO-FN will not make any changes but will instead return a list of
204 It must be a single symbol, not a list like `buffer-file-format'.
212 it either returns a list of annotations, or returns with a different buffer
245 FORMAT is a symbol appearing in `format-alist' or a list of such symbols,
253 to the reverted list of formats used, and call any mode functions defined
267 ;; Figure out which format it is in, remember list in `format'.
284 ;; Rewind list to look for another format
288 (or (listp format) (setq format (list format)))
319 (list (format-read "Translate buffer from format (default guess): ")))
329 (list (region-beginning) (region-end)
338 formats defined in `format-alist', or a list of such symbols."
340 (list (format-read (format "Translate buffer to format (default %s): "
347 one of the formats defined in `format-alist', or a list of such symbols."
349 (list (region-beginning) (region-end)
353 (if (symbolp format) (setq format (list format)))
391 (list file fmt (not current-prefix-arg))))
401 (setq buffer-file-format (append buffer-file-format (list fmt))))))
412 (list file fmt)))
425 a list (ABSOLUTE-FILE-NAME SIZE)."
431 (list file fmt)))
438 value (list (car value) size)))
443 Return value is a list, like `buffer-file-format'; it may be nil.
445 (let* ((table (mapcar (lambda (x) (list (symbol-name (car x))))
448 (if (not (equal "" ans)) (list (intern ans)))))
458 ALIST is a list of (FROM . TO) pairs, which should be proper arguments to
461 so that you can use the same list in both directions if it contains only
481 ;;; Some list-manipulation functions that we need.
483 (defun format-delq-cons (cons list)
488 (if (eq cons list)
489 (cdr list)
490 (let ((p list))
496 list)))
498 (defun format-make-relatively-unique (a b)
528 (defun format-proper-list-p (list)
529 "Return t if LIST is a proper list.
530 A proper list is a list ending with a nil cdr, not with an atom "
531 (when (listp list)
532 (while (consp list)
533 (setq list (cdr list)))
534 (null list)))
549 (put 'face 'format-list-valued t) ; These text-properties take values
550 (put 'unknown 'format-list-valued t) ; that are lists, the elements of which
555 ;; This text property has list values, but they are treated atomically.
557 (put 'display 'format-list-atomic-p t)
569 It should return a list of 4 elements: \(BEGIN END NAME POSITIVE). BEGIN and
579 When an annotation is found, the TRANSLATIONS list is searched for a
587 non-nil `format-list-valued' property, then the value will be consed onto the
591 the TRANSLATIONS list: PARAMETER and FUNCTION \(spelled in uppercase).
600 changes are appropriate. It can also return a list of the form
606 are saved as values of the `unknown' text-property \(which is list-valued).
607 The TRANSLATIONS list should usually contain an entry of the form
697 (list
710 (cons (list start loc prop value)
725 todo (cons (list start loc 'unknown top-name)
744 (cond ((get prop 'format-list-valued) ; value gets consed onto
745 ; list-valued properties
747 (cons val (if (listp prev) prev (list prev)))))
757 regions. Each list must contain nonoverlapping, noncontiguous
811 (defun format-insert-annotations (list &optional offset)
812 "Apply list of annotations to buffer as `write-region' would.
821 (let ((l (reverse list)))
832 (cons (if old (list old))
833 (if new (list new))))
837 Search for changes between FROM and TO, and describe them with a list of
846 Each element is a list whose car is a PROPERTY, and the following
854 If VALUE is a list, then each element of the list is dealt with
898 ;; Now remove the one we're really interested in from open list.
930 Third argument IGNORE is a list of text-properties not to consider.
946 ;; make list of all property names involved
978 If NEW does not appear in the list, but there is a default function,
981 where CLOSE is a list of annotations to close
982 and OPEN is a list of annotations to open.
993 ;; If either old or new is a list, have to treat both that way.
995 (not (get prop 'format-list-atomic-p)))
996 (if (or (not (format-proper-list-p old))
997 (not (format-proper-list-p new)))
999 (let* ((old (if (listp old) old (list old)))
1000 (new (if (listp new) new (list new)))
1015 (format-make-relatively-unique close open)))
1020 PROP-ALIST is the relevant element of a TRANSLATIONS list.
1045 (cons nil (make-list n anno))
1046 (cons (make-list (- n) anno) nil))))
1052 (format-make-relatively-unique close open)