use propertize instead of put-text-property

1 files 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."