diff options
| author | Glenn Morris | 2011-02-16 21:13:17 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-02-16 21:13:17 -0800 |
| commit | 53ef76c7d3cd9932d8d3be981aef3a136cc8849d (patch) | |
| tree | 352f343ec9f2357fbbec8966aaf0da2ad5f77a81 /lisp/term.el | |
| parent | d638ac9ecc2f2fcf7c000ef0aa237826f1a1cda1 (diff) | |
| download | emacs-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.el | 51 |
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. |
| 767 | Term buffers are truncated from the top to be no greater than this number. | 767 | Term buffers are truncated from the top to be no greater than this number. |
| 768 | Notice that a setting of 0 means \"don't truncate anything\". This variable | 768 | Notice that a setting of 0 means \"don't truncate anything\". This variable |
| 769 | is buffer-local.") | 769 | is 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. |
| 2214 | If your process is choking on big inputs, try lowering the value.") | 2216 | If 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. |
| 3914 | This mirrors the optional behavior of tcsh.") | 3918 | This 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. |
| 3918 | If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where | 3924 | If a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where |
| 3919 | DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact | 3925 | DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact |
| 3920 | completion. This mirrors the optional behavior of tcsh.") | 3926 | completion. 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. |
| 3924 | This mirrors the optional behavior of tcsh. | 3934 | This mirrors the optional behavior of tcsh. |
| 3925 | 3935 | ||
| 3926 | A non-nil value is useful if `term-completion-autolist' is non-nil too.") | 3936 | A 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. |
| 3930 | This mirrors the optional behavior of bash and tcsh. | 3942 | This mirrors the optional behavior of bash and tcsh. |
| 3931 | 3943 | ||
| 3932 | Note that this applies to `term-dynamic-complete-filename' only.") | 3944 | Note 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. |