aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term.el
diff options
context:
space:
mode:
authorGlenn Morris2011-02-16 21:13:17 -0800
committerGlenn Morris2011-02-16 21:13:17 -0800
commit53ef76c7d3cd9932d8d3be981aef3a136cc8849d (patch)
tree352f343ec9f2357fbbec8966aaf0da2ad5f77a81 /lisp/term.el
parentd638ac9ecc2f2fcf7c000ef0aa237826f1a1cda1 (diff)
downloademacs-53ef76c7d3cd9932d8d3be981aef3a136cc8849d.tar.gz
emacs-53ef76c7d3cd9932d8d3be981aef3a136cc8849d.zip
Convert some defvars to defcustoms.
* lisp/speedbar.el (speedbar-ignored-modes, speedbar-file-unshown-regexp) (speedbar-update-flag, speedbar-fetch-etags-command) (speedbar-fetch-etags-arguments): * lisp/term.el (term-buffer-maximum-size, term-input-chunk-size) (term-completion-autolist, term-completion-addsuffix) (term-completion-recexact, term-completion-fignore): * lisp/term/sup-mouse.el (sup-mouse-fast-select-window): * lisp/term/x-win.el (x-select-request-type): Convert some defvars with "*" to defcustoms.
Diffstat (limited to 'lisp/term.el')
-rw-r--r--lisp/term.el51
1 files changed, 33 insertions, 18 deletions
diff --git a/lisp/term.el b/lisp/term.el
index ea419234e0f..df95ca830ab 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -762,11 +762,13 @@ Buffer local variable.")
762 "magenta3" "cyan3" "white"]) 762 "magenta3" "cyan3" "white"])
763 763
764;; Inspiration came from comint.el -mm 764;; Inspiration came from comint.el -mm
765(defvar term-buffer-maximum-size 2048 765(defcustom term-buffer-maximum-size 2048
766 "*The maximum size in lines for term buffers. 766 "The maximum size in lines for term buffers.
767Term buffers are truncated from the top to be no greater than this number. 767Term buffers are truncated from the top to be no greater than this number.
768Notice that a setting of 0 means \"don't truncate anything\". This variable 768Notice that a setting of 0 means \"don't truncate anything\". This variable
769is buffer-local.") 769is buffer-local."
770 :group 'term
771 :type 'integer)
770 772
771(when (featurep 'xemacs) 773(when (featurep 'xemacs)
772 (defvar term-terminal-menu 774 (defvar term-terminal-menu
@@ -2209,9 +2211,11 @@ Security bug: your string can still be temporarily recovered with
2209 2211
2210;;; Low-level process communication 2212;;; Low-level process communication
2211 2213
2212(defvar term-input-chunk-size 512 2214(defcustom term-input-chunk-size 512
2213 "*Long inputs send to term processes are broken up into chunks of this size. 2215 "Long inputs send to term processes are broken up into chunks of this size.
2214If your process is choking on big inputs, try lowering the value.") 2216If your process is choking on big inputs, try lowering the value."
2217 :group 'term
2218 :type 'integer)
2215 2219
2216(defun term-send-string (proc str) 2220(defun term-send-string (proc str)
2217 "Send to PROC the contents of STR as input. 2221 "Send to PROC the contents of STR as input.
@@ -3909,27 +3913,38 @@ This is a good place to put keybindings.")
3909;; Commands like this are fine things to put in load hooks if you 3913;; Commands like this are fine things to put in load hooks if you
3910;; want them present in specific modes. 3914;; want them present in specific modes.
3911 3915
3912(defvar term-completion-autolist nil 3916(defcustom term-completion-autolist nil
3913 "*If non-nil, automatically list possibilities on partial completion. 3917 "If non-nil, automatically list possibilities on partial completion.
3914This mirrors the optional behavior of tcsh.") 3918This mirrors the optional behavior of tcsh."
3919 :group 'term
3920 :type 'boolean)
3915 3921
3916(defvar term-completion-addsuffix t 3922(defcustom term-completion-addsuffix t
3917 "*If non-nil, add a `/' to completed directories, ` ' to file names. 3923 "If non-nil, add a `/' to completed directories, ` ' to file names.
3918If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where 3924If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where
3919DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact 3925DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact
3920completion. This mirrors the optional behavior of tcsh.") 3926completion. This mirrors the optional behavior of tcsh."
3927 :group 'term
3928 :type '(choice (const :tag "No suffix" nil)
3929 (cons (string :tag "dirsuffix") (string :tag "filesuffix"))
3930 (other :tag "Suffix" t)))
3921 3931
3922(defvar term-completion-recexact nil 3932(defcustom term-completion-recexact nil
3923 "*If non-nil, use shortest completion if characters cannot be added. 3933 "If non-nil, use shortest completion if characters cannot be added.
3924This mirrors the optional behavior of tcsh. 3934This mirrors the optional behavior of tcsh.
3925 3935
3926A non-nil value is useful if `term-completion-autolist' is non-nil too.") 3936A non-nil value is useful if `term-completion-autolist' is non-nil too."
3937 :group 'term
3938 :type 'boolean)
3927 3939
3928(defvar term-completion-fignore nil 3940(defcustom term-completion-fignore nil
3929 "*List of suffixes to be disregarded during file completion. 3941 "List of suffixes to be disregarded during file completion.
3930This mirrors the optional behavior of bash and tcsh. 3942This mirrors the optional behavior of bash and tcsh.
3931 3943
3932Note that this applies to `term-dynamic-complete-filename' only.") 3944Note that this applies to `term-dynamic-complete-filename' only."
3945 :group 'term
3946 :type '(choice (const nil)
3947 (repeat :tag "List of suffixes" string)))
3933 3948
3934(defvar term-file-name-prefix "" 3949(defvar term-file-name-prefix ""
3935 "Prefix prepended to absolute file names taken from process input. 3950 "Prefix prepended to absolute file names taken from process input.