From 44a57256679bc429b8f6fdfa20d69eedad739e61 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 24 Oct 2014 16:48:10 +0200 Subject: use propertize instead of put-text-property --- grid-engine-mode.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/grid-engine-mode.el b/grid-engine-mode.el index 8831ede..3318671 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -84,16 +84,14 @@ (format-string (if format-string format-string "%s")) (text (format format-string value))) - (put-text-property 0 (length text) 'field value text) - text)) + (propertize text 'field value))) (defun format-job-record (job) (let* ((args (cons row-fmt (mapcar (lambda (key) (field-as-text key job)) column-order))) (text (apply 'format args))) - (put-text-property 0 (length text) 'grid-engine-job job text) - text)) + (propertize text 'grid-engine-job job))) (defun mkjob-alist (subtree) "Convert a parsed XML subtree for a job entry to an alist." -- cgit v1.2.3