# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 858362283 0
# Node ID f181580c182cae5ab83ac63ddbf313dec14a1468
# Parent  d7bf028f08997f6219fd5eea87b3ae3c40486332
(when, unless): Symbol props moved from cl.el.
(add-to-invisibility-spec): Add to beginning, not end.

diff -r d7bf028f0899 -r f181580c182c lisp/subr.el
--- a/lisp/subr.el	Fri Mar 14 17:57:41 1997 +0000
+++ b/lisp/subr.el	Fri Mar 14 17:58:03 1997 +0000
@@ -46,10 +46,14 @@
 (defmacro when (cond &rest body)
   "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
   (list 'if cond (cons 'progn body)))
+(put 'when 'lisp-indent-function 1)
+(put 'when 'edebug-form-spec '(&rest form))
 
 (defmacro unless (cond &rest body)
   "(unless COND BODY...): if COND yields nil, do BODY, else return nil."
   (cons 'if (cons cond (cons nil body))))
+(put 'unless 'lisp-indent-function 1)
+(put 'unless 'edebug-form-spec '(&rest form))
 
 ;;;; Keymap support.
 
@@ -901,8 +905,8 @@
    ((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))))))
+    (setq buffer-invisibility-spec
+	  (cons arg buffer-invisibility-spec)))))
 
 (defun remove-from-invisibility-spec (arg)
   "Remove elements from `buffer-invisibility-spec'."