Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
71 (not (get-char-property (1- (point)) 'intangible)) 71 (not (get-char-property (1- (point)) 'intangible))
72 ;; Make sure the newline before point isn't read-only. 72 ;; Make sure the newline before point isn't read-only.
73 (not (get-char-property (1- (point)) 'read-only)) 73 (not (get-char-property (1- (point)) 'read-only))
74 ;; Make sure the newline before point isn't invisible. 74 ;; Make sure the newline before point isn't invisible.
75 (not (get-char-property (1- (point)) 'invisible)) 75 (not (get-char-property (1- (point)) 'invisible))
76 ;; This should probably also test for the previous char
77 ;; being the *last* character too.
78 (not (get-char-property (1- (point)) 'end-open))
76 ;; Make sure the newline before point has the same 79 ;; Make sure the newline before point has the same
77 ;; properties as the char before it (if any). 80 ;; properties as the char before it (if any).
78 (< (or (previous-extent-change (point)) -2) 81 (< (or (previous-extent-change (point)) -2)
79 (- (point) 2)))) 82 (- (point) 2))))
80 (was-page-start (and (bolp) 83 (was-page-start (and (bolp)