From 8927b012f377ca55cd657975cd229cc0ce3be31e Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Sun, 7 Jan 1996 14:34:54 +0000 Subject: (Fplist_get): Rename arg `val' to `plist' as in doc. --- src/fns.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fns.c') diff --git a/src/fns.c b/src/fns.c index b133967a7ac..2b85796312d 100644 --- a/src/fns.c +++ b/src/fns.c @@ -920,17 +920,17 @@ merge (org_l1, org_l2, pred) DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0, - "Extract a value from a property list.\n\ + "Extract a value from a property list.\n\ PLIST is a property list, which is a list of the form\n\ \(PROP1 VALUE1 PROP2 VALUE2...). This function returns the value\n\ corresponding to the given PROP, or nil if PROP is not\n\ one of the properties on the list.") - (val, prop) - Lisp_Object val; + (plist, prop) + Lisp_Object plist; register Lisp_Object prop; { register Lisp_Object tail; - for (tail = val; !NILP (tail); tail = Fcdr (Fcdr (tail))) + for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail))) { register Lisp_Object tem; tem = Fcar (tail); -- cgit v1.2.1