From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Dec 2002 22:05:52 +0000 (+0000)
Subject: (add-to-invisibility-spec): If it was t, start it out at (t).
X-Git-Tag: ttn-vms-21-2-B4~11934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c525c13c741247e4bd065e207781468194a057bc;p=emacs.git

(add-to-invisibility-spec): If it was t, start it out at (t).
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 093812d13c5..c0e0ea61ef3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1881,12 +1881,10 @@ from `standard-syntax-table' otherwise."
   "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
-	  (cons arg buffer-invisibility-spec)))))
+  (if (eq buffer-invisibility-spec t)
+      (setq buffer-invisibility-spec (list t)))
+  (setq buffer-invisibility-spec
+	(cons arg buffer-invisibility-spec)))
 
 (defun remove-from-invisibility-spec (arg)
   "Remove elements from `buffer-invisibility-spec'."