@@ -494,7 +494,6 @@ non-nil."
494494 " ---"
495495 [" Insert filename at point" gnuplot-insert-filename t]
496496 [" Negate set option" gnuplot-negate-option t]
497- ; ;["Set key binding" gnuplot-set-binding t]
498497 [" Keyword help" gnuplot-info-lookup-symbol
499498 (or gnuplot-keywords gnuplot-keywords-pending)]
500499 [" Quick help for thing at point" gnuplot-help-function
@@ -1850,29 +1849,6 @@ Negatable options are defined in `gnuplot-keywords-negatable-options'."
18501849 (message " There is not a negatable set option on this line " )))
18511850 (message " There is not a set option on this line " )))))
18521851
1853- ; ; (defun gnuplot-set-binding ()
1854- ; ; "Interactively select a key sequence for binding to a plot function.
1855- ; ; This is only useful in gnuplot 3.8 and for plot terminals which support
1856- ; ; key bindings (i.e. those covered by pm3d)."
1857- ; ; (interactive)
1858- ; ; (let ((keyseq (read-key-sequence "Choose a key sequence now"))
1859- ; ; (command (read-string "Bind to this command > ")))
1860- ; ; (setq keyseq (format "%S" keyseq))
1861- ; ; (string-match "keypress-event\\ s-+" keyseq)
1862- ; ; (setq keyseq (substring keyseq (match-end 0) -2))
1863- ; ; ;; need to convert from emacs nomenclature to gnuplot. what a pain.
1864- ; ; (let* ((alist '(("backspace" . "Backspace") ("tab" . "Tab") ("linefeed" . "Linefeed")
1865- ; ; ("clear" . "Clear") ("return" . "Return") ("pause" . "Pause")
1866- ; ; ("scroll-lock" . "Scroll_Lock") ("SysReq" . "sys-req")
1867- ; ; ("escape" . "Escape") ("delete" . "Delete") ("home" . "Home")
1868- ; ; ("left" . "Left") ("right" . "Right") ("up" . "Up") ("down" . "Down")
1869- ; ; ("prior" . "PageUp") ("next" . "PageDown") ("end" . "End")
1870- ; ; ("begin". "Begin")))
1871- ; ; (match (assoc keyseq alist)))
1872- ; ; (if match (setq keyseq (cdr match)))
1873- ; ;
1874- ; ; (insert (format "bind \"%s\" \"%s\"" keyseq command)))))
1875-
18761852
18771853(defun gnuplot-customize ()
18781854 " Customize `gnuplot-mode' ."
0 commit comments