• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• Mook2008/11/13 21:10:56

  満足30pt

  標準機能ではなく拡張になりますが、下記のものを使用してはどうでしょうか。

  http://www.bookshelf.jp/soft/meadow_33.html#SEC482

  
  

  関数を開始する時点で （undo-group-boundary）を実行するようにし、

  関数実行後にundo-group で、実行開始時まで戻るかと思います。

  スター

  • room661 2008/11/13 21:29:29

    ありがとうございます。

    なるほど、これも一つの手ですね。

pyopyopyo2008/11/14 00:51:39

満足35pt

(defun hoge ()
  (interactive)
  (format-replace-strings
   '(("foo" . "bar")
     ("xxx" . "yyy"))))

とか、如何でしょう？

スター

• room661 2008/11/14 01:30:53

  おお、オミゴト。ありがとうございます。

  ———

  では、正規表現による置換に対して同様な書き方はありませんかね？

  つまり上記質問文のコードが次のようである場合です。

  (defun hoge()
    (interactive)
    (replace-regexp "^foo" "bar" nil)	; (1)
    (replace-regexp "x+" "yyy" nil)	; (2)
  )
  

hujikojp2008/11/15 07:55:44

満足35pt

ちと力業ですが:

(defun remove-undo-boundary (last-boundary)
  (let ((l buffer-undo-list))
    (when (and l (not (eq last-boundary l)))
      (while (and (cdr l) (not (eq last-boundary (cdr l))))
	(if (null (cadr l))
	    (setcdr l (cddr l))
	  (setq l (cdr l)))))))

(defun hoge ()
  (interactive)
  (let ((last-boundary buffer-undo-list))
    (replace-string "foo" "bar" nil); (1)
    (replace-string "xxx" "yyy" nil); (2)
    (remove-undo-boundary last-boundary))
)

多分悪影響はないと思いますが、おそるおそるつかってください。

スター

• room661 2008/11/15 15:23:50

  ありがとうございます。これなら正規表現による置換にも使えそう。

  buffer-undo-list のしくみがよく分かります。

  勉強になります。

• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2008-11-13 19:18:16

終了日時

2008-11-17 21:35:21

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者1119時間前
• 東京都は山に四方を囲まれています。風水的にはどうですか？。匿名質問者11日前
• 誰か読んでくれませんか？ ゲームの話です アンダーテールっていうんですけど 話し相手が全然いないんです…yun_10241日前
• スマホ（アンドロイド）に、TypeAppを入れております。登録になっているメアドのいくつかを削除したいので…匿名質問者119時間前
• アスペルガー精神3級会社員男性(34歳独身)です。 元々眠りが浅いのに最近尚更深刻な夢や深く考え過ぎる夢を…hayakushinene15時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