Fix interactive order

kiwanami · Feb 6, 2015 · 472e19c · 472e19c
1 parent 2904a0b
commit 472e19c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/calfw-cal.el b/calfw-cal.el
@@ -134,8 +134,8 @@ from the diary schedule data."
 
 (defun cfw:open-diary-calendar ()
   "Open the diary schedule calendar in the new buffer."
+  (interactive)
   (save-excursion
-    (interactive)
     (let* ((source1 (cfw:cal-create-source))
            (cp (cfw:create-calendar-component-buffer
                 :view 'month

diff --git a/calfw.el b/calfw.el
@@ -2741,8 +2741,8 @@ this function returns nil."
 DATE is initial focus date. If it is nil, today is selected
 initially.  This function uses the function
 `cfw:create-calendar-component-buffer' internally."
+  (interactive)
   (save-excursion
-    (interactive)
     (let ((cp (cfw:create-calendar-component-buffer
                :date date :buffer buffer :custom-map custom-map
                :contents-sources contents-sources