Skip to content

Commit fca3877

Browse files
committed
Remove commented out function gnuplot-set-binding
1 parent 57be3c7 commit fca3877

File tree

1 file changed

+0
-24
lines changed

1 file changed

+0
-24
lines changed

gnuplot.el

Lines changed: 0 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)