# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1040594752 0
# Node ID 6047d93c991e37af9c524b2bc9e4937aea854ad7
# Parent  48b3aae63381508cf3e2fd55e543585c041de768
(add-to-invisibility-spec): If it was t, start it out at (t).

diff -r 48b3aae63381 -r 6047d93c991e lisp/subr.el
--- a/lisp/subr.el	Sun Dec 22 22:05:16 2002 +0000
+++ b/lisp/subr.el	Sun Dec 22 22:05:52 2002 +0000
@@ -1881,12 +1881,10 @@
   "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'."