# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 821025294 0
# Node ID 7f7e97f219ce6a2a617e30a03f194fefdaf6ac8e
# Parent  28df14e7a281089e1cb8a76cb2694eb1fd2da7b0
(Fplist_get): Rename arg `val' to `plist' as in doc.

diff -r 28df14e7a281 -r 7f7e97f219ce src/fns.c
--- a/src/fns.c	Sun Jan 07 07:00:56 1996 +0000
+++ b/src/fns.c	Sun Jan 07 14:34:54 1996 +0000
@@ -920,17 +920,17 @@
 
 
 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);