From debf1bb44d336d686e76e37dedcbf8ca88bc9a12 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 27 Apr 2002 17:54:16 +0000 Subject: [PATCH] * lsdb.el (lsdb-expose-x-face): Fix the last change. --- lsdb.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) -- 1.7.10.4