Skip to content

Commit 5fd6e90

Browse files
committed
Move gnuplot--setup-menubar below variable definitions
1 parent b5b1774 commit 5fd6e90

File tree

1 file changed

+32
-32
lines changed

1 file changed

+32
-32
lines changed

gnuplot.el

Lines changed: 32 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -594,38 +594,6 @@ create a `gnuplot-mode' buffer."
594594
This part contains the toggle buttons for displaying info or
595595
opening an argument-setting popup.")
596596

597-
(defun gnuplot--setup-menubar ()
598-
"Initial setup of gnuplot and insertions menus."
599-
(unless gnuplot-mode-menu
600-
(when gnuplot-insertions-menu-flag
601-
(let ((insertions-menu
602-
`("Insertions"
603-
,@gnuplot-insertions-top
604-
,gnuplot-insertions-adornments
605-
,gnuplot-insertions-plot-options
606-
,gnuplot-insertions-terminal
607-
,gnuplot-insertions-x-axis
608-
,gnuplot-insertions-y-axis
609-
,gnuplot-insertions-z-axis
610-
,gnuplot-insertions-x2-axis
611-
,gnuplot-insertions-y2-axis
612-
,gnuplot-insertions-parametric-plots
613-
,gnuplot-insertions-polar-plots
614-
,gnuplot-insertions-surface-plots
615-
,@gnuplot-insertions-bottom)))
616-
(easy-menu-define gnuplot--insertions-menu gnuplot-mode-map
617-
"Insertions menu used in Gnuplot-mode"
618-
insertions-menu)))
619-
(easy-menu-define ; set up gnuplot menu
620-
gnuplot-mode-menu gnuplot-mode-map "Menu used in gnuplot-mode"
621-
gnuplot--menu)))
622-
623-
(defun gnuplot--mark-active ()
624-
"Return non-nil if the mark is active and it is not equal to point."
625-
(condition-case nil
626-
(and (mark) (/= (mark) (point)))
627-
(error nil)))
628-
629597
(defvar gnuplot-recently-sent nil
630598
"This is a record of the most recent kind of text sent to gnuplot.
631599
It takes as its value nil, `line', `region', `buffer', or `file'. It is
@@ -1874,6 +1842,38 @@ a list:
18741842
(setq gnuplot--comint-recent-buffer (current-buffer))
18751843
(gnuplot--setup-menubar))
18761844

1845+
(defun gnuplot--setup-menubar ()
1846+
"Initial setup of gnuplot and insertions menus."
1847+
(unless gnuplot-mode-menu
1848+
(when gnuplot-insertions-menu-flag
1849+
(let ((insertions-menu
1850+
`("Insertions"
1851+
,@gnuplot-insertions-top
1852+
,gnuplot-insertions-adornments
1853+
,gnuplot-insertions-plot-options
1854+
,gnuplot-insertions-terminal
1855+
,gnuplot-insertions-x-axis
1856+
,gnuplot-insertions-y-axis
1857+
,gnuplot-insertions-z-axis
1858+
,gnuplot-insertions-x2-axis
1859+
,gnuplot-insertions-y2-axis
1860+
,gnuplot-insertions-parametric-plots
1861+
,gnuplot-insertions-polar-plots
1862+
,gnuplot-insertions-surface-plots
1863+
,@gnuplot-insertions-bottom)))
1864+
(easy-menu-define gnuplot--insertions-menu gnuplot-mode-map
1865+
"Insertions menu used in Gnuplot-mode"
1866+
insertions-menu)))
1867+
(easy-menu-define ; set up gnuplot menu
1868+
gnuplot-mode-menu gnuplot-mode-map "Menu used in gnuplot-mode"
1869+
gnuplot--menu)))
1870+
1871+
(defun gnuplot--mark-active ()
1872+
"Return non-nil if the mark is active and it is not equal to point."
1873+
(condition-case nil
1874+
(and (mark) (/= (mark) (point)))
1875+
(error nil)))
1876+
18771877
;;;###autoload
18781878
(defun gnuplot-make-buffer ()
18791879
"Open a new buffer in `gnuplot-mode'.

0 commit comments

Comments
 (0)