Emacs part12

[0001 今臭 NG NG]

今日も秀丸の起動から一日が始まります。
各種 Emacs 関連はこちらで。

Emacs part11 (前スレ)
http://pc3.2ch.net/test/read.cgi/unix/1075033822/

emacs撲滅委員会
http://pc3.2ch.net/test/read.cgi/unix/1073293910/

[0957 名無しさん＠お腹いっぱい。 NG NG]

>>956
(vertical-motion 0)
の動作が行頭へ移動に戻ったからね。
physical-line.el とやらを変更する必要があるかも。

[0958 名無しさん＠お腹いっぱい。 NG NG]

今、こんな感じで日本語キーボードの無変換キーをシフト
の替りにあてているんですけど、アルファベットしか効きません。

(if (keymapp key-translation-map)
nil
(setq key-translation-map (make-sparse-keymap)))
(let ((i ?a))
(while (<= i ?z)
(define-key key-translation-map
(vector 'muhenkan i)(vector (- i 32)))
(setq i (1+ i))))

これを数字や他の記号にも適用させる上手い方法はないですか？

[0959 名無しさん＠お腹いっぱい。 NG NG]

そういうのは Window System でやった方がいいと思うが
(let ((map (make-sparse-keymap)))
(dotimes (i (1+ (- ?z ?a)))
(define-key map (char-to-string (+ ?a i)) (char-to-string (+ ?A i))))
(dolist (pair '(("`" "~") ("1" "!") ("2" "@") ("3" "#") ("4" "$")
("5" "%") ("6" "^") ("7" "&") ("8" "*") ("9" "(")
("0" ")") ("-" "_") ("=" "+") ("[" "{") ("]" "}")
("\\" "|") (";" ":") ("'" "\"") ("," "<") ("." ">")
("/" "?")))
(define-key map (car pair) (cadr pair)))
(define-key key-translation-map [muhenkan] map))

[0960 名無しさん＠お腹いっぱい。 NG NG]

>>959

多謝です。

[0961 名無しさん＠お腹いっぱい。 NG NG]

>> 957
なるほど．physical-line.el の中身を見たところ，作者さんも
vertical-motion のバージョン間の挙動の違いに苦労されてるようでした．

; 簡単そうなら動くようにしてみようと思ったのですが，どういうアルゴリズ
; ムになっているのか分からず断念．無念です．

[0962 957 NG NG]

;;;; The vertical motion
(if (and (boundp 'running-xemacs) running-xemacs)
(defalias 'physical-line-the-vertical-motion 'vertical-motion)
(defalias 'physical-line-the-vertical-motion
'physical-line-the-vertical-motion--for-emacs21)
)

を
(defalias 'physical-line-the-vertical-motion 'vertical-motion)
だけにしたのでは、ダメなのかな？
僕は、ce-scroll.elを使っているので、試してないデス。

[0963 名無しさん＠お腹いっぱい。 NG NG]

>> 957
アドバイスありがとうございます．
それはすでに試してみたんですが，ダメでした．

教えて頂いた ce-scroll.el が良さそうだったので，これを機に乗り換えるこ
とにします．

[0964 名無しさん＠お腹いっぱい。 NG NG]

emacs の M-x shell でシェルを使ってるときに、
例えば、kterm の C-l 見たいに、
カーソルを画面の一番上に持ってくるようにするためのコマンドってあるんでしょうか。
あれば教えてください。

[0965 名無しさん＠お腹いっぱい。 NG NG]

>>964
C-u 0 C-l

[0966 名無しさん＠お腹いっぱい。 NG NG]

>>964,965
C-u 0 ESC r ではないかな。

[0967 名無しさん＠お腹いっぱい。 NG NG]

>>965
すごい！
できました！
ありがとうございました！

[0968 名無しさん＠お腹いっぱい。 NG NG]

>>966
それではできませんでした…。

[0969 966 NG NG]

ふつうのバッファのときにカーソルを左上端に持ってくる操作でした...orz

[0970 952 NG NG]

今気が付いたんだけど、lisp/Makefile じゃなくて lisp/Makefile.in への
パッチを作ればいいんだった。(`_')ﾉｼ(+_+)

[0971 名無しさん＠お腹いっぱい。 NG NG]

>>964-965
大抵のモードでは C-0 は digit-argument だから C-0 C-l で良いのでは。
ちなみにカーソル行を最下段に持ってくるのは C-- C-l。

[0972 名無しさん＠お腹いっぱい。 NG NG]

>>971
C-0 が digit-argument にならない環境もあるよ.
tty とか Windows とかそうじゃなかったっけ.

なので M-0 を推しておくね.

[0973 名無しさん＠お腹いっぱい。 NG NG]

>>971 >>972
どちらもできました。
digit-argument、初めて聞きました。
勉強になります。
ありがとうございました。

[0974 名無しさん＠お腹いっぱい。 NG NG]

xemacs21で、emacsclientは使えないのでしょうか。
server-startって関数が消滅しているようなのですが・・・

[0975 名無しさん＠お腹いっぱい。 NG NG]

gnuserv なかったけ？

[0976 名無しさん＠お腹いっぱい。 NG NG]

いけました！ありがとうございます！！！

[0977 名無しさん＠お腹いっぱい。 NG NG]

ange-ftp とかで入力するパスワードを
ペーストで入力できるようにするには
どうすればいいですか？

[0978 名無しさん＠お腹いっぱい。 NG NG]

gnu.emacs.sourcesに出てる
tpum.el --- Popup menus in text mode.
って実行してみたけど何がどう変わるのかよくわからんちん。

[0979 名無しさん＠お腹いっぱい。 NG NG]

ttp://lgarc.narod.ru/xemacs/tpum-screen.png

[0980 名無しさん＠お腹いっぱい。 NG NG]

ども。でもポップアップってキーでどうやれば出るのかなあ。

[0981 名無しさん＠お腹いっぱい。 NG NG]

おー、なんだかすごい気が。でも使いはしないなあ。

[0982 名無しさん＠お腹いっぱい。 NG NG]

XEmacs用だから動かすには直しがいりそうだな。
いらねえからどうでもいいけど