Mercurial > emacs

changeset 24446:25556de3fe49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-outline-level): Bind buffer-invisibility-spec.
author Dave Love <fx@gnu.org>
date Sat, 06 Mar 1999 19:06:40 +0000
parents 67c1b0766236
children 8309f6535486
files lisp/progmodes/ada-mode.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el	Sat Mar 06 05:31:24 1999 +0000
+++ b/lisp/progmodes/ada-mode.el	Sat Mar 06 19:06:40 1999 +0000
@@ -3822,9 +3822,11 @@
 
 ;; 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