>>>>> Bastien Guerry <[EMAIL PROTECTED]> 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
_______________________________________________
emacs-wiki-discuss mailing list
emacs-wiki-discuss@nongnu.org
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
