Mercurial > emacs

changeset 24447:8309f6535486

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c-outline-level): Bind buffer-invisibility-spec.
author Dave Love <fx@gnu.org>
date Sat, 06 Mar 1999 19:07:47 +0000
parents 25556de3fe49
children 54fa245dc776
files lisp/progmodes/c-mode.el lisp/progmodes/cc-cmds.el
diffstat 2 files changed, 10 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/c-mode.el	Sat Mar 06 19:06:40 1999 +0000
+++ b/lisp/progmodes/c-mode.el	Sat Mar 06 19:07:47 1999 +0000
@@ -390,9 +390,11 @@
   (run-hooks 'c-mode-hook))
 
 (defun c-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))))
 
 ;; This is used by indent-for-comment
 ;; to decide how much to indent a comment in C code
--- a/lisp/progmodes/cc-cmds.el	Sat Mar 06 19:06:40 1999 +0000
+++ b/lisp/progmodes/cc-cmds.el	Sat Mar 06 19:07:47 1999 +0000
@@ -1065,9 +1065,11 @@
 
 ;; used by outline-minor-mode
 (defun c-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))))
 
 
 (defun c-up-conditional (count)