monnier pushed a commit to branch master
in repository elpa.
commit 48fa0f036e5b68fd01564967317bc5bc28bdab1f
Author: Teemu Likonen <[email protected]>
Date: Fri May 22 11:18:00 2009 +0000
Päivitetään myös outline-näkyvyyden muuttuessa
Lisätään puskurikohtainen koukku, joka pyytää puskurille
oikolukupäivitystä, kun outline-tilassa tekstiä piilottaa tai avaa.
---
wcheck-mode.el | 11 ++++++++++-
1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 330c969..1f13f36 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -335,6 +335,8 @@ information on how to configure Wcheck mode. Interactive
command
(add-hook 'after-change-functions 'wcheck-hook-after-change nil t)
(add-hook 'change-major-mode-hook
'wcheck-hook-change-major-mode nil t)
+ (add-hook 'outline-view-change-hook
+ 'wcheck-hook-outline-view-change nil t)
;; Add global hooks. It's probably sufficient to add these only
;; once but it's no harm to ensure their existence every time.
@@ -382,7 +384,9 @@ information on how to configure Wcheck mode. Interactive
command
(remove-hook 'window-scroll-functions 'wcheck-hook-window-scroll t)
(remove-hook 'after-change-functions 'wcheck-hook-after-change t)
(remove-hook 'change-major-mode-hook
- 'wcheck-hook-change-major-mode t)))
+ 'wcheck-hook-change-major-mode t)
+ (remove-hook 'outline-view-change-hook
+ 'wcheck-hook-outline-view-change t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -523,6 +527,11 @@ muutettu."
(wcheck-timer-read-request (current-buffer))))
+(defun wcheck-hook-outline-view-change ()
+ (when wcheck-mode
+ (wcheck-timer-read-request (current-buffer))))
+
+
(defun wcheck-hook-kill-buffer ()
"Sammuttaa oikoluvun tämän puskurin osalta."
(wcheck-mode 0))
