Re: [emacs-wiki-discuss] muse-registry (2)

[Jim Ottaway]

>>>>> Bastien Guerry <address@hidden> writes:

> Hi,
> here is a new muse-registry.el.  Works quite well for me, any feedback
> welcome.  The format of the registry has changed, you need to update
> `muse-registry-file' with C-u M-x muse-registry-initialize.

I just noticed that muse-registry-update-registry uses kill-line,
which adds the deleted text to the kill-ring.  It would be better to
use delete-region, like this:

--- /tmp/muse-registry.el       2005-11-24 17:22:47.657220432 +0000
+++ /home/jeho/elisp/muse-stuff/muse-registry.el        2005-11-24 
17:24:06.667209088 +0000
@@ -86,6 +86,7 @@
 ;;;_* Prerequisites
 
 (require 'cl)
+(require 'muse)
 (require 'planner)
 (require 'regexp-opt)
 
@@ -268,9 +269,8 @@
     (goto-char (point-min))
     (while (re-search-forward
            (concat "^(\"" from-file) nil t)
-      (goto-char (match-beginning 0))
-      (let ((kill-whole-line t))
-       (kill-line)))
+      (delete-region (muse-line-beginning-position)
+                     (muse-line-end-position)))
     (goto-char (point-min))
     (re-search-forward "^(\"" nil t)
     (goto-char (match-beginning 0))

Regards,

-- 
Jim Ottaway