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

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e11944a6808..0b1c02a1cfc 100644
--- 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 a259985df99..032eced7592 100644
--- 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)