;;; howm-common.el --- Wiki-like note-taking tool
-;;; Copyright (C) 2002, 2003, 2004, 2005-2019
+;;; Copyright (C) 2002, 2003, 2004, 2005-2020
;;; HIRAOKA Kazuyuki <khi@users.osdn.me>
;;;
;;; This program is free software; you can redistribute it and/or modify
(apply #'message `(,str ,@args))))
(defun howm-decode-time (&optional specified-time)
- "Decode SPECIFIED-TIME and remove DOW, DST, ZONE.
+ "Decode SPECIFIED-TIME and remove DOW, DST, ZONE, SUBSEC.
When we do something like (encode-time (decode-time)), we use this function
instead of the original `decode-time', so that we can force
current timezone rule uniformly to avoid inconsistency."
- (butlast (decode-time specified-time) 3))
+ (howm-first-n (decode-time specified-time) 6))
(defmacro howm-with-need (&rest body)
"Execute BODY where (need xxx) exits from this form if xxx is nil."
"List of arguments for last `howm-call-process'.
This variable exists only for debug. You can reproduce the last call
with the below code.
- (apply #'howm-call-process howm-call-process-last-command)")
+ (apply (function howm-call-process) howm-call-process-last-command)")
(defmacro howm-with-coding-system (coding-system &rest body)
"With CODING-SYSTEM, execute BODY.