From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 May 1997 07:16:13 +0000 (+0000)
Subject: (cpp-highlight-buffer): Make sure
X-Git-Tag: emacs-20.1~1875
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7393255738fe7d30880c75e9dc98b02508a67ea3;p=emacs.git

(cpp-highlight-buffer): Make sure
buffer-invisibility-spec contains `cpp'.
(cpp-make-overlay-hidden): Use `cpp' as an invisible property.
---

diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index d8a062cf7a8..f5a3c912eea 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -168,6 +168,8 @@ This command pops up a buffer which you should edit to specify
 what kind of highlighting to use, and the criteria for highlighting.
 A prefix arg suppresses display of that buffer."
   (interactive "P")
+  (unless (memq 'cpp buffer-invisibility-spec) 
+    (add-to-invisibility-spec 'cpp))
   (setq cpp-parse-symbols nil)
   (cpp-parse-reset)
   (if (null cpp-edit-list)
@@ -332,7 +334,7 @@ A prefix arg suppresses display of that buffer."
 
 (defun cpp-make-overlay-hidden (overlay)
   ;; Make overlay hidden and intangible.
-  (overlay-put overlay 'invisible t)
+  (overlay-put overlay 'invisible 'cpp)
   (overlay-put overlay 'intangible t)
   ;; Unfortunately `intangible' is not implemented for overlays yet,
   ;; so we make is read-only instead.