From c4ee8ef11bc95c78c390497f1d1397ca57a96f97 Mon Sep 17 00:00:00 2001 From: USAMI Kenta Date: Sat, 6 Jan 2024 04:01:29 +0900 Subject: [PATCH] Use ash function instead of lsh --- datetime-format.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/datetime-format.el b/datetime-format.el index 0beb892..ce4797f 100644 --- a/datetime-format.el +++ b/datetime-format.el @@ -38,8 +38,6 @@ ;; (datetime-format 'atom nil :timezone "America/New_York") ;=> "2016-05-18T13:05:41-04:00" ;;; Code: -;;(require 'timezone) - (defconst datetime-format--fmt-atom '(local . "%Y-%m-%dT%H:%M:%S%:z") "ATOM date construct format (local time). @@ -153,8 +151,8 @@ See URL `https://en.wikipedia.org/wiki/List_of_tz_database_time_zones'" "Convert INT to time stamp list. See describe `current-time' function." - (let* ((low (- (lsh 1 16) 1)) (high (lsh low 16))) - (list (lsh (logand high int) -16) (logand low int) 0 0))) + (let* ((low (- (ash 1 16) 1)) (high (ash low 16))) + (list (ash (logand high int) -16) (logand low int) 0 0))) (defun datetime-format-convert-timestamp-dwim (time &optional timezone) ""