diff --git a/calfw-org.el b/calfw-org.el index 4590f1c..2fbac23 100644 --- a/calfw-org.el +++ b/calfw-org.el @@ -487,7 +487,7 @@ TEXT1 < TEXT2. This function makes no-time items in front of timed-items." )) (defun cfw:org-read-date-command () - "Move the cursor to the specified date." + "Read a date and return it as a calendar date value." (interactive) (cfw:emacs-to-calendar (org-read-date nil 'to-time))) diff --git a/calfw.el b/calfw.el index a5c8bbf..d1c72f7 100644 --- a/calfw.el +++ b/calfw.el @@ -463,7 +463,7 @@ ones of DATE2. Otherwise is `nil'." ret)))) (defun cfw:parse-str-time (str) - "Parsese a time string of the format HH:MM to an internal format." + "Parse a time string of the format HH:MM to an internal format." (when (string-match "\\([[:digit:]]\\{2\\}\\):\\([[:digit:]]\\{2\\}\\)" str) (cfw:time (string-to-number (match-string 1 str)) (string-to-number (match-string 2 str))))) @@ -473,7 +473,7 @@ ones of DATE2. Otherwise is `nil'." (cfw:emacs-to-calendar (cfw:parsetime-emacs str))) (defun cfw:read-date-command-simple (string-date) - "Move the cursor to the specified date." + "Read a date and return it as a calendar date value." (interactive "sInput Date (YYYY/MM/DD): ") (cfw:parsetime string-date))