diff options
| author | Sam Steingold | 2011-02-01 14:17:10 -0500 |
|---|---|---|
| committer | Sam Steingold | 2011-02-01 14:17:10 -0500 |
| commit | 26d504d7f3473de2bee435f475956634dc26347e (patch) | |
| tree | edf230601780df16eebcab521cc7be8ecc6c1928 | |
| parent | 7d93eca95e0e84219aa0d5160788c8df5c83fddb (diff) | |
| download | emacs-26d504d7f3473de2bee435f475956634dc26347e.tar.gz emacs-26d504d7f3473de2bee435f475956634dc26347e.zip | |
fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request
| -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." | |||
| 2321 | ;;;; Miscellanea. | 2321 | ;;;; Miscellanea. |
| 2322 | 2322 | ||
| 2323 | (defun purecopy-cons (arg) | 2323 | (defun purecopy-cons (arg) |
| 2324 | "Purecopy both car and cdr of the pair argument." | 2324 | "Return a copy of ARG from a `purecopy' of the car and cdr of ARG." |
| 2325 | (cons (purecopy (car arg)) (purecopy (cdr arg)))) | 2325 | (cons (purecopy (car arg)) (purecopy (cdr arg)))) |
| 2326 | (defun purecopy-car (arg) | 2326 | (defun purecopy-car (arg) |
| 2327 | "Purecopy the car of the pair argument." | 2327 | "Return a copy of ARG whose car is a `purecopy' of the car of ARG." |
| 2328 | (cons (purecopy (car arg)) (cdr arg))) | 2328 | (cons (purecopy (car arg)) (cdr arg))) |
| 2329 | 2329 | ||
| 2330 | (defvar suspend-hook nil | 2330 | (defvar suspend-hook nil |