[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/27 06:19:34

Index: diary-lib.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/diary-lib.el,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -b -r1.149 -r1.150
--- diary-lib.el        27 Mar 2008 06:11:19 -0000      1.149
+++ diary-lib.el        27 Mar 2008 06:19:33 -0000      1.150
@@ -1108,24 +1108,21 @@
         (day "[0-9]+\\|\\*")
         (year "[0-9]+\\|\\*")
         (case-fold-search t)
-        ;; FIXME is this the right reason for 1 versus 2?
-        ;; Should docs of symbols say must be single character?
-        (inc (if symbol 2 1))
         marks)
     (dolist (date-form diary-date-forms)
       (if (eq (car date-form) 'backup)  ; ignore 'backup directive
           (setq date-form (cdr date-form)))
       (let* ((l (length date-form))
              (d-name-pos (- l (length (memq 'dayname date-form))))
-             (d-name-pos (if (/= l d-name-pos) (+ inc d-name-pos)))
+             (d-name-pos (if (/= l d-name-pos) (1+ d-name-pos)))
              (m-name-pos (- l (length (memq 'monthname date-form))))
-             (m-name-pos (if (/= l m-name-pos) (+ inc m-name-pos)))
+             (m-name-pos (if (/= l m-name-pos) (1+ m-name-pos)))
              (d-pos (- l (length (memq 'day date-form))))
-             (d-pos (if (/= l d-pos) (+ inc d-pos)))
+             (d-pos (if (/= l d-pos) (1+ d-pos)))
              (m-pos (- l (length (memq 'month date-form))))
-             (m-pos (if (/= l m-pos) (+ inc m-pos)))
+             (m-pos (if (/= l m-pos) (1+ m-pos)))
              (y-pos (- l (length (memq 'year date-form))))
-             (y-pos (if (/= l y-pos) (+ inc y-pos)))
+             (y-pos (if (/= l y-pos) (1+ y-pos)))
              (regexp (format "^%s\\(%s\\)"
                              (if symbol (regexp-quote symbol) "")
                              (mapconcat 'eval date-form "\\)\\("))))