* emacs-lisp/chart.el (chart-sort): Replace obsolete `object-name'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e11944a6808aae7df46605bb7ff411420da2e7b4..0b1c02a1cfca76125444cb3700dda68685197f53 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-05-24  Glenn Morris  <rgm@gnu.org>
 
+       * emacs-lisp/chart.el (chart-sort): Replace obsolete `object-name'.
+
        * progmodes/cperl-mode.el (cperl-mode): Use fboundp.
        (Info-find-node, Man-getpage-in-background): Declare.
 

diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index a259985df992e9e59c7715dd3d653379a2b29c0d..032eced7592b336f9c34377c5df7e39b2a894c6a 100644 (file)
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -470,7 +470,7 @@ See `chart-sort-matchlist' for more details."
          (progn
            (chart-sort-matchlist s2 s1 pred)
            (setq s (oref s2 data)))
-       (error "Sorting of chart %s not supported" (object-name c))))
+       (error "Sorting of chart %s not supported" (eieio-object-name c))))
     (if (eq (oref c direction) 'horizontal)
        (oset (oref c y-axis) items s)
       (oset (oref c x-axis) items s)