procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Mark Oteiza 2015-12-31 13:33:35 -05:00
parent 526d80ce6f
commit 9ee6ecb840
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/chart.el
View file

@ -125,14 +125,6 @@ too much in text characters anyways.")
(font-lock-mode -1) ;Isn't it off already? --Stef (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 () (defclass chart ()
((title :initarg :title ((title :initarg :title
:initform "Emacs Chart") :initform "Emacs Chart")
@ -157,6 +149,14 @@ Returns the newly created buffer."
) )
"Superclass for all charts to be displayed in an Emacs 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) (cl-defmethod initialize-instance :after ((obj chart) &rest _fields)
"Initialize the chart OBJ being created with FIELDS. "Initialize the chart OBJ being created with FIELDS.
Make sure the width/height is correct." Make sure the width/height is correct."