summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Oteiza <mvoteiza@udel.edu>2015-12-31 13:33:35 -0500
committerMark Oteiza <mvoteiza@udel.edu>2015-12-31 13:33:35 -0500
commit9ee6ecb840c57aaf87316bccc2a892265087bafe (patch)
tree66ecc6e440fabecc8236e877d9e6f2c68f2dc131
parent526d80ce6f1a08dac4ddfd528ef1d973dc60362b (diff)
downloademacs-9ee6ecb840c57aaf87316bccc2a892265087bafe.tar.gz
lisp/emacs-lisp/chart.el (chart-new-buffer): Move to silence byte compiler.
-rw-r--r--lisp/emacs-lisp/chart.el16
1 files changed, 8 insertions, 8 deletions
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."