diff options
| -rw-r--r-- | grid-engine-mode.el | 6 |
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." |