From 31aa282eeb71c48ebf9ad41e7a2bbb1c36662c3f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 11 Mar 1997 23:55:24 +0000 Subject: [PATCH] (combine-after-change-calls): Doc fix. (add-to-invisibility-spec, remove-from-invisibility-spec): New functions. --- lisp/subr.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index b674f364e46..0c72ed1538e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -792,7 +792,7 @@ See also `with-temp-file' and `with-output-to-string'." If BODY makes changes in the buffer, they are recorded and the functions on `after-change-functions' are called several times when BODY is finished. -The return value is rthe value of the last form in BODY. +The return value is the value of the last form in BODY. If `before-change-functions' is non-nil, then calls to the after-change functions can't be deferred, so in that case this macro has no effect. @@ -892,6 +892,22 @@ syntax table; other characters are copied from the standard syntax table." (aset table i nil) (setq i (1+ i))) table))) + +(defun add-to-invisibility-spec (arg) + "Add elements to `buffer-invisibility-spec'. +See documentation for `buffer-invisibility-spec' for the kind of elements +that can be added." + (cond + ((or (null buffer-invisibility-spec) (eq buffer-invisibility-spec t)) + (setq buffer-invisibility-spec (list arg))) + (t + (setq buffer-invisibility-spec + (nconc buffer-invisibility-spec (list arg)))))) + +(defun remove-from-invisibility-spec (arg) + "Remove elements from `buffer-invisibility-spec'." + (if buffer-invisibility-spec + (setq buffer-invisibility-spec (delete* arg buffer-invisibility-spec)))) (defun global-set-key (key command) "Give KEY a global binding as COMMAND. @@ -968,4 +984,3 @@ configuration." ; alist) ;;; subr.el ends here - -- 2.39.5