>>200
それはlispの考え方(キーバインド？)が身に付いてないからだな
望んだ場所には C-M-d で行く
他にも C-M-u C-M-f C-M-b を駆使すれば望んだ場所に行けるようになる

これらを覚えればC言語とかでもある程度通用するから覚えるべし
(そうすればカーソルの動きが普通の奴とはあきらかに違くなるw)

>>200
ちなみに forward-to-word って何だ？俺のEmacsにはないぞ…

>>202
misc.el

>>201
ありがとうございます
down-listやbackward-up-listって知りませんでした
なるほどー、出たり入ったりして移動って感じですね
ちょっと考え方変えてみます

forward-to-wordは漢字混じりの文章でうまく動かないので、
私はこんな感じのコマンドを使っている。戻る時は只のbackward-wordを使う。
(defun my-forward-word ()
(if (eq (char-syntax (following-char)) ?w) (forward-word 2) (forward-word))
(when (eq (char-syntax (preceding-char)) ?w) (forward-word -1)))

>>203
あー、そこにあったのか
サンクス

>>197

pymacs からnltkを使うというのはどうだろう

pymacs
最近使われてるのみないけど
まだ動くよね？

>>205
ありがとうございます！その動きです！

(setq s1 "@@@")
(setq s2 "abc")

ただこういう↑場合に "@@@" だけ無視されちゃうので、文字列の頭で無理やり止めてみました

(defun my-forward-word ()
(let ((p (point)) i)
(if (eq (char-syntax (following-char)) ?w) (forward-word 2) (forward-word))
(when (eq (char-syntax (preceding-char)) ?w)
(forward-word -1))
(when (setq i (string-match-p "[\s\t\n]\"" (buffer-substring-no-properties p (point))))
(goto-char (+ p (1+ i))))))

(defun my-backward-word ()
(let ((p (point)) (re "[\s\t\n]\""))
(backward-word)
(let* ((s (buffer-substring-no-properties (point) p)) (i (string-match-p re s)) i2)
(when i
(while (setq i2 (string-match-p re s (1+ i))) (setq i i2))
(goto-char (+ (point) (1+ i)))))))

>>207
へえ、そんなもあるですか

ID:Rw3tzfsV0

もっとくれ
吉野屋の続きってないの？

どこの誤爆だ？

Windows版GNU Emacs24.3で
(setq kill-whole-line t)
が効かないのだけどどうすればいいの？

代わりに、C-S-<BS> 使ってみる。

どうやらそれはできるようですが。。。

windows7上のgnupack版emacs24.3.1で変数kill-whole-lineが有効なことを確認
本家のバイナリは未確認（あるのかすら知らない）

別のモードで上書きされてるとかっていうオチナキがするけど、
関数kill-holw-lineは使えてるみたいだから、好きなキーに割り当てればいいだけじゃないの？

使っているのは本家のバイナリです

M-x describe-variables
kill-whole-line　やると

kill-whole-line is a variable defined in `simple.el'.
Its value is t
Original value was nil

Documentation:
If non-nil, `kill-line' with no arg at start of line kills the whole line.

You can customize this variable.

て出ます　参考になります？

その情報はまったく参考にならないから、elispまったく知らなそうだというのはわかった

想定してる状況がいまいちわからんのだけど、
emacs -Q
で起動して*scratch*バッファで
(setq kill-whole-line t)
と書いてその後ろでCtrl-x Ctrl-eして評価しても、そのバッファでkill-lineの挙動かわらないのかな

本家のバイナリは
http://ftp.gnu.org/gnu/emacs/windows/
のemacs-24.3-bin-i386.zipでいいのかな

あとで確認してみるけど、仮にダメでも
>>215の最後に書いてある解決策じゃだめなのかな

あ…ありのまま 今　起こった事を話すぜ！

emacs-24.3-bin-i386.zipを展開して
kill-whole-lineをtにしたら、普通にkill-lineの挙動が変わった

な…　何を言ってるのか　わからねーと思うが
おれも何をされたのかわからなかった…

頭がどうにかなりそうだった…

全然できません。。。なぜ

emacs腐ってるのかな

腐ってんのはemacsじゃないよ

自分か
でもまったーくできない
いったい

macで開発版の24.4.50をビルドして使ってるけど
確認してみたら変数のkill-whole-line効かなかったわ
関数はちゃんと動いてる

マジで頭が原因なのか

(setq kill-whole-line t)
した時の挙動を勘違いしてんだろ

>>224
その通りだった
俺の頭がおかしかった

>>224
それはない
そしていまだに解決できてない

>>225がsageてるから偽もんの気がしたがなw
>>226はとにかく emacs -Q で起動して(setq kill-whole-line t)だけの状態で
問題無いかだけ教える

>>227
無理でしたーなんでーだーよ！

