diff options
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index af3150ffe6..62975407aa 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -224,7 +224,7 @@ obsolete." `(progn (put ,obsolete-face 'face-alias ,current-face) ;; Used by M-x describe-face. - (put ,obsolete-face 'obsolete-face (or ,when t)))) + (put ,obsolete-face 'obsolete-face (or (purecopy ,when) t)))) (defmacro dont-compile (&rest body) "Like `progn', but the body always runs interpreted (not compiled). |