diff options
| -rw-r--r-- | lisp/reveal.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/reveal.el b/lisp/reveal.el index 88082c17621..11f8c11c936 100644 --- a/lisp/reveal.el +++ b/lisp/reveal.el | |||
| @@ -95,7 +95,7 @@ | |||
| 95 | (let ((inv (overlay-get ol 'invisible))) | 95 | (let ((inv (overlay-get ol 'invisible))) |
| 96 | (and inv (symbolp inv) | 96 | (and inv (symbolp inv) |
| 97 | (or (setq open (or (get inv 'reveal-toggle-invisible) | 97 | (or (setq open (or (get inv 'reveal-toggle-invisible) |
| 98 | (get ol 'isearch-open-invisible-temporary))) | 98 | (overlay-get ol 'isearch-open-invisible-temporary))) |
| 99 | (overlay-get ol 'isearch-open-invisible) | 99 | (overlay-get ol 'isearch-open-invisible) |
| 100 | (and (consp buffer-invisibility-spec) | 100 | (and (consp buffer-invisibility-spec) |
| 101 | (assq inv buffer-invisibility-spec))) | 101 | (assq inv buffer-invisibility-spec))) |
| @@ -129,7 +129,7 @@ | |||
| 129 | (if (or open | 129 | (if (or open |
| 130 | (and (setq inv (overlay-get ol 'reveal-invisible)) | 130 | (and (setq inv (overlay-get ol 'reveal-invisible)) |
| 131 | (setq open (or (get inv 'reveal-toggle-invisible) | 131 | (setq open (or (get inv 'reveal-toggle-invisible) |
| 132 | (get ol 'isearch-open-invisible-temporary))))) | 132 | (overlay-get ol 'isearch-open-invisible-temporary))))) |
| 133 | (condition-case err | 133 | (condition-case err |
| 134 | (funcall open ol t) | 134 | (funcall open ol t) |
| 135 | (error (message "!!Reveal-hide: %s !!" err))) | 135 | (error (message "!!Reveal-hide: %s !!" err))) |