diff options
| author | Sam Steingold <sds@gnu.org> | 2011-02-01 16:37:12 -0500 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2011-02-01 16:37:12 -0500 |
| commit | e8e4d5c88e04390481b3156c0e5efe40979d8519 (patch) | |
| tree | 91e183a5d20a036e1e03c544e693adfa8b09ec73 /lisp/subr.el | |
| parent | abef340a0c5304054a2a5e6d95e1d825501f0e7a (diff) | |
| download | emacs-e8e4d5c88e04390481b3156c0e5efe40979d8519.tar.gz | |
undo 2011-02-01T18:15:18Z!sds@gnu.org (purecopy-cons, purecopy-car) at Stefan Monnier's request
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 2eca62c0e45..3330fa20379 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2320,13 +2320,6 @@ BEG and END default respectively to the beginning and end of buffer." ;;;; Miscellanea. -(defun purecopy-cons (arg) - "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) - "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 "Normal hook run by `suspend-emacs', before suspending.") |