[bongo-patches] Use a marker to keep track of the end of the region in `bongo-universal-prefix/region/marking-object-command' and `bongo-universal-prefix/region/marking-track-command'

[Daniel Brockman]

Use a marker to keep track of the end of the region in
`bongo-universal-prefix/region/marking-object-command' and
`bongo-universal-prefix/region/marking-track-command'.

Patch by Daniel Jensen <address@hidden>.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-05-07 19:19:33.000000000 +0200
+++ new-bongo/bongo.el  2007-05-07 19:19:34.000000000 +0200
@@ -3831,7 +3831,7 @@
             ((bongo-region-active-p)
              (deactivate-mark)
              (let ((marking bongo-marking)
-                   (end (region-end)))
+                   (end (move-marker (make-marker) (region-end))))
                (when marking
                  ;; XXX: This discards the killed marking
                  ;;      as an unfortunate side-effect.
@@ -3841,6 +3841,7 @@
                            (< (point) end))
                  (command-execute command)
                  (goto-char (bongo-point-after-object)))
+               (move-marker end nil)
                (when marking
                  (bongo-yank-marking))))
             (bongo-marking
@@ -3910,7 +3911,7 @@
             ((bongo-region-active-p)
              (deactivate-mark)
              (let ((marking bongo-marking)
-                   (end (region-end)))
+                   (end (move-marker (make-marker) (region-end))))
                (when marking
                  ;; XXX: This discards the killed marking
                  ;;      as an unfortunate side-effect.
@@ -3922,6 +3923,7 @@
                            (< (point) end))
                  (command-execute command)
                  (forward-line 1))
+               (move-marker end nil)
                (when marking
                  (bongo-yank-marking))))
             (bongo-marking

-- 
Daniel Brockman <address@hidden>