Commit 35dc69c7 authored by David Byers's avatar David Byers
Browse files

Minor lug fixes

parent 9183a304
No preview for this file type
No preview for this file type
......@@ -359,7 +359,8 @@ he gets a y-or-n-p question for all recipients.")
(defvar kom-max-buffer-size nil
"*If non-nil, ensure that buffers won't grow any larger than this")
(defvar lyskom-print-complex-dates t
(defvar lyskom-print-complex-dates (and (>= emacs-minor-version 28)
(>= emacs-major-version 19))
"*If non-nil, print today and yesterday using a special format.")
(defvar kom-server-aliases
......
......@@ -323,9 +323,10 @@ recipients to it that the user is a member in."
(defun lyskom-return-date-and-time (time &optional fmt)
"Return date and time as a string. Arg: TIME."
(let* ((diff (lyskom-calculate-day-diff time)))
(let* ((diff (and lyskom-print-complex-dates
(lyskom-calculate-day-diff time))))
(lyskom-format
(if (and diff lyskom-print-complex-dates)
(if diff
(intern (concat (symbol-name diff) "-time-format-string"))
(or fmt 'time-yyyy-mm-dd-hh-mm))
(+ (time->year time) 1900)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment