Show
Ignore:
Timestamp:
10/07/07 23:07:49 (7 years ago)
Author:
kentaro
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/simple-hatena-mode/simple-hatena-mode.el

    r415 r422  
    3838;;;; * ヴァージョン 
    3939 
    40 (defconst simple-hatena-version "0.02" 
     40(defconst simple-hatena-version "0.03" 
    4141  "simple-hatena-mode.elのヴァージョン。") 
    4242 
     
    315315    (error "Current major mode isn't simple-hatena-mode"))) 
    316316 
    317 (defun simple-hatena-go-forward () 
    318   "前の日付へ移動する。" 
    319   (interactive) 
    320   (simple-hatena-internal-go-for 1)) 
    321  
    322 (defun simple-hatena-go-back () 
    323   "次の日付へ移動する。" 
    324   (interactive) 
    325   (simple-hatena-internal-go-for -1)) 
     317(defun simple-hatena-go-forward (&optional i) 
     318  "前の日付へ移動する。前置引数が渡された場合は、その数だけ後の日付に移動する。" 
     319  (interactive "p") 
     320  (if (not i) 
     321      (simple-hatena-internal-go-for 1) 
     322    (simple-hatena-internal-go-for i))) 
     323 
     324(defun simple-hatena-go-back (&optional i) 
     325  "次の日付へ移動する。前置引数が渡された場合は、その数だけ前の日付に移動する。" 
     326  (interactive "p") 
     327  (if (not i) 
     328      (simple-hatena-internal-go-for -1) 
     329    (simple-hatena-internal-go-for (- i)))) 
    326330 
    327331(defun simple-hatena-toggle-debug-mode ()