gistfile1.cl

;; monday.l の置換ルールを適当に追加できるようにした。

--- monday.l.orig       Thu Jun  3 11:00:49 2010
+++ monday.l       Thu Jun  3 11:04:16 2010
@@ -147,6 +147,16 @@
     ("november"  . "december")
     ("december"  . "january")))

+(defvar *monday-alist-list*
+  (list *monday-bool-alist*
+        *monday-bool2-alist*
+        *monday-bool3-alist*
+        *monday-c++-alist*
+        *monday-sw-alist*
+        *monday-week-alist*
+        *monday-week2-alist*
+        *monday-month-alist*))
+
 (defun monday-increase () (interactive) (monday-inc  ))
 (defun monday-decrease () (interactive) (monday-inc t))

@@ -155,14 +165,9 @@
   (multiple-value-bind (bool str)
       (monday-current-string-or-number)
     (if (and bool str) (monday-numeric-inc str dec)
-      (or (monday-toggle str *monday-bool-alist* dec)
-          (monday-toggle str *monday-bool2-alist* dec)
-          (monday-toggle str *monday-bool3-alist* dec)
-          (monday-toggle str *monday-c++-alist* dec)
-          (monday-toggle str *monday-sw-alist* dec)
-          (monday-toggle str *monday-week-alist* dec)
-          (monday-toggle str *monday-week2-alist* dec)
-          (monday-toggle str *monday-month-alist* dec)))))
+      (dolist (alist *monday-alist-list*)
+        (when (monday-toggle str alist dec)
+          (return t))))))

 (defun monday-toggle (str alist &optional (dec nil))
   (let* ((beg (region-beginning))