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

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 45afbb31286..2eca62c0e45 100644
--- 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