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

Diff of /emacs/lisp/simple.el

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

revision 1.501.4.9 by rms, Mon Jul 29 01:18:50 2002 UTC revision 1.501.4.10 by rms, Sun Sep 29 18:24:51 2002 UTC
# Line 1100  we stop and ignore all further elements. Line 1100  we stop and ignore all further elements.
1100  If it crosses the edge, we return nil."  If it crosses the edge, we return nil."
1101    (cond ((integerp undo-elt)    (cond ((integerp undo-elt)
1102           (and (>= undo-elt start)           (and (>= undo-elt start)
1103                (<  undo-elt end)))                (<= undo-elt end)))
1104          ((eq undo-elt nil)          ((eq undo-elt nil)
1105           t)           t)
1106          ((atom undo-elt)          ((atom undo-elt)
# Line 1120  If it crosses the edge, we return nil." Line 1120  If it crosses the edge, we return nil."
1120                     (cons alist-elt undo-adjusted-markers)))                     (cons alist-elt undo-adjusted-markers)))
1121             (and (cdr alist-elt)             (and (cdr alist-elt)
1122                  (>= (cdr alist-elt) start)                  (>= (cdr alist-elt) start)
1123                  (< (cdr alist-elt) end))))                  (<= (cdr alist-elt) end))))
1124          ((null (car undo-elt))          ((null (car undo-elt))
1125           ;; (nil PROPERTY VALUE BEG . END)           ;; (nil PROPERTY VALUE BEG . END)
1126           (let ((tail (nthcdr 3 undo-elt)))           (let ((tail (nthcdr 3 undo-elt)))
1127             (and (>= (car tail) start)             (and (>= (car tail) start)
1128                  (< (cdr tail) end))))                  (<= (cdr tail) end))))
1129          ((integerp (car undo-elt))          ((integerp (car undo-elt))
1130           ;; (BEGIN . END)           ;; (BEGIN . END)
1131           (and (>= (car undo-elt) start)           (and (>= (car undo-elt) start)
1132                (< (cdr undo-elt) end)))))                (<= (cdr undo-elt) end)))))
1133    
1134  (defun undo-elt-crosses-region (undo-elt start end)  (defun undo-elt-crosses-region (undo-elt start end)
1135    "Test whether UNDO-ELT crosses one edge of that region START ... END.    "Test whether UNDO-ELT crosses one edge of that region START ... END.

Legend:
Removed from v.1.501.4.9  
changed lines
  Added in v.1.501.4.10

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