diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-03 15:28:13 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-03 15:28:13 +0000 |
| commit | 6e39d3b2b075f7ff982aeb5800aa502994c41db6 (patch) | |
| tree | 109f615558c0466c1fc9e0296f9569cb306d8a35 /lisp/emacs-lisp | |
| parent | c9753fb4b5dff014ea52a9b81ac3b12bcf38a5f7 (diff) | |
| download | emacs-6e39d3b2b075f7ff982aeb5800aa502994c41db6.tar.gz emacs-6e39d3b2b075f7ff982aeb5800aa502994c41db6.tar.bz2 emacs-6e39d3b2b075f7ff982aeb5800aa502994c41db6.zip | |
(define-obsolete-variable-alias): Use dolist,
and only put a prop if it is non-nil.
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. |