Emacs：元に戻すツリーのクリーンアップ

Question

長い編集セッションでは、undo-tree（C-x C-u）の呼び出しが遅くなり、遅くなることに気付きました。私は、木が大きくなるにつれて、それを解析するのに時間がかかります（私がファイルを開いて以来のすべての編集を追跡するので）。

ファイルを開く？私は（find-alternate-file）C-x C-vを試してみましたが、この

Answer 1

がM-: (setq buffer-undo-tree nil)を使用してbuffer-undo-tree変数をリセットし、カーソルをリセットし、ファイルを再オープンします（とorg-modeのようなモードで自分のリストを崩壊します）。これにより、バッファの元に戻す履歴がすべて破棄され、undo-tree.elと記録されます。

(defun clear-undo-tree() 
    (interactive) 
    (setq buffer-undo-tree nil)) 
(global-set-key [(control c) u] 'clear-undo-tree) 

Answer 2

あなたが代わりに全部を捨てるの木を剪定することができます：

undo-tree-discard-history is a compiled Lisp function in 
`undo-tree.el'. 

(undo-tree-discard-history) 

Discard undo history until we're within memory usage limits 
set by `undo-limit', `undo-strong-limit' and `undo-outer-limit'. 

Answer 3

注ことこれはまたをコマンド化して、このようなコードを持つキーにバインドすることができ

このヒントは最近のUndo-Treeバージョンでは廃止される可能性があります。バージョン0.6以降では、undo-treeはデフォルトで "lazy tree-drawing"を使用します。これにより、目に見える部分を描画するだけで（そしてツリーの周りを移動するときに必要に応じて拡張する）、大きなUndoツリーの視覚化が大幅に高速化されます。詳細については、undo-tree-visualizer-lazy-drawing変数のドキュメントストリングを参照してください。

それでもやはり元に戻すツリーを破棄したい場合は、手動でbuffer-undo-treeをnilに設定するのが良いワンオフソリューションです。長期的な解決方法は、元のデータを破棄する前に元に戻す履歴をどれだけ保存するかを制限することによって、undo-limit,undo-strong-limit、およびundo-outer-limitの値を減らして、元に戻すツリーのサイズを制限することです。

undo-tree-discard-historyを手動で呼び出すのは無意味です。元に戻すのに何かをすると自動的に呼び出されます。

Answer 4

バッファ/ファイルの現在のエンコーディングでは表示できない文字を含むテキストを貼り付けたため、時にはバッファのUNDOツリーをフラッシュする必要があります。だから私は@ Amelio Vazquez-Reinaの機能が非常に役に立ちました。

(defun clean-undo-tree() 
"Clear current buffer's undo-tree. 
Undo-tree can cause problems with file encoding when characters 
are inserted that cannot be represented using the files current 
encoding. This is even the case when characters are only 
temporarily inserted, e.g. pasted from another source and then 
instantly deleted. In these situations it can be necessary to 
clear the buffers undo-tree before saving the file." 
    (interactive) 
    (let ((buff (current-buffer))) 
    (if (local-variable-p 'buffer-undo-tree) 
     (if (y-or-n-p "Clear buffer-undo-tree? ") 
      (progn 
       (setq buffer-undo-tree nil) 
       (message "Cleared undo-tree of buffer: %s" (buffer-name buff))) 
      (message "Cancelled clearing undo-tree of buffer: %s" (buffer-name buff))) 
     (error "Buffer %s has no local binding of `buffer-undo-tree'" (buffer-name buff)))))