mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(define-obsolete-variable-alias): Use dolist,

Browse source 
and only put a prop if it is non-nil.
This commit is contained in:
Stefan Monnier 2009-11-03 15:28:13 +00:00
parent c9753fb4b5
commit 6e39d3b2b0
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-11-03 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/byte-run.el (define-obsolete-variable-alias): Use dolist,
and only put a prop if it is non-nil.
2009-11-03 Juri Linkov <juri@jurta.org>
* menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle)

8
lisp/emacs-lisp/byte-run.el
View file

@ -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.