Mercurial > emacs
comparison lisp/progmodes/cpp.el @ 50986:a122df88ba3f
(cpp-make-overlay-hidden): Don't make intangible.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 13 May 2003 21:43:08 +0000 |
| parents | 54347668e2e9 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 50985:1004156b8057 | 50986:a122df88ba3f |
|---|---|
| 1 ;;; cpp.el --- highlight or hide text according to cpp conditionals | 1 ;;; cpp.el --- highlight or hide text according to cpp conditionals |
| 2 | 2 |
| 3 ;; Copyright (C) 1994, 1995 Free Software Foundation | 3 ;; Copyright (C) 1994, 1995, 2003 Free Software Foundation |
| 4 | 4 |
| 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
| 6 ;; Keywords: c, faces, tools | 6 ;; Keywords: c, faces, tools |
| 7 | 7 |
| 8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
| 377 (setq cpp-overlay-list (cons overlay cpp-overlay-list)))) | 377 (setq cpp-overlay-list (cons overlay cpp-overlay-list)))) |
| 378 | 378 |
| 379 (defun cpp-make-overlay-hidden (overlay) | 379 (defun cpp-make-overlay-hidden (overlay) |
| 380 ;; Make overlay hidden and intangible. | 380 ;; Make overlay hidden and intangible. |
| 381 (overlay-put overlay 'invisible 'cpp) | 381 (overlay-put overlay 'invisible 'cpp) |
| 382 (overlay-put overlay 'intangible t) | |
| 383 ;; Unfortunately `intangible' is not implemented for overlays yet, | |
| 384 ;; so we make is read-only instead. | |
| 385 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only)) | 382 (overlay-put overlay 'modification-hooks '(cpp-signal-read-only)) |
| 386 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only))) | 383 (overlay-put overlay 'insert-in-front-hooks '(cpp-signal-read-only))) |
| 387 | 384 |
| 388 (defun cpp-make-overlay-read-only (overlay) | 385 (defun cpp-make-overlay-read-only (overlay) |
| 389 ;; Make overlay read only. | 386 ;; Make overlay read only. |