(calendar-insert-indented): Doc fix. Use when rather than if.

(exit-calendar): Use mapc rather than mapcar.
(calendar-cursor-to-date): Use zerop.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2daeaf2d66221fc89887012c8154a9ae86b0e8a..2845beacdef021e1b2e83c9567732ea20c4af2b8 100644 (file)
--- 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 9096d0988e1fa47bbd35dea91ee2728ec4e33373..ee1463cc4d3e7db01299a96147d32225f41027d0 100644 (file)
--- 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]")