fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request

diff --git a/lisp/subr.el b/lisp/subr.el
index 45afbb31286cc4dbe6176bd019083236b84d872a..2eca62c0e4549d58c5ce501c80bb3cd2d5883fa6 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2321,10 +2321,10 @@ BEG and END default respectively to the beginning and end of buffer."
 ;;;; Miscellanea.
 
 (defun purecopy-cons (arg)
-  "Purecopy both car and cdr of the pair argument."
+  "Return a copy of ARG from a `purecopy' of the car and cdr of ARG."
   (cons (purecopy (car arg)) (purecopy (cdr arg))))
 (defun purecopy-car (arg)
-  "Purecopy the car of the pair argument."
+  "Return a copy of ARG whose car is a `purecopy' of the car of ARG."
   (cons (purecopy (car arg)) (cdr arg)))
 
 (defvar suspend-hook nil