/[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.604 by monnier, Wed May 21 15:29:36 2003 UTC revision 1.605 by lektu, Sun May 25 01:34:37 2003 UTC
# Line 2265  If ARG is zero, move to the beginning of Line 2265  If ARG is zero, move to the beginning of
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)))
# Line 2275  If ARG is zero, move to the beginning of Line 2275  If ARG is zero, move to the beginning of
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)))

Legend:
Removed from v.1.604  
changed lines
  Added in v.1.605

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