sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prevent sort-buffer from calling all the after-change hooks

Browse source
This commit is contained in:
Craig Earls 2013-04-01 12:37:02 -07:00
parent 62996f9366
commit 4adcad6b2c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ldg-sort.el
View file

@ -74,6 +74,7 @@
;; automagically ;; automagically
(let ((new-beg beg) (let ((new-beg beg)
(new-end end)) (new-end end))
(setq inhibit-modification-hooks t)
(save-excursion (save-excursion
(save-restriction (save-restriction
(goto-char beg) (goto-char beg)
@ -93,7 +94,8 @@
nil nil
'ledger-next-record-function 'ledger-next-record-function
'ledger-end-record-function 'ledger-end-record-function
'ledger-sort-startkey)))))) 'ledger-sort-startkey))))
(setq inhibit-modification-hooks nil)))
(defun ledger-sort-buffer () (defun ledger-sort-buffer ()
"Sort the entire buffer." "Sort the entire buffer."