[Emacs-diffs] Changes to emacs/lisp/textmodes/Attic/org.el, v [EMACS_22_BASE]

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Carsten Dominik <cdominik>      08/05/05 15:09:51

Index: org.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/Attic/org.el,v
retrieving revision 1.135.2.5
retrieving revision 1.135.2.6
diff -u -b -r1.135.2.5 -r1.135.2.6
--- org.el      8 Apr 2008 07:44:50 -0000       1.135.2.5
+++ org.el      5 May 2008 15:09:49 -0000       1.135.2.6
@@ -18060,13 +18060,15 @@
 N          is the number of WHATs to shift.
 DEF-FLAG   is t when a double ++ or -- indicates shift relative to
            the DEFAULT date rather than TODAY."
-  (when (string-match
+  (when (and
+        (string-match
         (concat
-         "\\`[ \t]*\\([-+]\\{1,2\\}\\)"
+          "\\`[ \t]*\\([-+]\\{0,2\\}\\)"
          "\\([0-9]+\\)?"
          "\\([dwmy]\\|\\(" (mapconcat 'car parse-time-weekdays "\\|") "\\)\\)?"
          "\\([ \t]\\|$\\)") s)
-    (let* ((dir (if (match-end 1)
+        (or (> (match-end 1) (match-beginning 1)) (match-end 4)))
+    (let* ((dir (if (> (match-end 1) (match-beginning 1))
                    (string-to-char (substring (match-string 1 s) -1))
                  ?+))
           (rel (and (match-end 1) (= 2 (- (match-end 1) (match-beginning 1)))))