From 3d1861183d68f4aa3b6b9d55604692174aa860d0 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 8 Mar 2008 03:57:36 +0000
Subject: [PATCH] (calendar-insert-indented): Doc fix.  Use when rather than
 if. (exit-calendar): Use mapc rather than mapcar. (calendar-cursor-to-date):
 Use zerop.

---
 lisp/ChangeLog            |  4 ++++
 lisp/calendar/calendar.el | 25 ++++++++++++-------------
 2 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2daeaf2d66..2845beacdef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -39,6 +39,9 @@
 	Move to diary-lib.
 	(all-christian-calendar-holidays, all-islamic-calendar-holidays)
 	(all-bahai-calendar-holidays): Doc fix.
+	(calendar-insert-indented): Doc fix.  Use when rather than if.
+	(exit-calendar): Use mapc rather than mapcar.
+	(calendar-cursor-to-date): Use zerop.
 	(calendar-mark-ring): Add doc-string.
 	(calendar-starred-day): Defvar it.
 	(calendar-mode): Make calendar-starred-day local.
@@ -52,6 +55,7 @@
 	(mark-diary-entries-hook, nongregorian-diary-listing-hook)
 	(nongregorian-diary-marking-hook, print-diary-entries-hook):
 	Move here from calendar.el.
+	(diary-file-name-prefix-function): Use 'identity.
 	(diary-face): Make it a defcustom, and mark as obsolete.
 	(top-level): No need to require cal-hebrew, cal-islam when
 	compiling.
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 9096d0988e1..ee1463cc4d3 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1592,7 +1592,7 @@ line."
   "Insert STRING at column INDENT.
 If the optional parameter NEWLINE is t, leave point at start of next line,
 inserting a newline if there was no next line; otherwise, leave point after
-the inserted text.  Value is always t."
+the inserted text.  Returns t."
   ;; Try to move to that column.
   (move-to-column indent)
   ;; If line is too short, indent out to that column.
@@ -1600,12 +1600,11 @@ the inserted text.  Value is always t."
       (indent-to indent))
   (insert string)
   ;; Advance to next line, if requested.
-  (if newline
-      (progn
-	(end-of-line)
-	(if (eobp)
-            (newline)
-	  (forward-line 1))))
+  (when newline
+    (end-of-line)
+    (if (eobp)
+        (newline)
+      (forward-line 1)))
   t)
 
 (defun redraw-calendar ()
@@ -1955,10 +1954,10 @@ the STRINGS are just concatenated and the result truncated."
             (not (buffer-modified-p diary-buffer))
             (yes-or-no-p
              "Diary modified; do you really want to exit the calendar? "))
-      ;; Need to do this multiple times because one time can replace some
-      ;; calendar-related buffers with other calendar-related buffers
-      (mapcar (lambda (x)
-                (mapcar 'calendar-hide-window (calendar-window-list)))
+        ;; Need to do this multiple times because one time can replace some
+        ;; calendar-related buffers with other calendar-related buffers
+        (mapc (lambda (x)
+                (mapc 'calendar-hide-window (calendar-window-list)))
               (calendar-window-list)))))
 
 (defun calendar-hide-window (window)
@@ -1991,10 +1990,10 @@ If cursor is not on a specific date, signals an error if optional parameter
 ERROR is t, otherwise just returns nil."
   (let* ((segment (/ (current-column) 25))
          (month (% (+ displayed-month segment -1) 12))
-         (month (if (= 0 month) 12 month))
+         (month (if (zerop month) 12 month))
          (year
           (cond
-           ((and (=  12 month) (= segment 0)) (1- displayed-year))
+           ((and (=  12 month) (zerop segment)) (1- displayed-year))
            ((and (=   1 month) (= segment 2)) (1+ displayed-year))
            (t displayed-year))))
     (if (and (looking-at "[ 0-9]?[0-9][^0-9]")
-- 
2.11.4.GIT