From: ueno <ueno>
Date: Sat, 27 Apr 2002 17:54:16 +0000 (+0000)
Subject: * lsdb.el (lsdb-expose-x-face): Fix the last change.
X-Git-Tag: lsdb-0_2~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=debf1bb44d336d686e76e37dedcbf8ca88bc9a12;p=elisp%2Flsdb.git

* lsdb.el (lsdb-expose-x-face): Fix the last change.
---

diff --git a/lsdb.el b/lsdb.el
index 0559266..1e5a691 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -1134,17 +1134,20 @@ the user wants it."
 (defun lsdb-expose-x-face ()
   (let* ((record (get-text-property (point-min) 'lsdb-record))
 	 (x-face (cdr (assq 'x-face (cdr record))))
-	 (limit "\r"))
+	 (limit "\r")
+	 point)
     (when (and lsdb-insert-x-face-function
 	       x-face)
       (goto-char (point-min))
       (end-of-line)
+      (setq point (point))
       (if (fboundp 'propertize)
 	  (insert (propertize limit 'invisible t) " ")
 	(put-text-property 0 1 'invisible t limit)
 	(insert limit " "))
       (while x-face
-	(funcall lsdb-insert-x-face-function (pop x-face))))))
+	(funcall lsdb-insert-x-face-function (pop x-face)))
+      (put-text-property point (point) 'lsdb-record record))))
 
 (defun lsdb-insert-x-face-image (data marker)
   (static-if (featurep 'xemacs)