Mercurial > emacs

changeset 17158:f181580c182c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(when, unless): Symbol props moved from cl.el. (add-to-invisibility-spec): Add to beginning, not end.
author Karl Heuer <kwzh@gnu.org>
date Fri, 14 Mar 1997 17:58:03 +0000
parents d7bf028f0899
children 6f1e715cbd58
files lisp/subr.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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'."