diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 3330fa20379..45afbb31286 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2320,6 +2320,13 @@ 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." + (cons (purecopy (car arg)) (purecopy (cdr arg)))) +(defun purecopy-car (arg) + "Purecopy the car of the pair argument." + (cons (purecopy (car arg)) (cdr arg))) + (defvar suspend-hook nil "Normal hook run by `suspend-emacs', before suspending.") |