diff options
| -rw-r--r-- | lisp/calendar/cal-tex.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el index 265bcd64cec..2976f66eb21 100644 --- a/lisp/calendar/cal-tex.el +++ b/lisp/calendar/cal-tex.el @@ -1444,9 +1444,9 @@ Use double backslash as a separator unless optional SEPARATOR is given." (while p (and (car (car p)) (calendar-date-equal date (car (car p))) - (setq result (append result (cdr (car p))))) + (setq result (cons (car (cdr (car p))) result))) (setq p (cdr p))) - result) + (reverse result)) (if separator separator "\\\\"))) (defun cal-tex-previous-month (date) |