bongo-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bongo-patches] Make `bongo-rename-local-file-track' just change the `bo


From: Daniel Brockman
Subject: [bongo-patches] Make `bongo-rename-local-file-track' just change the `bongo-file-name' property
Date: Sun, 29 Apr 2007 11:21:52 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux)

Make `bongo-rename-local-file-track' just change the
`bongo-file-name' property instead of deleting the whole line
and inserting a new one (the new behavior avoids moving point).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-29 11:21:32.000000000 +0200
+++ new-bongo/bongo.el  2007-04-29 11:21:32.000000000 +0200
@@ -9295,11 +9295,11 @@
               (bongo-ignore-movement-errors
                 (while (bongo-snap-to-object-line)
                   (when (string-equal (bongo-line-file-name) old-name)
-                    (bongo-delete-line)
-                    (bongo-insert-line 'bongo-file-name new-name))
+                    (bongo-line-set-property 'bongo-file-name new-name)
+                    (bongo-redisplay-line))
                   (bongo-next-object-line)))))
-        (bongo-delete-line)
-        (bongo-insert-line 'bongo-file-name new-name)))))
+        (bongo-line-set-property 'bongo-file-name new-name)
+        (bongo-redisplay-line)))))
 
 (defun bongo-rename-uri-track (new-uri &optional new-title point)
   "Retarget and optionally retitle the URI track at POINT.
-- 
Daniel Brockman <address@hidden>

reply via email to

[Prev in Thread] Current Thread [Next in Thread]