From 3458b4fdfffc1b4f542405325ffa8b6eed0eb1df Mon Sep 17 00:00:00 2001 From: Nicholas D Steeves Date: Mon, 3 Jul 2017 20:44:19 -0400 Subject: New upstream version 9.0.9+dfsg --- contrib/lisp/ox-groff.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'contrib/lisp/ox-groff.el') diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index c83d44d..555a89d 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -1,6 +1,6 @@ ;;; ox-groff.el --- Groff Back-End for Org Export Engine -;; Copyright (C) 2011-2016 Free Software Foundation, Inc. +;; Copyright (C) 2011-2017 Free Software Foundation, Inc. ;; Author: Nicolas Goaziou ;; Author: Luis R Anaya @@ -823,9 +823,7 @@ information." (concat (format "\\fB%s\\fP " org-clock-string) (format org-groff-inactive-timestamp-format - (concat (org-translate-time - (org-element-property :raw-value - (org-element-property :value clock))) + (concat (org-timestamp-translate (org-element-property :value clock)) (let ((time (org-element-property :duration clock))) (and time (format " (%s)" time))))))) @@ -1409,22 +1407,19 @@ information." (concat (format "\\fR %s \\fP" org-closed-string) (format org-groff-inactive-timestamp-format - (org-translate-time - (org-element-property :raw-value closed)))))) + (org-timestamp-translate closed))))) (let ((deadline (org-element-property :deadline planning))) (when deadline (concat (format "\\fB %s \\fP" org-deadline-string) (format org-groff-active-timestamp-format - (org-translate-time - (org-element-property :raw-value deadline)))))) + (org-timestamp-translate deadline))))) (let ((scheduled (org-element-property :scheduled planning))) (when scheduled (concat (format "\\fR %s \\fP" org-scheduled-string) (format org-groff-active-timestamp-format - (org-translate-time - (org-element-property :raw-value scheduled)))))))) + (org-timestamp-translate scheduled))))))) "") "")) -- cgit v1.2.3