diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index a00fdf0e4f5..af3150ffe60 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -202,10 +202,10 @@ CURRENT-NAME, if it does not already have them: `(progn (defvaralias ,obsolete-name ,current-name ,docstring) ;; See Bug#4706. - (mapc (lambda (prop) (or (get ,current-name prop) - (put ,current-name prop - (get ,obsolete-name prop)))) - '(saved-value saved-variable-comment)) + (dolist (prop '(saved-value saved-variable-comment)) + (and (get ,obsolete-name prop) + (null (get ,current-name prop)) + (put ,current-name prop (get ,obsolete-name prop)))) (make-obsolete-variable ,obsolete-name ,current-name ,when))) (set-advertised-calling-convention ;; New code should always provide the `when' argument. |