From: Mark Oteiza <mvoteiza@udel.edu>
Date: Thu, 31 Dec 2015 18:33:35 +0000 (-0500)
Subject: lisp/emacs-lisp/chart.el (chart-new-buffer): Move to silence byte compiler.
X-Git-Tag: emacs-25.0.90~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ee6ecb840c57aaf87316bccc2a892265087bafe;p=emacs.git

lisp/emacs-lisp/chart.el (chart-new-buffer): Move to silence byte compiler.
---

diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index 6d641f90862..aa7d8dd9880 100644
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -125,14 +125,6 @@ too much in text characters anyways.")
   (font-lock-mode -1)                   ;Isn't it off already?  --Stef
   )
 
-(defun chart-new-buffer (obj)
-  "Create a new buffer NAME in which the chart OBJ is displayed.
-Returns the newly created buffer."
-  (with-current-buffer (get-buffer-create (format "*%s*" (oref obj title)))
-    (chart-mode)
-    (setq chart-local-object obj)
-    (current-buffer)))
-
 (defclass chart ()
   ((title :initarg :title
 	  :initform "Emacs Chart")
@@ -157,6 +149,14 @@ Returns the newly created buffer."
    )
   "Superclass for all charts to be displayed in an Emacs buffer.")
 
+(defun chart-new-buffer (obj)
+  "Create a new buffer NAME in which the chart OBJ is displayed.
+Returns the newly created buffer."
+  (with-current-buffer (get-buffer-create (format "*%s*" (oref obj title)))
+    (chart-mode)
+    (setq chart-local-object obj)
+    (current-buffer)))
+
 (cl-defmethod initialize-instance :after ((obj chart) &rest _fields)
   "Initialize the chart OBJ being created with FIELDS.
 Make sure the width/height is correct."