* liece-commands.el (liece-command-tag-region): Simplify.

* liece-misc.el (liece-remove-properties-region): Abolish.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4b5ae9..8eada22 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-22  Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-commands.el (liece-command-tag-region): Simplify.
+       * liece-misc.el (liece-remove-properties-region): Abolish.
+
 2003-05-18  OHASHI Akira  <bg66@koka-in.org>
 
        * liece.el (liece-dialogue-mode-map): Don't bind

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 2d18848..9cd576d 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -1130,17 +1130,7 @@ Argument ARG is prefix argument of toggle status."
    (if (liece-region-active-p)
        (list (region-beginning)(region-end))
      (list (line-beginning-position)(line-end-position))))
-  (static-if (fboundp 'extent-property)
-      (kill-ring-save start end)
-    (let ((start (set-marker (make-marker) start))
-         (end (set-marker (make-marker) end))
-         (inhibit-read-only t)
-         buffer-read-only
-         buffer-undo-list)
-      (liece-remove-properties-region start end)
-      (kill-ring-save start end)
-      (push nil buffer-undo-list)
-      (undo))))
+  (kill-new (buffer-substring-no-properties start end)))
 
 (provide 'liece-commands)
 

diff --git a/lisp/liece-misc.el b/lisp/liece-misc.el
index 8491d11..fcf7006 100644 (file)
--- a/lisp/liece-misc.el
+++ b/lisp/liece-misc.el
@@ -491,20 +491,6 @@ If optional argument TIME is nil, calculate timestamp using current time."
        (or (>= ,limit 0)
           (and (< diff ,limit) (> diff (- 0 ,limit)))))))
 
-(defmacro liece-remove-properties-region (start end)
-  (unless (fboundp 'make-extent)
-    `(save-excursion
-       (save-restriction
-        (narrow-to-region ,start ,end)
-        (goto-char (point-min))
-        (let (start)
-          (while (setq start (next-single-property-change
-                              (point) 'invisible))
-            (when (invisible-p start)
-              (delete-region start (next-visible-point start))
-              (goto-char start))
-            (remove-text-properties (point-min)(point-max) '(face))))))))
-
 (provide 'liece-misc)
 
 ;;; liece-misc.el ends here