[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/byte-run.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/03 15:28:16

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: byte-run.el 

Log message:
        (define-obsolete-variable-alias): Use dolist,
        and only put a prop if it is non-nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16549&r2=1.16550
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/byte-run.el?cvsroot=emacs&r1=1.43&r2=1.44

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16549
retrieving revision 1.16550
diff -u -b -r1.16549 -r1.16550
--- ChangeLog   3 Nov 2009 07:28:59 -0000       1.16549
+++ ChangeLog   3 Nov 2009 15:28:13 -0000       1.16550
@@ -1,3 +1,8 @@
+2009-11-03  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle)

Index: emacs-lisp/byte-run.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/byte-run.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- emacs-lisp/byte-run.el      26 Oct 2009 06:43:41 -0000      1.43
+++ emacs-lisp/byte-run.el      3 Nov 2009 15:28:16 -0000       1.44
@@ -202,10 +202,10 @@
   `(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.