[AUCTeX-diffs] Changes to auctex/preview/prv-xemacs.el,v

[David Kastrup]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     David Kastrup <dak>     06/10/24 16:02:22

Index: prv-xemacs.el
===================================================================
RCS file: /sources/auctex/auctex/preview/prv-xemacs.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- prv-xemacs.el       18 Oct 2006 22:06:32 -0000      1.78
+++ prv-xemacs.el       24 Oct 2006 16:02:21 -0000      1.79
@@ -523,7 +523,7 @@
 (defun preview-move-point ()
   "Move point out of fake-intangible areas."
   (preview-check-changes)
-  (let (newlist (pt (point)))
+  (let (newlist (pt (point)) distance)
     (setq preview-temporary-opened
          (dolist (ov preview-temporary-opened newlist)
            (and (extent-object ov)
@@ -534,15 +534,18 @@
                              (>= pt (extent-end-position ov))))
                     (preview-toggle ov t)
                   (push ov newlist)))))
-    (if        (preview-auto-reveal-p preview-auto-reveal)
+    (if        (preview-auto-reveal-p
+        preview-auto-reveal
+        (setq distance
+              (and (eq (marker-buffer preview-marker)
+                       (current-buffer))
+                   (- pt (marker-position preview-marker)))))
        (map-extents #'preview-open-overlay nil
                     pt pt nil nil 'preview-state 'active)
-      (let ((backward (and (eq (marker-buffer preview-marker) (current-buffer))
-                          (< pt (marker-position preview-marker))))
-           newpt)
+      (let (newpt)
        (while (setq newpt
                     (map-extents #'preview-skip-overlay nil
-                                 pt pt backward nil
+                                 pt pt (< distance 0) nil
                                  'preview-state 'active))
          (setq pt newpt))
        (goto-char pt)))))