From: Sam Steingold <sds@gnu.org>
Date: Tue, 1 Feb 2011 19:17:10 +0000 (-0500)
Subject: fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/26d504d7f3473de2bee435f475956634dc26347e

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

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