(ada-outline-level): Bind buffer-invisibility-spec.

1 files 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