トップ «前の日記(2006-07-23 (Sun)) 最新 次の日記(2006-07-27 (Thu))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2006-07-25 (Tue) [長年日記]

current-column() と move-to-column()

良く考えると当然の挙動なのだけど、
(defun my-check ()
  (interactive)
  (setq my-check nil)
  (let ((i 28) col)
    (while (> i 0)
      (setq i (1- i))
      (setq col (current-column))
      (setq my-check (cons col my-check))
      (forward-line)
      (move-to-column col t))))
な関数を定義しておいて、
                             |
01234567890123456789012345678901234567890123456789
0あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
00あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
0000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
01234567890123456789012345678901234567890123456789
0あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
00あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
0000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
01234567890123456789012345678901234567890123456789
0あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
00あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
0000あいうえおあいうえおあいうえおあいうえおあいうえお
01234567890123456789012345678901234567890123456789
                             |          *                 
上の "|" の上で M-x my-check ってやると、一見下の "|" に到達するような気がするけど、本当は右にずれていって "*" に到達するのね。いやねぇ、mew-summary-next|previous-line() のことなんだけど、今の今までまったく違和感を感じていなかった。これ、何年の間、毎日使っていた関数かな?

書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed