# HG changeset patch # User Juanma Barranquero # Date 1119363034 0 # Node ID ec5194493ae9572f0fefaf5fb5fb640c59493138 # Parent 2bca9aad87e80856f38ffb6eae9bdd26ac43ead4 (1value, lambda, key-substitution-in-progress): Doc fixes. (noreturn): Fix spellings. diff -r 2bca9aad87e8 -r ec5194493ae9 lisp/subr.el --- a/lisp/subr.el Tue Jun 21 13:51:40 2005 +0000 +++ b/lisp/subr.el Tue Jun 21 14:10:34 2005 +0000 @@ -44,12 +44,12 @@ (defmacro noreturn (form) "Evaluates FORM, with the expectation that the evaluation will signal an error instead of returning to its caller. If FORM does return, an error is -signalled." +signaled." `(prog1 ,form (error "Form marked with `noreturn' did return"))) (defmacro 1value (form) - "Evaluates FORM, with the expectation that all the same value will be returned + "Evaluates FORM, with the expectation that the same value will be returned from all evaluations of FORM. This is the global do-nothing version of `1value'. There is also `testcover-1value' that complains if FORM ever does return differing values." @@ -61,7 +61,7 @@ self-quoting; the result of evaluating the lambda expression is the expression itself. The lambda expression may then be treated as a function, i.e., stored as the function value of a symbol, passed to -funcall or mapcar, etc. +`funcall' or `mapcar', etc. ARGS should take the same form as an argument list for a `defun'. DOCSTRING is an optional documentation string. @@ -347,7 +347,7 @@ (setq loop (1+ loop)))))) (defvar key-substitution-in-progress nil - "Used internally by substitute-key-definition.") + "Used internally by `substitute-key-definition'.") (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.