X-Git-Url: http://git.osdn.net/view?p=howm%2Fhowm.git;a=blobdiff_plain;f=howm-common.el;h=7019500b38f7ac149c85560997ad021157e2e6c1;hp=09051c1b3a5b6d79dc9c2cb8e62b5e8c986ec65e;hb=7c2b894772035abdbdfd8e45bedb7d52b25f68a5;hpb=364c5be487539b16f4e879b95e27964580c59d36 diff --git a/howm-common.el b/howm-common.el index 09051c1..7019500 100644 --- a/howm-common.el +++ b/howm-common.el @@ -1,7 +1,6 @@ ;;; howm-common.el --- Wiki-like note-taking tool -;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2015, 2016 -;;; HIRAOKA Kazuyuki -;;; $Id: howm-common.el,v 1.90 2012-12-29 08:57:18 hira Exp $ +;;; Copyright (C) 2002, 2003, 2004, 2005-2020 +;;; HIRAOKA Kazuyuki ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -385,11 +384,11 @@ returns ((\"a\" \"aaa\" \"abc\") (\"x\" \"xyz\"))." (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." @@ -437,7 +436,7 @@ Use `howm-view-in-background' and `howm-view-in-background-p' instead.") "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.