@@ -594,38 +594,6 @@ create a `gnuplot-mode' buffer."
594
594
This part contains the toggle buttons for displaying info or
595
595
opening an argument-setting popup." )
596
596
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
-
629
597
(defvar gnuplot-recently-sent nil
630
598
" This is a record of the most recent kind of text sent to gnuplot.
631
599
It takes as its value nil, `line' , `region' , `buffer' , or `file' . It is
@@ -1874,6 +1842,38 @@ a list:
1874
1842
(setq gnuplot--comint-recent-buffer (current-buffer ))
1875
1843
(gnuplot--setup-menubar))
1876
1844
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
+
1877
1877
;;;### autoload
1878
1878
(defun gnuplot-make-buffer ()
1879
1879
" Open a new buffer in `gnuplot-mode' .
0 commit comments