@@ -594,38 +594,6 @@ create a `gnuplot-mode' buffer."
594594This part contains the toggle buttons for displaying info or
595595opening 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.
631599It 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