[Emacs-diffs] Changes to emacs/lisp/simple.el

[Juanma Barranquero]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.604 emacs/lisp/simple.el:1.605
*** emacs/lisp/simple.el:1.604  Wed May 21 11:29:36 2003
--- emacs/lisp/simple.el        Sat May 24 21:34:37 2003
***************
*** 2265,2272 ****
              (unless (bolp)
                (goto-char opoint))))
        (let ((first t))
!         (while (or first (< arg 0))
!           (if (zerop arg)
                (beginning-of-line)
              (or (zerop (forward-line -1))
                  (signal 'beginning-of-buffer nil)))
--- 2265,2272 ----
              (unless (bolp)
                (goto-char opoint))))
        (let ((first t))
!         (while (or first (<= arg 0))
!           (if first
                (beginning-of-line)
              (or (zerop (forward-line -1))
                  (signal 'beginning-of-buffer nil)))
***************
*** 2275,2287 ****
            (unless (bobp)
              (let ((prop
                     (get-char-property (1- (point)) 'invisible)))
!               (if (if (eq buffer-invisibility-spec t)
!                       prop
!                     (or (memq prop buffer-invisibility-spec)
!                         (assq prop buffer-invisibility-spec)))
!                   (setq arg (1+ arg)))))
!           (setq first nil)
!           (setq arg (1+ arg)))
          ;; If invisible text follows, and it is a number of complete lines,
          ;; skip it.
          (let ((opoint (point)))
--- 2275,2286 ----
            (unless (bobp)
              (let ((prop
                     (get-char-property (1- (point)) 'invisible)))
!               (unless (if (eq buffer-invisibility-spec t)
!                           prop
!                         (or (memq prop buffer-invisibility-spec)
!                             (assq prop buffer-invisibility-spec)))
!                 (setq arg (1+ arg)))))
!           (setq first nil))
          ;; If invisible text follows, and it is a number of complete lines,
          ;; skip it.
          (let ((opoint (point)))