/[emacs]/emacs/lisp/format.el
ViewVC logotype

Diff of /emacs/lisp/format.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41.4.2 by handa, Fri Apr 16 12:49:50 2004 UTC revision 1.41.4.3 by miles, Mon Jun 28 07:28:40 2004 UTC
# Line 741  to write these unknown annotations back Line 741  to write these unknown annotations back
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))
# Line 800  in the region, it is treated as though i Line 802  in the region, it is treated as though i
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)))
# Line 911  The same TRANSLATIONS structure can be u Line 913  The same TRANSLATIONS structure can be u
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.

Legend:
Removed from v.1.41.4.2  
changed lines
  Added in v.1.41.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26