ブロック単位*1で何かする

　最近マークするのがだるいので、ブロック単位で色々やりたいなぁとか思っていたので、まず汎用のブロックを探す奴を先にに作ってみた。*1

;取り合えずブロック単位をfrom toに入れる
(defun current-block()
  (interactive)
  (save-excursion
	(let (from to)
	  (if (setq from (progn (re-search-backward "^[ \t　]*$")(point)))
		  (next-line))
	  ;ここでnext-lineしないとre-search-backwardで
	  ;見つけたのを再度見つけてしまって動かない
	  (re-search-forward "^[ \t　]*$")
	  (setq to (point))
	  )))

;マークしてリージョンの範囲と取り替えるのもためし。
(defun region-current-block()
  (interactive)
  (let (from to)
	(if (setq from (progn (re-search-backward "^[ \t　]*$")(set-mark)))
		(next-line))
	(re-search-forward "^[ \t　]*$")
	(setq to (point))))

書いた後で気づいたけど、二個目の奴ってmark-paragraphに（￣ー+￣）ｿｯｸﾘｼﾞｬﾈ？*2

*1:と言うか前に作った奴の一機能を抜き出しただけだけど。

*2:どうせいつものことですよ、ええ気になどしているわけがないですね。orz=3