Emacs Part 49

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2015/12/11(金) 17:55:35.35 .net] 前スレが落ちていたみたいなので。 GNU Emacs - GNU Project - Free Software Foundation (FSF) https://www.gnu.org/software/emacs/ EmacsWiki: サイトマップ www.emacswiki.org/emacs/ 前スレ Emacs Part 48 peace.2ch.net/test/read.cgi/unix/1429172451/ 281 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/29(月) 07:02:41.89 .net] >>274 C-u M-| 入力したコマンドの出力結果でリージョンが置換される 282 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/29(月) 07:11:05.90 .net] >>277 肝心なこと書き忘れた リージョンがコマンドの標準入力になります なので grep コマンドに入力ファイル名を渡す必要はなし ファイル全体を grep にかけたければ C-x h 等でバッファ全体を選択してから C-u M-| grep … とすればok 283 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/29(月) 12:17:36.21 .net] multi-cursorを使い始めたら置換とかキーボードマクロとかほとんど使わなくなった 正規表現を駆使して置換する必要が無くなる 284 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/29(月) 14:23:43.98 .net] 正確にはmultiple-cursorsだった とりあえず置換・キーボードマクロ・矩形編集をこれ一つでまかなえる 今まで一生懸命それらを使ってたのが何だったんだってぐらいの革命といえる 285 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/29(月) 22:08:37.52 .net] >>278 ありがとうございます！ こんなの求めてました！ 286 名前：名無しさん＠お腹いっぱい。 [2016/03/02(水) 20:18:42.94 .net] 本当に病気で更新途絶えたな 287 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/03(木) 07:02:42.62 .net] >>280 カーソル分身って何か混乱しそうな気がして使ってなかったけど便利ですね。 cua-modeの出番が連番付ける時くらいになってしまった。 288 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/03(木) 13:31:08.17 .net] multiple-cursorsを使うと、もうemacs以外使えなくなる 289 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/03(木) 13:32:58.87 .net] それで検索するとvim pluginというのも引っかかるね 290 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/03(木) 19:37:12.19 .net] というかsublimeだろ、もともと 291 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/03(木) 22:50:56.28 .net] 新しめの拡張はどっかの移植のバターンが多いイメージ 292 名前：名無しさん＠お腹いっぱい。 [2016/03/03(木) 23:19:54.89 .net] vimの方のマルチカーソルは速度遅いからvimの中では別の方法取るよ originは上にもあるとおりsublime 293 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/04(金) 02:23:23.95 .net] 俺も入れてみたけど mc いいな 294 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/04(金) 04:17:37.56 .net] mc/region-strings が期待してたものと違ったのでこんなの作ってみました (defun my-mc/all-region-strings () (let* (strings (cursors (mc/all-fake-cursors)) (tmp-list (and cursors (let ((lst (list (list (mark) (buffer-substring-no-properties (point) (mark)))))) (mapc #'(lambda (x) (let* ((beg (mc/cursor-beg x)) (end (mc/cursor-end x)) (str (buffer-substring-no-properties beg end))) (setq lst (append lst (list (list end str)))))) cursors) lst)))) (when tmp-list (setq tmp-list (sort tmp-list #'(lambda (a b) (< (car a) (car b))))) (mapc #'(lambda (x) (setq strings (append strings (list (car (cdr x)))))) tmp-list)) strings)) 295 名前：名無しさん＠お腹いっぱい。 [2016/03/04(金) 11:52:26.63 .net] grep結果を見やすくするため、org-modeとmarkdownのリンクを消すコードを作りました。 grepに引き続いて自動実行させたいのですが、hookの方法を教えていただけませんか。 296 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/04(金) 12:23:51.59 .net] マルチすんなよ 297 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/04(金) 16:42:30.35 .net] multiple-cursorsを使う場合は↓これを使うと便利になる (define-key isearch-mode-map [(control ? )] (lambda () (interact 298 名前：ive) (push-mark isearch-other-end t 'activate) (isearch-exit))) isearchで検索してハイライトさせた後C-スペースでリージョンに変更できる そんでmcする [] [ここ壊れてます] 299 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 00:32:23.25 .net] >>293 mcする時はC-SPCも省略したいです 300 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 15:11:01.67 .net] >>294 >>293のはmc専用って訳じゃないからこれはこれで残しておいて↓を別途追加した isearch中にC-<で一気にmcに移行出来てスゲー便利だった (define-key isearch-mode-map [(control <)] (lambda () (interactive) (push-mark isearch-other-end t 'activate) (isearch-exit) (setq this-original-command 'ignore) (mc/mark-all-like-this))) this-original-commandを設定してるのは、mcが直前のコマンドを厳密にチェックしてて そのまま実行すると妙なエラーになるから、回避するイディオムみたいなもんだな 最初だけignoreを登録するか聞かれるけどyで登録しておけば2回目からはスッと実行できる 301 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 15:20:56.32 .net] みんな知ってるかもしれないけど一応mcの便利技 mc中にC-v,M-vでカーソル間を移動出来てC-'をすればカーソル以外の行を非表示に出来る C-v,M-vはリング状にぐるぐる回り続けて気持ち悪いから (setq mc/cycle-looping-behaviour 'error)をしてる これしておけば上端と下端でカツっと止まる 302 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 15:28:15.18 .net] 連投スマンが>>290はどういう事だ？解説してくれ 303 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 16:26:01.81 .net] 連投スマン…これでおしまいにする >>295よりは↓の方が直感的で使いやすかったんで別バリエーションとして追加させてくれ (define-key isearch-mode-map [(control >)] (lambda () (interactive) (push-mark isearch-other-end t 'activate) (isearch-exit) (setq this-original-command 'ignore) (mc/mark-next-like-this 1))) 304 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/05(土) 17:03:50.57 .net] >>297 例えばこれを二行目からmcした時に mc-0 mc-a mc-a mc-1 mc-b mc-c mc-2 mc-e mc-f mc/region-strings はこういうリストを返すけど ("mc-f" "mc-e" "mc-2" "mc-c" "mc-b" "mc-0" "mc-a" "mc-1") >>290のは見た目の順で重複もそのまま返すってだけです ("mc-0" "mc-a" "mc-a" "mc-1" "mc-b" "mc-c" "mc-2" "mc-e" "mc-f") 305 名前：名無しさん＠お腹いっぱい。 [2016/03/05(土) 18:07:06.05 .net] >>299 なるほど、返答どうも！ んで、そうなると何か良いことあるの？ mcの内部に詳しいわけでもないんでよく分からん… 306 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 01:09:01.39 .net] color-moccur とか helm-swoop とか >>276 どっちがいいのかな ^^; 307 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 01:28:45.87 .net] >>301 helm 使ってれば helm-swoop でいいだろうし 使ってなければ color-moccur でいいんじゃない 308 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 02:25:14.65 .net] >>300 １行毎に１個のリージョン群なら cua-mode や rectangle-mark-mode から そのまま使えるとか 309 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 03:33:56.90 .net] >>296 phi-searchのぐるぐるも止められます？ せめてisearchみたいに分かりやすく「もうねえよ！」と言ってほしい。 310 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 08:12:50.70 .net] israrchがchar-foldingだのwordだのregexだのパズル過ぎる モード切り替え間違えるとサーチ終了しちゃうし 311 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 11:57:48.33 .net] ace-jumpで飛ぶときにIME無効にするにはどうしたらいいですか。飛ぼうとすると日本語が入力されてすごくストレスです ^^; 312 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 13:54:25.54 .net] ace-jump使ってないから分からんけど (add-hook 'ace-jump-hook 'deactivate-input-method) みたいになんかのhookに登録すればいいんじゃないの？ 313 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/06(日) 15:42:24.45 .net] >>307 やってみます。ありがとう(_ _) 314 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/08(火) 15:17:04.44 .net] 久しぶりにここにきました。以前はお世話になりました。 今はemacsを文章を書く程度にしか使っていません。 あれから進歩がなく、逆に忘れてしまっていることが多くて 大変だなとおもっています。 以前webarchiveを使ってリンクが切れているものは読むなど 教えていただきました。では 315 名前：名無しさん＠お腹いっぱい。 [2016/03/08(火) 18:06:21.01 .net] おう、また明日な 316 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/09(水) 01:51:23.68 .net] いいってことよ 317 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/09(水) 15:55:38.76 .net] >>304 (defun phi-search--more-matches-p (&optional prev) (if phi-search--selection (let* ((ovs (copy-sequence phi-search--overlays)) (p (overlay-start (nth phi-search--selection ovs))) lst) (setq ovs (sort ovs #'(lambda (a b) (< (overlay-start a) (overlay-start b))))) (mapc #'(lambda (x) (setq lst (append lst (list (overlay-start x))))) ovs) (if prev (> p (nth 0 lst)) (< p (nth (1- (length ovs)) lst)))))) (defun ad-around--phi-search-again-or-next (f) (if (phi-search--more-matches-p) (funcall f))) (advice-add 'phi-search-again-or-next :around #'ad-around--phi-search-again-or-next) (defun ad-around--phi-search-again-or-previous (f) (if (phi-search--more-matches-p t) (funcall f))) (advice-add 'phi-search-again-or-previous :around #'ad-around--phi-search-again-or-previous) 318 名前：名無しさん＠お腹いっぱい。 [2016/03/09(水) 21:01:22.45 .net] use-packageでgrep-edit.elを自動インストールできるようにしたいんだけど melpaにgrep-edit.el無いorz こういう時はどうすればいいんすか 319 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/09(水) 21:41:54.77 .net] >>313 MELPAにあるwgrepじゃ駄目なのか？ 320 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/09(水) 21:48:57.13 .net] wgrepで大満足でした。 ありがとうございました。 321 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/09(水) 22:15:07.66 .net] melpaを更新日時順、ダウンロード順でソートしてニヤニヤしてる奴いる？ 322 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/10(木) 02:08:26.75 .net] ag と ag-dired に出会ってから grep とか find-dired はいらなくなった 323 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/10(木) 11:21:20.07 .net] occur-by-moccurすると，カーソル上のいち文が検索ボックスに入ってしまうのですが，どうしたら止められますか？ 324 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/10(木) 15:08:10.55 .net] emacsを立ち上げようとするとエラーがでます。 どうすればいいでしょうか？ error in process filter: Could not create connection to www.emacswiki.org:\ 443 325 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/10(木) 16:43:54.28 .net] -Qを与えて起動する 326 名前：319 mailto:sage [2016/03/10(木) 17:26:28.17 .net] >>320 次のものが赤字で出ただけです ;; This buffer is for notes you don't want to save, and for Lisp evaluatio\ n. ;; If you want to create a file, visit that file with C-x C-f, ;; then enter the text in that file's own buffer. 327 名前：319 mailto:sage [2016/03/10(木) 17:44:07.25 .net] >>320 教えてくれたことについてわかりました。 -Qを与えて起動してその画面からinit.elを開いて書き直せと いうことなのだと理解しました。 その書き直しについてなのですが d.hatena.ne.jp/shammer/20160212/p1 に書いているように (auto-install-update-emacswiki-package-name t) をコメントにしてしまってコードじゃないから働かなくしてしまえ、 というふうにすると、（;;と先頭につけると）エラーがでなくなりました。 こういう風にしてコメントアウトしてしまって何の問題もないのでしょうか？ どうしてこういうエラーがでるようになったのでしょうか？ なんども申しわけありません。できれば教えてください 328 名前：319 mailto:sage [2016/03/10(木) 18:07:03.88 .net] (auto-install-update-emacswiki-package-name t) のところを ;;(auto-install-update-emacswiki-package-name t) としたあとに;;を削除をしたのですが、これだけでなぜだかエラーが でなくなりました。 なぜかわかりませんが、解決しました。ありがとうございます 👀 Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f) 329 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/10(木) 18:14:24.89 .net] なんどもすみません。 整理します。 d.hatena.ne.jp/shammer/20160216/p1 をすると解決しました。というのはbrew unlink openssl とすることで再びエラーが出てきたからです。 他方で、その後にbrew doctorをしたところ Warning: Some keg-only formula are linked into the Cellar. Linking a keg-only formula, such as gettext, into the cellar with `brew link <formula>` will cause other formulae to detect them during the `./configure` step. This may cause problems when compiling those other formulae. Binaries provided by keg-only formulae may override system binaries with other strange results. You may wish to `brew unlink` these brews: openssl というのがでてきました。brew unlink opensslをするとemacsのほうで エラーがでるし、brew unlink opensslをせずに、 d.hatena.ne.jp/shammer/20160216/p1 の通りにすると、brew でエラーがでます。 それでは 330 名前：名無しさん＠お腹いっぱい。 [2016/03/11(金) 00:39:51.51 .net] 選択範囲やそのバッファの追記保存はどうやるのだろう #<buffer Emacs のバッファ名> >> filename こういうのをM-x からやりたい 331 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/11(金) 00:44:14.31 .net] 選択範囲なら M-x append-to-file とか バッファなら mark-whole-buffer してから append-to-file とか 332 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/11(金) 09:35:46.24 .net] 関数にしてみた M-x >> でリージョンがあればその範囲、なければバッファ全体を追記 (defun >> (beg end) (interactive 333 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/11(金) 09:38:23.38 .net] あれ？今度は書けたかな (defun >> (beg end) (interactive "r") (let* ((urp (use-region-p)) (beg (or (and urp beg) (point-min))) (end (or (and urp end) (point-max))) (prompt (format "%s >> " (if urp (format "region %s to %s" beg end) (format "buffer %s" (current-buffer)))))) (append-to-file beg end (read-file-name prompt)))) 334 名前：名無しさん＠お腹いっぱい。 [2016/03/11(金) 17:44:41.01 .net] ありがとう。 335 名前：名無しさん＠お腹いっぱい。 [2016/03/12(土) 18:30:01.81 .net] emacs 上で shell や ssh を動かして、なんでもかんでも emacs でやってきましたが、 最近、「そんなトロいエディタ使ってるから作業が遅いんだ」と言われてしまいました。 システム関係のプログラムの開発やメンテナンスで、 とにかくスピードを求められる仕事が増えてきたのですが、 どうもそういう仕事を多くしている人の目から見ると、 emacs のやりかたはトロ臭く見えるらしいのです。 （自分のやりかたがトロ臭いだけなのかもしれませんが） vi + コンソール　や、windows 上でのスクリーンエディタを使ったやりかた、 その他 Sublime や Atom 等の最新のエディタを使ったやり方に引けをとらない作業効率を emacs で実現することは可能なのでしょうか。 336 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/12(土) 21:13:32.21 .net] >>330 言語は問わず、できるだけスクリプトもしくは elisp にして (もちろん、少々のパラメータの変更などはインタラクティブに変更可能にして) もし elisp ならば eval-last-sexp で即座に実行可能な状態にすればいいのでは!? 多分初期段階ではめんどうでも、積み重ねると既存のものの組み合わせになっ てくるから、めんどうさが減ってくるのでは。 337 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/12(土) 22:16:34.26 .net] デフォルト設定のemacsで ↓キー押しっぱなしのカーソル移動で画面をスクロールしてるのを 見せたりしたんだろうな 338 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 01:09:18.24 .net] がんばって応援してる 339 名前：名無しさん＠お腹いっぱい。 [2016/03/13(日) 01:20:38.90 .net] 女とエディタは少しトロいぐらいの方がええんやで 340 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 08:42:21.84 .net] >>332 流石にそれはないだろ C-n に違いない 341 名前：名無しさん＠お腹いっぱい。 [2016/03/13(日) 10:59:42.22 .net] El CapitanのTerminalでEmacs動かした時ControlキーとShiftキーを使ったバインドが反応しないんですが回避方法ありますか？ "C-M-%"とか効かないんですぅ 342 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 14:42:37.87 .net] >>330を見てるとEmacsのやり方がとろいのかEmacsの動作速度がとろいのか分からんな ちなみにTypeScriptとかLLVMとかはコンパイラ内にソース解析機能があって それ使うとEmacsでもバリバリ補完が効くようになって超便利 今時はコンパイラ側にソース解析機能を載せるのが流行りだから エディタに文句言ってるやつの方が遅れてる 要するに何でも受け入れられる懐の深いエディタのEmacsこそが 一週回って最先端のエディタと言える 343 名前：名無しさん＠お腹いっぱい。 [2016/03/13(日) 15:22:57.26 .net] トロい女も割となんでも受け入れてくれるしな 344 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 18:58:51.97 .net] emacsなんか使ってて遅いって コマンドラインでガシガシ仕事する真性のUNIX使いに言われてんのかと思ったら ただのエディタ論争かよw こんなの言ってるヤツらも素人に毛の生えた程度だぞw 345 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 19:03:40.14 .net] じゃあユニケージとか言ってる奴がUNIXの達人で最速クラスなの？ 346 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 19:33:20.30 .net] 最速かどうかは知らんが ウィンドウシステムなんて入れませんがなにか？っていう ガチすぎるサーバ数十〜数百台の面倒見るような仕事なら 好むと好まざるとに関わらず達人になるだろうよ 347 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 20:41:56.47 .net] >>337 ダイナミックロードのサポートしたのは良いけど、gpl_compatibleとシグネチャー要求する懐ろの狭さはなんとかならんかね 大昔のPC98思い出して呆れたわ 348 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/13(日) 21:06:28.08 .net] ダイナミックローディングなんか入れて emacsがウェブブラウザ並のマルウェア蔓延アプリと化すのに リーチかかってるだろ シグネチャくらい当然 349 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 02:44:26.88 .net] つうか sublime や atom てそんなに捗るもんなのか 350 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 03:27:27.91 .net] Lispの勉強しなくても使えるからな 351 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 08:30:10.77 .net] >>343 そういう理由じゃないから 352 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 10:37:21.21 .net] このスレの大部分の人もelispしらないじゃん web関連で使ってるとsublimeのほうが便利なことはよくあるかな 353 名前：名無しさん＠お腹いっぱい。 [2016/03/14(月) 12:19:43.33 .net] ならそれ使えばいいだろ さよなら 354 名前：名無しさん＠お腹いっぱい。 [2016/03/14(月) 13:07:19.52 .net] elisp書けないのにemacs使ってたらそりゃトロく見られるし実際トロい奴だわ 355 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 16:44:34.82 .net] いいんだよ、これからできるようになるから ^p^ 356 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/14(月) 20:33:43.33 .net] 非常に前向きでよろしい 357 名前：名無しさん＠お腹いっぱい。 [2016/03/16(水) 23:17:40.99 .net] マ イ ン ド コ ン ト ロ ー ル の手法 ・沢山の人が、偏った意見を一貫して支持する 　偏った意見でも、集団の中でその意見が信じられていれば、自分の考え方は間違っているのか、等と思わせる手法 ・不利な質問をさせなくしたり、不利な質問には答えない、スルーする 　誰にも質問や反論をさせないことにより、誰もが皆、疑いなど無いんだと信じ込ませる手法 偏った思想や考え方に染まっていたり、常識が通じない人間は、頭が悪いフリをしているカルト工作員の可能性が高い 靖 国 参 拝、皇 族、国 旗 国 歌、神 社 神 道を嫌う カ ル ト 10人に一人は カ ル ト か 外 国 人 「ガ ス ラ イ テ ィ ン グ」 で 検 索 を ！ 358 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/17(木) 23:25:44.88 .net] isearch-forward で進んだ後って C-r を２回押さないと方向転換できないのは何です？ 一回の C-s/C-r で行ったり来たりしたいのに。 359 名前：名無しさん＠お腹いっぱい。 [2016/03/18(金) 01:15:48.19 .net] カーソルに注目 カーソルを[]で表示するとして WORD[] ここにC-sで飛んでくる 次にC-rを押すと []WORD ここにカーソルが飛ぶ なぜならばC-rは(isearch-repeat-backward)だから 360 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 01:47:13.27 .net] 気にしないことだ 肩こりの原因になったりするけれども 361 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 02:33:24.37 .net] たしかにうっとおしいね ^^; 362 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 04:11:10.95 .net] マクロとか使って作業効率化するときはこの引っ掛かりが役に立ったりするよね 363 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 05:29:08.04 .net] >>353 やっつけだけど一回で戻れるようにしてみた どや！ (defvar isearch-direction nil) (defun isearch-check-reverse (arg) (unless (eq arg isearch-direction) (let ((op isearch-opoint) (str isearch-string)) (cond ((eq arg 'backward) (setq isearch-direction 'backward) (isearch-backward nil 1)) ((eq arg 'forward) (setq isearch-direction 'forward) (isearch-forward nil 1))) (isearch-yank-string str) (setq isearch-opoint op)))) (advice-add 'isearch-forward :before (lambda (&optional regexp-p no-recursive-edit) (setq isearch-direction 'forward))) (advice-add 'isearch-backward :before (lambda (&optional regexp-p no-recursive-edit) (setq isearch-direction 'backward))) (advice-add 'isearch-repeat-forward :before (lambda () (isearch-check-reverse 'forward))) (advice-add 'isearch-repeat-backward :before (lambda () (isearch-check-reverse 'backward))) 364 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 10:35:25.69 .net] つうかこれだけでいいでしょ… (defun isearch-repeat-backward () "Repeat incremental search backwards." (interactive) (when isearch-forward (isearch-repeat 'backward)) ; 前回がisearch-forwardなら2回繰り返す (isearch-repeat 'backward)) isearch-repeat-forwardの方も同じようにやればいいよ 365 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 10:38:26.82 .net] 無理にadvice使わなくても実質一行の関数なんだから上書きすればおｋ 366 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 11:23:07.28 .net] >>359 助かるわ ^^; 367 名前：名無しさん＠お腹いっぱい。 [2016/03/18(金) 15:12:13.02 .net] 抽象化で美しい 368 名前：hoge mailto:sage [2016/03/19(土) 01:06:19.71 .net] めっちゃエラーでる orz (defun isearch-repeat-backward () 369 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/19(土) 10:21:02.95 .net] >>363 ttp://p.twpl.jp/show/large/SG4TF 370 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/19(土) 11:00:50.15 .net] どこがマズいのかおしえてください orz (defun isearch-repeat-backward () "Repeat incremental search backwards." (interactive) ;前回がisearch-forwardなら2回繰り返す (when isearch-forward (isearch-repeat 'backward)) (isearch-repeat 'backward)) (defun isearch-repeat-forward () "Repeat incremental search forwards." (interactive) ;前回がisearch-backwardなら2回繰り返す (when isearch-backward (isearch-repeat 'forward)) (isearch-repeat 'forward)) 371 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/19(土) 11:40:44.20 .net] お前のそのネットの向こうにいる相手はみんなセンセイかママかなんかだと思ってる子供のようにしか見えないみっともない質問のしかた または下から二行目 (when (not isearch-forward) (isearch-repeat 'forward)) 372 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/19(土) 11:59:22.06 .net] >>366 ありがとう愛してる 373 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/19(土) 12:30:31.47 .net] >>367 うるせーバカ 374 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/20(日) 00:28:19.30 .net] 結構便利かもしれんので俺もさらす (defun ad-isearch-repeat-quick-reverse (direction) (when (and (not (boundp 'in-ad-isearch-repeat-quick-reverse)) (eq isearch-forward (eq direction 'backward))) (let (in-ad-isearch-repeat-quick-reverse) (isearch-repeat direction)))) (advice-add 'isearch-repeat :before 'ad-isearch-repeat-quick-reverse) 375 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/20(日) 01:32:59.01 .net] かっこいい・・ 376 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/20(日) 16:25:13.79 .net] >>369 説明してよ 377 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/20(日) 18:07:34.94 .net] >>371 ああすまん>>369は>>353用のコード 378 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/20(日) 18:29:33.86 .net] 便利だからisearch-quick-reverseをnon-nilにしたら有効になるようにして本家に投げてくれ 379 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/21(月) 06:09:36.56 .net] >>330 そう言ってきた奴は何使ってるの？なんの作業が遅いと言われたの？ そこを書くなりわからないなら教えてもらわないと話にならないだろ その上でたとえばもしvimでのこういう作業だったら具体的にemacsで小効率化できないでしょうか？って聞き方しないと。 っていうかエディタの問題じゃなくてお前の仕事の進め方が悪いんじゃないのか？スレの聴き方からしてそんな臭いが漂ってる 380 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/21(月) 09:02:09.32 .net] 釣られクマ 381 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/21(月) 10:08:39.01 .net] >>374の必死感はvim使いっぽい

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef