diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
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 |