From 26d504d7f3473de2bee435f475956634dc26347e Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 1 Feb 2011 14:17:10 -0500 Subject: [PATCH] fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request --- lisp/subr.el | 4 ++-- 1 file 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 -- 2.39.5