From: ueno <ueno>
Date: Thu, 22 May 2003 20:21:04 +0000 (+0000)
Subject: * liece-commands.el (liece-command-tag-region): Simplify.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=accfd82bbf9d5a70f208b9c0af8b0b1e541c0575;p=elisp%2Fliece.git

* 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
--- 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
--- 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
--- 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