bongo-patches
[Top][All Lists]
Advanced

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

[bongo-patches] Fix marker-related bug in `bongo-yank'


From: Daniel Brockman
Subject: [bongo-patches] Fix marker-related bug in `bongo-yank'
Date: Sat, 28 Apr 2007 01:58:37 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux)

Fix marker-related bug in `bongo-yank'.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-28 01:58:35.000000000 +0200
+++ new-bongo/bongo.el  2007-04-28 01:58:35.000000000 +0200
@@ -8829,9 +8829,16 @@
     (beginning-of-line)
     (when line-move-ignore-invisible
       (bongo-skip-invisible))
+    ;; This trick causes the yanked text to be inserted
+    ;; before all markers at the beginning of the line.
+    (insert-before-markers " ")
+    (backward-char 1) 
     (let ((yank-excluded-properties
            (remq 'invisible yank-excluded-properties)))
       (yank argument))
+    (save-excursion
+      (goto-char (region-end))
+      (delete-char 1))
     (bongo-clean-up-after-insertion (region-beginning) (region-end))))
 
 ;; XXX: This definitely does not work properly.
-- 
Daniel Brockman <address@hidden>

reply via email to

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