From b073b657d4f94478391bd2d7947048d8ed7a7557 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 6 Mar 1999 19:06:40 +0000 Subject: [PATCH] (ada-outline-level): Bind buffer-invisibility-spec. --- lisp/progmodes/ada-mode.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 9e6321b6314..cac7227969c 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -3822,9 +3822,11 @@ If that is the case remember the name of that function." ;; used by outline-minor-mode (defun ada-outline-level () - (save-excursion - (skip-chars-forward "\t ") - (current-column))) + ;; This so that `current-column' DTRT in otherwise-hidden text. + (let (buffer-invisibility-spec) + (save-excursion + (skip-chars-forward "\t ") + (current-column)))) ;;; ;;; generate body -- 2.39.2