From 41bee2813de0c3d7f3d2a3bbe2b803270da1148b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 27 Apr 1998 01:41:22 +0000 Subject: [PATCH] (outline-discard-overlays): Interpret PROP as a value for `invisible', not as property name. --- lisp/textmodes/outline.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 8e596a0efe2..aba8644676f 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -433,10 +433,10 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." ;; Exclude from the region BEG ... END all overlays -;; with a non-nil PROP property. +;; which have PROP as the value of the `invisible' property. ;; Exclude them by shrinking them to exclude BEG ... END, ;; or even by splitting them if necessary. -;; Overlays without a non-nil PROP property are not touched. +;; Overlays without such an `invisible' property are not touched. (defun outline-discard-overlays (beg end prop) (if (< end beg) (setq beg (prog1 end (setq end beg)))) @@ -446,7 +446,7 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." o1) (while overlays (setq o (car overlays)) - (if (overlay-get o prop) + (if (eq (overlay-get o 'invisible) prop) ;; Either push this overlay outside beg...end ;; or split it to exclude beg...end ;; or delete it entirely (if it is contained in beg...end). -- 2.39.5