From 996ae468d4b75767bc92f9a64cfef2a58ff1b495 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 31 Mar 2007 18:32:05 +0000 Subject: [PATCH] (turn-off-hideshow): New function. (hs-minor-mode): Use it instead of a lambda expression in change-major-mode-hook. --- lisp/progmodes/hideshow.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 3bc1c55cc7d..ee88417bfc0 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -184,7 +184,6 @@ ;; (5) Hideshow interacts badly with Ediff and `vc-diff'. At the moment, the ;; suggested workaround is to turn off hideshow entirely, for example: ;; -;; (defun turn-off-hideshow () (hs-minor-mode -1)) ;; (add-hook 'ediff-prepare-buffer-hook 'turn-off-hideshow) ;; (add-hook 'vc-before-checkin-hook 'turn-off-hideshow) ;; @@ -908,7 +907,7 @@ Key bindings: (hs-grok-mode-type) ;; Turn off this mode if we change major modes. (add-hook 'change-major-mode-hook - (lambda () (hs-minor-mode -1)) + 'turn-off-hideshow nil t) (easy-menu-add hs-minor-mode-menu) (set (make-local-variable 'line-move-ignore-invisible) t) @@ -920,6 +919,11 @@ Key bindings: (hs-show-all))) (run-hooks 'hs-minor-mode-hook)) +;;;###autoload +(defun turn-off-hideshow () + "Unconditionally turn off hideshow minor mode." + (hs-minor-mode -1)) + ;;--------------------------------------------------------------------------- ;; load-time actions -- 2.39.5