2265 |
(unless (bolp) |
(unless (bolp) |
2266 |
(goto-char opoint)))) |
(goto-char opoint)))) |
2267 |
(let ((first t)) |
(let ((first t)) |
2268 |
(while (or first (< arg 0)) |
(while (or first (<= arg 0)) |
2269 |
(if (zerop arg) |
(if first |
2270 |
(beginning-of-line) |
(beginning-of-line) |
2271 |
(or (zerop (forward-line -1)) |
(or (zerop (forward-line -1)) |
2272 |
(signal 'beginning-of-buffer nil))) |
(signal 'beginning-of-buffer nil))) |
2275 |
(unless (bobp) |
(unless (bobp) |
2276 |
(let ((prop |
(let ((prop |
2277 |
(get-char-property (1- (point)) 'invisible))) |
(get-char-property (1- (point)) 'invisible))) |
2278 |
(if (if (eq buffer-invisibility-spec t) |
(unless (if (eq buffer-invisibility-spec t) |
2279 |
prop |
prop |
2280 |
(or (memq prop buffer-invisibility-spec) |
(or (memq prop buffer-invisibility-spec) |
2281 |
(assq prop buffer-invisibility-spec))) |
(assq prop buffer-invisibility-spec))) |
2282 |
(setq arg (1+ arg))))) |
(setq arg (1+ arg))))) |
2283 |
(setq first nil) |
(setq first nil)) |
|
(setq arg (1+ arg))) |
|
2284 |
;; If invisible text follows, and it is a number of complete lines, |
;; If invisible text follows, and it is a number of complete lines, |
2285 |
;; skip it. |
;; skip it. |
2286 |
(let ((opoint (point))) |
(let ((opoint (point))) |