diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-01 12:37:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-01 12:37:02 -0700 |
| commit | 4adcad6b2ccae539e2dd237bb78432e0f2fabcac (patch) | |
| tree | f5443a83057adbf742ebe25b789cef2c84ab340e /lisp | |
| parent | 62996f9366fc582f0e2cebe8d88aea9095629239 (diff) | |
| download | fork-ledger-4adcad6b2ccae539e2dd237bb78432e0f2fabcac.tar.gz fork-ledger-4adcad6b2ccae539e2dd237bb78432e0f2fabcac.tar.bz2 fork-ledger-4adcad6b2ccae539e2dd237bb78432e0f2fabcac.zip | |
Prevent sort-buffer from calling all the after-change hooks
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-sort.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ldg-sort.el b/lisp/ldg-sort.el index 45b55c47..5119db5d 100644 --- a/lisp/ldg-sort.el +++ b/lisp/ldg-sort.el @@ -74,6 +74,7 @@ ;; automagically (let ((new-beg beg) (new-end end)) + (setq inhibit-modification-hooks t) (save-excursion (save-restriction (goto-char beg) @@ -93,7 +94,8 @@ nil 'ledger-next-record-function 'ledger-end-record-function - 'ledger-sort-startkey)))))) + 'ledger-sort-startkey)))) + (setq inhibit-modification-hooks nil))) (defun ledger-sort-buffer () "Sort the entire buffer." |