741 |
(message "Unknown annotations: %s" unknown-ans)))))) |
(message "Unknown annotations: %s" unknown-ans)))))) |
742 |
|
|
743 |
(defun format-subtract-regions (minu subtra) |
(defun format-subtract-regions (minu subtra) |
744 |
"Remove from the regions in MINUend the regions in SUBTRAhend. |
"Remove from the regions in MINUEND the regions in SUBTRAHEND. |
745 |
A region is a dotted pair (FROM . TO). Both parameters are lists of |
A region is a dotted pair (FROM . TO). Both parameters are lists of |
746 |
regions. Each list must contain nonoverlapping, noncontiguous |
regions. Each list must contain nonoverlapping, noncontiguous |
747 |
regions, in descending order. The result is also nonoverlapping, |
regions, in descending order. The result is also nonoverlapping, |
748 |
noncontiguous, and in descending order. The first element of MINUEND |
noncontiguous, and in descending order. The first element of MINUEND |
749 |
can have a cdr of nil, indicating that the end of that region is not |
can have a cdr of nil, indicating that the end of that region is not |
750 |
yet known." |
yet known. |
751 |
|
|
752 |
|
\(fn MINUEND SUBTRAHEND)" |
753 |
(let* ((minuend (copy-alist minu)) |
(let* ((minuend (copy-alist minu)) |
754 |
(subtrahend (copy-alist subtra)) |
(subtrahend (copy-alist subtra)) |
755 |
(m (car minuend)) |
(m (car minuend)) |
802 |
Inserts each element of the given LIST of buffer annotations at its |
Inserts each element of the given LIST of buffer annotations at its |
803 |
appropriate place. Use second arg OFFSET if the annotations' locations are |
appropriate place. Use second arg OFFSET if the annotations' locations are |
804 |
not relative to the beginning of the buffer: annotations will be inserted |
not relative to the beginning of the buffer: annotations will be inserted |
805 |
at their location-OFFSET+1 \(ie, the offset is treated as the character number |
at their location-OFFSET+1 \(ie, the offset is treated as the position of |
806 |
of the first character in the buffer)." |
the first character in the buffer)." |
807 |
(if (not offset) |
(if (not offset) |
808 |
(setq offset 0) |
(setq offset 0) |
809 |
(setq offset (1- offset))) |
(setq offset (1- offset))) |
913 |
|
|
914 |
(defun format-annotate-location (loc all ignore translations) |
(defun format-annotate-location (loc all ignore translations) |
915 |
"Return annotation(s) needed at location LOC. |
"Return annotation(s) needed at location LOC. |
916 |
This includes any properties that change between LOC-1 and LOC. |
This includes any properties that change between LOC - 1 and LOC. |
917 |
If ALL is true, don't look at previous location, but generate annotations for |
If ALL is true, don't look at previous location, but generate annotations for |
918 |
all non-nil properties. |
all non-nil properties. |
919 |
Third argument IGNORE is a list of text-properties not to consider. |
Third argument IGNORE is a list of text-properties not to consider. |