From d7a8b6636a394af210fbc48d128437a4ba61fe1a Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 25 Jul 2012 09:20:43 -0600 Subject: [PATCH] replacing cl concatenate with concat * lisp/org-clock.el (org-clock-special-range): Replacing cl concatenate with concat. (org-clocktable-shift): Replacing cl concatenate with concat. --- lisp/org-clock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 9745fda8f..40e1556b4 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2031,7 +2031,7 @@ the returned times will be formatted strings." ((memq key '(year thisyear)) (setq txt (format-time-string "the year %Y" ts))) ((memq key '(quarter thisq)) - (setq txt (concatenate 'string (org-count-quarter shiftedq) " quarter of " (number-to-string shiftedy)))) + (setq txt (concat 'string (org-count-quarter shiftedq) " quarter of " (number-to-string shiftedy)))) ) (if as-strings (list (format-time-string fm ts) (format-time-string fm te) txt) @@ -2109,7 +2109,7 @@ the currently selected interval size." (setq date (calendar-gregorian-from-absolute (calendar-absolute-from-iso (org-quarter-to-date (+ mw n) y)))) (setq ins (format-time-string - (concatenate 'string (number-to-string y) "-Q" (number-to-string (+ mw n))) + (concat 'string (number-to-string y) "-Q" (number-to-string (+ mw n))) (encode-time 0 0 0 (nth 1 date) (car date) (nth 2 date))))) (mw (setq ins (format-time-string