branch: externals/excorporate
commit 18e4eadb02cf9d5aabb791c2c43c9a8187febe32
Author: Thomas Fitzsimmons <fitz...@fitzsim.org>
Commit: Thomas Fitzsimmons <fitz...@fitzsim.org>

    excorporate-time-zones.el: Silence compiler warnings
    
    * excorporate-time-zones.el: Shorten description and fix
    lexical-binding directive typo.
    (exco--time-zone-olson-to-server): Shorten docstring.
    (exco--time-zone-emacs-to-olson): Fix and shorten docstring.
---
 NEWS                      |  2 ++
 README                    |  2 ++
 excorporate-time-zones.el | 18 +++++++++---------
 3 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/NEWS b/NEWS
index 13f3a5a617..c1a3ffe09a 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 GNU Emacs Excorporate NEWS -- history of user-visible changes.
 
+** Eliminate excorporate-time-zones.el compiler warnings
+
 ** Improve quick start documentation
 
 ** Eliminate a warning issued by newer versions of Org Mode
diff --git a/README b/README
index 0cefba2075..6a0920cb99 100644
--- a/README
+++ b/README
@@ -3,6 +3,8 @@ Excorporate provides Exchange integration for Emacs.
 Most Recent Improvements
 ------------------------
 
+** Eliminate excorporate-time-zones.el compiler warnings
+
 ** Improve quick start documentation
 
 ** Eliminate a warning issued by newer versions of Org Mode
diff --git a/excorporate-time-zones.el b/excorporate-time-zones.el
index 7a3c8b526b..89390de4a5 100644
--- a/excorporate-time-zones.el
+++ b/excorporate-time-zones.el
@@ -1,4 +1,4 @@
-;;; excorporate-time-zones.el --- time zone conversion *- lexical-binding: t 
-*-
+;;; excorporate-time-zones.el --- IANA time zones -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2021 Free Software Foundation, Inc.
 
@@ -20,8 +20,9 @@
 
 ;;; Commentary:
 
-;; Hash tables and functions that map (current-time-zone) values to
-;; time zone names recognized by Exchange servers.
+;; Hash tables and functions that map `current-time-zone' values to
+;; IANA (sometimes referred to as Olson) time zone names recognized by
+;; Exchange servers.
 
 ;; For example:
 ;; (current-time-zone) => (-14400 "EDT")
@@ -55,7 +56,7 @@
 ;;                (dolist (name names)
 ;;                  (puthash name zone table)))))
 ;;          (format "%S" table)))
-;;      " \"A hash table mapping IANA/Olson time zone"
+;;      " \"A hash table mapping IANA time zone"
 ;;      " names to server time zone names.\")"))
 
 (defvar exco--time-zone-olson-to-server
@@ -524,7 +525,7 @@
       "Pacific/Apia"                   "Samoa Standard Time"
       "Pacific/Kiritimati"             "Line Islands Standard Time"
       "Etc/GMT-14"                     "Line Islands Standard Time"))
-  "A hash table mapping IANA/Olson time zone names to server time zone names.")
+  "A hash table mapping IANA time zone names to server time zone names.")
 
 ;; Generated with:
 ;;(defun zdump-line-to-current-time-zone-value ()
@@ -581,8 +582,8 @@
 ;;               (puthash key (cons value values) table))
 ;;           (puthash key (list value) table))))))
 ;;    (format "%S" table))
-;;  "(concat \"A hash table mapping `current-time-zone' values to\"
-;;       \" IANA/Olson time zone names.\")"))
+;;  " \"A hash table mapping `current-time-zone' values to"
+;;  " IANA time zone names.\")"))
 
 ;; `exco-time-zone' only uses one of these, but I thought knowing this
 ;; mapping might be generally useful.
@@ -832,8 +833,7 @@
       (+46800 "NZDT")  ("Pacific/Auckland")
       (+49500 "+1345") ("Pacific/Chatham")
       (+50400 "+14")   ("Etc/GMT-14" "Pacific/Kiritimati" "Pacific/Apia")))
-  (concat "A hash table mapping `current-time-zone' values to"
-         " IANA/Olson time zone names."))
+  "A hash table mapping `current-time-zone' values to IANA time zone names.")
 
 (defcustom excorporate-time-zone nil
   "The server-style time zone.

Reply via email to