Re: caps lock key

[Keiichi Suzuki <keiichi@xxxxxxxxx>]

>>>>> meadow-users-jp の No. 3957
>>>>> Message-Id: <NN3647103AA3150637590.011021141449@xxxxxxxxxxxxxxxxxxx> で、
>>>>> "寺脇" == wakky@xxxxxxxxxxxxxxxxxxxさま曰く...

寺脇> emacs には、大文字/小文字変換のマクロがありますが、

これと...

寺脇> やはり、meadow 使いは、caps lock はつかわないんでしょうか?

これは全然繋がらないような気がしますが，どういう関連があるのでしょ
うか? ^^;;;

;; meadow -> Meadow に書き換えるときなどに便利だからある，とか。

別に emacs 使いだからと言って，わざわざ小文字で入力した後に， 
M-u するなんていう面倒なことはしないと思います。

それよりも，大文字を連続して入力するという場面が思い浮かばないの
ですが，どういう場面があるのでしょうか?

;; 昔， FORTRAN / BASIC / ASM などでは使いましたが，最近は書くこ
;; とがないからな...

先日からほしいと思っていて，書いていなかったものがあったので，こ
の機会に書いてみました。 szHareHore 何て言うのをたくさん扱う人に
はよいかも。

(defun my-capitalize-word ()
  (interactive)
  (let ((case-fold-search nil))
    (if (looking-at "\\W*[a-z]+")
	(progn
	  (capitalize-region (match-beginning 0) (match-end 0))
	  (goto-char (match-end 0)))
      (if (looking-at "\\W*[A-Z][a-z]*")
	  (goto-char (match-end 0))
	(forward-word 1)))))

;; 書いたばっかりなので，超無保証。 :p
-- 
鈴木圭一 / keiichi@xxxxxxxxx
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B