From 780bbd49cf82c9746ca5a3f42f4a4a27266ccee9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= Date: Fri, 23 Feb 2018 22:07:37 +0100 Subject: [PATCH] FUEL: this defcustom is unused --- misc/fuel/fuel-listener.el | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/misc/fuel/fuel-listener.el b/misc/fuel/fuel-listener.el index f33b6a67d7..3b3ce39901 100644 --- a/misc/fuel/fuel-listener.el +++ b/misc/fuel/fuel-listener.el @@ -22,7 +22,6 @@ (require 'comint) - ;;; Customization: ;;;###autoload @@ -52,12 +51,6 @@ the factor-listener buffer." :type 'boolean :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 (expand-file-name "~/.fuel_history.eld") "File where listener input history is saved, so that it persists between @@ -181,8 +174,7 @@ sessions." (defun run-factor (&optional arg) "Show the fuel-listener buffer, starting the process if needed." (interactive) - (let ((buf (process-buffer (fuel-listener--process t))) - (pop-up-windows fuel-listener-window-allow-split)) + (let ((buf (process-buffer (fuel-listener--process t)))) (if fuel-listener-use-other-window (pop-to-buffer buf) (switch-to-buffer buf)) @@ -259,7 +251,7 @@ the vocabulary name." (when (= (point) (comint-bol)) (beginning-of-line))) ;;;###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. \\{fuel-listener-mode-map}" (setq-local comint-prompt-regexp fuel-con--prompt-regex) @@ -274,14 +266,20 @@ the vocabulary name." (fuel-menu--defmenu listener fuel-listener-mode-map ("Complete symbol" ((kbd "TAB") (kbd "M-TAB")) fuel-completion--complete-symbol :enable (symbol-at-point)) + -- ("Edit word or vocab at point" "\M-." fuel-edit-word-at-point) ("Edit vocabulary" "\C-c\C-v" fuel-edit-vocabulary) -- - ("Word help" "\C-c\C-w" fuel-help) - ("Apropos" "\C-c\C-p" fuel-apropos) - (mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode) + ("Help on word" "\C-c\C-w" fuel-help) + ("Apropos..." "\C-c\C-p" fuel-apropos) (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) ("Refresh vocabs" "\C-c\C-r" fuel-refresh-all)) -- 2.34.1