Changeset 422

Timestamp:

10/07/07 23:07:49 (6 years ago)

Author:

kentaro

Message:

lang/elisp/simple-hatena-mode: go-back, go-forwardで、前置引数を取るようにした。

Files:

• lang/elisp/simple-hatena-mode/simple-hatena-mode.el (modified) (2 diffs)

lang/elisp/simple-hatena-mode/simple-hatena-mode.el

@@ -38 +38 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.02"
+(defconst simple-hatena-version "0.03"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -315 +315 @@
     (error "Current major mode isn't simple-hatena-mode")))
 
-(defun simple-hatena-go-forward ()
-  "前の日付へ移動する。"
-  (interactive)
-  (simple-hatena-internal-go-for 1))
-
-(defun simple-hatena-go-back ()
-  "次の日付へ移動する。"
-  (interactive)
-  (simple-hatena-internal-go-for -1))
+(defun simple-hatena-go-forward (&optional i)
+  "前の日付へ移動する。前置引数が渡された場合は、その数だけ後の日付に移動する。"
+  (interactive "p")
+  (if (not i)
+      (simple-hatena-internal-go-for 1)
+    (simple-hatena-internal-go-for i)))
+
+(defun simple-hatena-go-back (&optional i)
+  "次の日付へ移動する。前置引数が渡された場合は、その数だけ前の日付に移動する。"
+  (interactive "p")
+  (if (not i)
+      (simple-hatena-internal-go-for -1)
+    (simple-hatena-internal-go-for (- i))))
 
 (defun simple-hatena-toggle-debug-mode ()