FUEL: this defcustom is unused

windows-high-dpi
Björn Lindqvist 2018-02-23 22:07:37 +01:00
parent fa91537935
commit 780bbd49cf
1 changed files with 11 additions and 13 deletions

View File

@ -22,7 +22,6 @@
(require 'comint) (require 'comint)
;;; Customization: ;;; Customization:
;;;###autoload ;;;###autoload
@ -52,12 +51,6 @@ the factor-listener buffer."
:type 'boolean :type 'boolean
:group 'fuel-listener) :group 'fuel-listener)
(defcustom fuel-listener-window-allow-split t
"Allow window splitting when switching to the fuel listener
buffer."
:type 'boolean
:group 'fuel-listener)
(defcustom fuel-listener-history-filename (defcustom fuel-listener-history-filename
(expand-file-name "~/.fuel_history.eld") (expand-file-name "~/.fuel_history.eld")
"File where listener input history is saved, so that it persists between "File where listener input history is saved, so that it persists between
@ -181,8 +174,7 @@ sessions."
(defun run-factor (&optional arg) (defun run-factor (&optional arg)
"Show the fuel-listener buffer, starting the process if needed." "Show the fuel-listener buffer, starting the process if needed."
(interactive) (interactive)
(let ((buf (process-buffer (fuel-listener--process t))) (let ((buf (process-buffer (fuel-listener--process t))))
(pop-up-windows fuel-listener-window-allow-split))
(if fuel-listener-use-other-window (if fuel-listener-use-other-window
(pop-to-buffer buf) (pop-to-buffer buf)
(switch-to-buffer buf)) (switch-to-buffer buf))
@ -259,7 +251,7 @@ the vocabulary name."
(when (= (point) (comint-bol)) (beginning-of-line))) (when (= (point) (comint-bol)) (beginning-of-line)))
;;;###autoload ;;;###autoload
(define-derived-mode fuel-listener-mode comint-mode "Fuel Listener" (define-derived-mode fuel-listener-mode comint-mode "FUEL Listener"
"Major mode for interacting with an inferior Factor listener process. "Major mode for interacting with an inferior Factor listener process.
\\{fuel-listener-mode-map}" \\{fuel-listener-mode-map}"
(setq-local comint-prompt-regexp fuel-con--prompt-regex) (setq-local comint-prompt-regexp fuel-con--prompt-regex)
@ -274,14 +266,20 @@ the vocabulary name."
(fuel-menu--defmenu listener fuel-listener-mode-map (fuel-menu--defmenu listener fuel-listener-mode-map
("Complete symbol" ((kbd "TAB") (kbd "M-TAB")) ("Complete symbol" ((kbd "TAB") (kbd "M-TAB"))
fuel-completion--complete-symbol :enable (symbol-at-point)) fuel-completion--complete-symbol :enable (symbol-at-point))
--
("Edit word or vocab at point" "\M-." fuel-edit-word-at-point) ("Edit word or vocab at point" "\M-." fuel-edit-word-at-point)
("Edit vocabulary" "\C-c\C-v" fuel-edit-vocabulary) ("Edit vocabulary" "\C-c\C-v" fuel-edit-vocabulary)
-- --
("Word help" "\C-c\C-w" fuel-help) ("Help on word" "\C-c\C-w" fuel-help)
("Apropos" "\C-c\C-p" fuel-apropos) ("Apropos..." "\C-c\C-p" fuel-apropos)
(mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode)
(mode "Show stack mode" "\C-c\C-s" fuel-stack-mode) (mode "Show stack mode" "\C-c\C-s" fuel-stack-mode)
-- --
(menu "Crossref"
("Word callers" "\C-c\M-<"
fuel-show-callers :enable (symbol-at-point))
("Word callees" "\C-c\M->"
fuel-show-callees :enable (symbol-at-point))
(mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode))
("Run file" "\C-c\C-k" fuel-run-file) ("Run file" "\C-c\C-k" fuel-run-file)
("Refresh vocabs" "\C-c\C-r" fuel-refresh-all)) ("Refresh vocabs" "\C-c\C-r" fuel-refresh-all))