# HG changeset patch
# User Dan Nicolaescu <done@ece.arizona.edu>
# Date 917922372 0
# Node ID 418feab1639cf085d6433894b4414d6bdc0ac0da
# Parent  1139bb78dcfaca16a65b89e9d90b50bb7e87d268
*** empty log message ***

diff -r 1139bb78dcfa -r 418feab1639c lisp/subr.el
--- a/lisp/subr.el	Mon Feb 01 22:58:10 1999 +0000
+++ b/lisp/subr.el	Tue Feb 02 02:26:12 1999 +0000
@@ -1164,7 +1164,7 @@
 
 (defun remove-from-invisibility-spec (arg)
   "Remove elements from `buffer-invisibility-spec'."
-  (if buffer-invisibility-spec
+  (if (consp buffer-invisibility-spec)
     (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))
 
 (defun global-set-key (key command)