(c-outline-level):

Bind buffer-invisibility-spec.  Originally from Dave Love, but
got lost when incorporating version 5.26.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87f312df9972bf82b254729f76338c028c159a65..eef005c1b09fa59a08aac37e66ad510ed1248c6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,14 @@
+2001-04-04  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * progmodes/cc-cmds.el (c-outline-level):
+       Bind buffer-invisibility-spec.  Originally from Dave Love, but
+       got lost when incorporating version 5.26.
+
 2001-04-04  Eli Zaretskii  <eliz@is.elta.co.il>
 
-       * emulation/pc-select.el (pc-selection-mode): Call
-       normal-erase-is-backspace-mode instead of binding keys
-       individually.
+       * emulation/pc-select.el (pc-selection-mode):
+       Call normal-erase-is-backspace-mode instead of binding
+       keys individually.
 
        * cus-load.el (normal-erase-is-backspace): Use it instead of
        delete-key-deletes-forward.
@@ -13,20 +19,20 @@
        * simple.el (normal-erase-is-backspace): Rename from
        delete-key-deletes-forward.  Doc fix.
        (normal-erase-is-backspace-mode): Rename from
-       delete-key-deletes-forward-mode.  Doc fix.  Run
-       normal-erase-is-backspace-hook.
+       delete-key-deletes-forward-mode.  Doc fix.
+       Run normal-erase-is-backspace-hook.
 
        * dired.el (dired-move-to-filename-regexp): Support file sizes in
-       ``human-readable'' format produced by GNU `ls'.  
-       (dired-move-to-filename-regexp): Recognize ISO format dates.  From
-       Paul Eggert <eggert@twinsun.com>.
+       ``human-readable'' format produced by GNU `ls'.
+       (dired-move-to-filename-regexp): Recognize ISO format dates.
+       From Paul Eggert <eggert@twinsun.com>.
 
 2001-04-04  Gerd Moellmann  <gerd@gnu.org>
 
        * emacs-lisp/lisp-mnt.el (lm-keywords-list, lm-keywords-finder-p):
        New functions.
-       (lm-verify): Check keywords. 
-       From: Eric M. Ludlam <eric@siege-engine.com>.
+       (lm-verify): Check keywords.
+       From Eric M. Ludlam <eric@siege-engine.com>.
 
 2001-04-03  Eric M. Ludlam  <eric@siege-engine.com>
 

diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index ae905c08d8673faf249bbf100079c8c43eaa82d5..70195e4cb569359c4270b07bbf64f4929096d0c4 100644 (file)
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -1283,9 +1283,11 @@ sentence motion in or near comments and multiline strings."
 \f
 ;; 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))))
 
 \f
 (defun c-up-conditional (count)