[Top][All Lists]
[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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Make `bongo-rename-local-file-track' just change the `bongo-file-name' property,
Daniel Brockman <=