Ticket #32973: patch-reduce-mode.el.diff

File patch-reduce-mode.el.diff, 761 bytes (added by mbrethen, 13 years ago)

  • reduce-mode.el

    old new  
    19531953          (if (= dir 3) (setq dir 5))   ; for mismatched `begin'
    19541954          (let ((from (if (> dir 0)
    19551955                          (point)
    1956                         (forward-point dir)))
     1956                        (+ (point) dir)))
    19571957                (to (if (> dir 0)
    1958                         (forward-point dir)
     1958                        (+ (point) dir)
    19591959                      (point))))
    19601960            (if reduce-show-delim-overlay-1
    19611961                (move-overlay reduce-show-delim-overlay-1
    … …  
    19801980                        pos
    19811981                      (save-excursion
    19821982                        (goto-char pos)
    1983                         (forward-point (- dir))))))
     1983                        (+ (point) (- dir))))))
    19841984          (if reduce-show-delim-overlay
    19851985              (move-overlay reduce-show-delim-overlay from to (current-buffer))
    19861986            (setq reduce-show-delim-overlay (make-overlay from to))))