設定ミスでもバグでもないとなると
神の意志による奇跡でお前のemacsだけが
使いにくくなってるという結論以外ありえない
いますぐemacsを削除して全て忘れろ

公式バイナリ使って emacs -Q で起動して (setq kill-whole-line t) だけの状態で
駄目ってありえないな
釣り認定する

>>227
すまん>>225は>>222だ
(setq kill-whole-line t) したときの挙動を完全に勘違いしてた

'If the variable kill-whole-line is non-nil, C-k at the very beginning of a line kills the entire line including the following newline.

行頭にいるときに行末の改行までkillするだけで行の途中だと挙動変わらないのね

>>231
え



ずっと C-S-BS　= (setq kill-whole-line t) かと、、、



みんな、ごめんなさい

setqがキーに割り当てられてるわけないだろ

>>233
C-kの挙動が(setq kill-whole-line t)で
C-S-BSと同じになるのかと思ってたんだ

だから勘違いしてんだろとあれ程言ってたのによーー
つうか、勘違い野郎は2人居たのかよ

便乗質問ですみません。
こんなコードを

(defun tes ()
(
let (
(a 0
)
(b 1
)
(c 2
)
)
)
)

一発で

(defun tes ()
(let ((a 0)
(b 1)
(c 2))))

にしてくれるコマンドってあります？

(defun pprint (form &optional output-stream)
(princ (with-temp-buffer
(cl-prettyprint form)
(buffer-string))
output-stream))

一発ぶん殴ってコーディングスタイルを更正させる

>>237
これをどうやって使うんだ？

>>239
元のコード書いたやつにメールかIRCで送りつける

common lispのreplにクォート付きで渡せば一発

すみませんが、質問です。
ローカルのMySQLにパスワードがないのですが、
SQLi[MySQL] mode を起動する時、パスワードを指定しないようにするには
どうしたら良いでしょう？

発作的なdescribe-function
からの～
ソースを閲覧10秒くらい
…してみたら
そういうログイン関数作れば？って感じだった

MySQLのコマンドを、パスワード無視するシェルスクリプトにすれば?

ごめんなさい、試し直したら、パスワードのダイアログで
何も入力せずEnterを押すだけでログインできました。
環境構築中だったので、何か別の原因でログインできなかったようです。
ご回答いただいた方、ありがとうございました。

>>237,241
ありがとうございます。一発で一行になりました。
いい感じにインデント付け直すには自前でやるしかないですかね。

>>238
相手は過去の自分なんですｗ

indent-regionとかじゃだめ？

>>236
(defun my-inside-string-or-comment-p (&optional point)
(let ((point (or point (point))))
(save-excursion
(let ((state (parse-partial-sexp (point-min) (point))))
(or (nth 3 state) (nth 4 state))))))

(defun my-pretty-lisp-code-region (start end)
(interactive "r")
(save-excursion
(save-restriction
(save-match-data
(narrow-to-region start end)
(goto-char (point-min))
;; 正規表現の "[^?\\]" は文字リテラル ?( 及び ?\( への誤一致回避のため
(while (re-search-forward "\\([^?\\](\\)[ \t\n]+" nil t)
(unless (my-inside-string-or-comment-p)
(replace-match (match-string 1))))
(goto-char (point-min))
(while (re-search-forward "[ \t\n]+\\()\\)" nil t)
(unless (or (my-inside-string-or-comment-p)
;; 直前の行末尾がコメント内であれば何もしない
(save-excursion
(forward-line -1)
(end-of-line)
(my-inside-string-or-comment-p)))
(replace-match (match-string 1))))
;; ついでにインデント
(indent-region (point-min) (point-max))))))

>>236
>>248
末尾が "(" なコメントが含まれているとその次の行をコメント行に連結してしまう不具合を修正

(defun my-inside-string-or-comment-p (&optional point)
(let ((point (or point (point))))
(save-excursion
(let ((state (parse-partial-sexp (point-min) point)))
(or (nth 3 state) (nth 4 state))))))

(defun my-pretty-lisp-code-region (start end)
(interactive "r")
(save-excursion
(save-restriction
(save-match-data
(narrow-to-region start end)
(let ((regexps '("\\([^?\\](\\)[ \t\n]+" "[ \t\n]+\\()\\)"))
re)
(while (setq re (pop regexps))
(goto-char (point-min))
(while (re-search-forward re nil t)
(unless (my-inside-string-or-comment-p (match-beginning 1))
(replace-match (match-string 1))))))
(indent-region (point-min) (point-max))))))

>>248-249
ありがとうございます！！
凄い、こんな短いコードで出来るんですね。色々と勉強になりました。

ちなみに最初のバージョンにあった直前の行のチェックはやっぱり必要ですよね。
こんな時に最後の ")" がコメントに行っちゃうので。
(defun tes ()
;; comment
)