Remove * characters from the front of variable docstrings.
This commit is contained in:
Chong Yidong
parent
a18ecafa99
commit
fb7ada5f94
192 changed files with 1283 additions and 1283 deletions
|
|
@ -153,7 +153,7 @@ See `allout-widgets-mode' for allout widgets mode features."
|
|||
)
|
||||
;; ;;;_ = allout-widgets-allow-unruly-edits
|
||||
;; (defcustom allout-widgets-allow-unruly-edits nil
|
||||
;; "*Control whether manual edits are restricted to maintain outline integrity.
|
||||
;; "Control whether manual edits are restricted to maintain outline integrity.
|
||||
|
||||
;; When nil, manual edits must either be within an item's body or encompass
|
||||
;; one or more items completely - eg, killing topics as entities, rather than
|
||||
|
|
@ -203,21 +203,21 @@ See `allout-widgets-mode' for allout widgets mode features."
|
|||
;;;_ = allout-widgets-item-image-properties-emacs
|
||||
(defcustom allout-widgets-item-image-properties-emacs
|
||||
'(:ascent center :mask (heuristic t))
|
||||
"*Default properties item widget images in mainline Emacs."
|
||||
"Default properties item widget images in mainline Emacs."
|
||||
:version "24.1"
|
||||
:type 'plist
|
||||
:group 'allout-widgets)
|
||||
;;;_ = allout-widgets-item-image-properties-xemacs
|
||||
(defcustom allout-widgets-item-image-properties-xemacs
|
||||
nil
|
||||
"*Default properties item widget images in XEmacs."
|
||||
"Default properties item widget images in XEmacs."
|
||||
:version "24.1"
|
||||
:type 'plist
|
||||
:group 'allout-widgets)
|
||||
;;;_ . Developer
|
||||
;;;_ = allout-widgets-run-unit-tests-on-load
|
||||
(defcustom allout-widgets-run-unit-tests-on-load nil
|
||||
"*When non-nil, unit tests will be run at end of loading allout-widgets.
|
||||
"When non-nil, unit tests will be run at end of loading allout-widgets.
|
||||
|
||||
Generally, allout widgets code developers are the only ones who'll want to
|
||||
set this.
|
||||
|
|
@ -232,7 +232,7 @@ See `allout-widgets-run-unit-tests' to see what's run."
|
|||
:group 'allout-widgets-developer)
|
||||
;;;_ = allout-widgets-time-decoration-activity
|
||||
(defcustom allout-widgets-time-decoration-activity nil
|
||||
"*Retain timing info of the last cooperative redecoration.
|
||||
"Retain timing info of the last cooperative redecoration.
|
||||
|
||||
The details are retained as the value of
|
||||
`allout-widgets-last-decoration-timing'.
|
||||
|
|
@ -244,7 +244,7 @@ set this."
|
|||
:group 'allout-widgets-developer)
|
||||
;;;_ = allout-widgets-hook-error-post-time 0
|
||||
(defcustom allout-widgets-hook-error-post-time 0
|
||||
"*Amount of time to sit showing hook error messages.
|
||||
"Amount of time to sit showing hook error messages.
|
||||
|
||||
0 is minimal, or nil to not post to the message area.
|
||||
|
||||
|
|
@ -254,7 +254,7 @@ This is for debugging purposes."
|
|||
:group 'allout-widgets-developer)
|
||||
;;;_ = allout-widgets-maintain-tally nil
|
||||
(defcustom allout-widgets-maintain-tally nil
|
||||
"*If non-nil, maintain a collection of widgets, `allout-widgets-tally'.
|
||||
"If non-nil, maintain a collection of widgets, `allout-widgets-tally'.
|
||||
|
||||
This is for debugging purposes.
|
||||
|
||||
|
|
@ -290,7 +290,7 @@ The number varies according to the evanescence of objects on a
|
|||
(format ":%s" (hash-table-count allout-widgets-tally))))
|
||||
;;;_ = allout-widgets-track-decoration nil
|
||||
(defcustom allout-widgets-track-decoration nil
|
||||
"*If non-nil, show cursor position of each item decoration.
|
||||
"If non-nil, show cursor position of each item decoration.
|
||||
|
||||
This is for debugging purposes, and generally set at need in a
|
||||
buffer rather than as a prevailing configuration \(but it's handy
|
||||
|
|
@ -416,7 +416,7 @@ onto the front.")
|
|||
;;;_ , Widget-specific outline text format
|
||||
;;;_ = allout-escaped-prefix-regexp
|
||||
(defvar allout-escaped-prefix-regexp ""
|
||||
"*Regular expression for body text that would look like an item prefix if
|
||||
"Regular expression for body text that would look like an item prefix if
|
||||
not altered with an escape sequence.")
|
||||
(make-variable-buffer-local 'allout-escaped-prefix-regexp)
|
||||
;;;_ , Widget element formatting
|
||||
|
|
|
|||
|
|
@ -945,7 +945,7 @@ case the value of `allout-default-layout' is used.")
|
|||
;;;_ : Topic header format
|
||||
;;;_ = allout-regexp
|
||||
(defvar allout-regexp ""
|
||||
"*Regular expression to match the beginning of a heading line.
|
||||
"Regular expression to match the beginning of a heading line.
|
||||
|
||||
Any line whose beginning matches this regexp is considered a
|
||||
heading. This var is set according to the user configuration vars
|
||||
|
|
@ -965,7 +965,7 @@ and `allout-distinctive-bullets-string'.")
|
|||
(make-variable-buffer-local 'allout-bullets-string-len)
|
||||
;;;_ = allout-depth-specific-regexp
|
||||
(defvar allout-depth-specific-regexp ""
|
||||
"*Regular expression to match a heading line prefix for a particular depth.
|
||||
"Regular expression to match a heading line prefix for a particular depth.
|
||||
|
||||
This expression is used to search for depth-specific topic
|
||||
headers at depth 2 and greater. Use `allout-depth-one-regexp'
|
||||
|
|
@ -978,7 +978,7 @@ topic prefix to be matched.")
|
|||
(make-variable-buffer-local 'allout-depth-specific-regexp)
|
||||
;;;_ = allout-depth-one-regexp
|
||||
(defvar allout-depth-one-regexp ""
|
||||
"*Regular expression to match a heading line prefix for depth one.
|
||||
"Regular expression to match a heading line prefix for depth one.
|
||||
|
||||
This var is set according to the user configuration vars by
|
||||
`set-allout-regexp'. It is prepared with format strings for two
|
||||
|
|
@ -1403,10 +1403,10 @@ their settings before allout-mode was started."
|
|||
,expr))
|
||||
;;;_ = allout-mode-hook
|
||||
(defvar allout-mode-hook nil
|
||||
"*Hook that's run when allout mode starts.")
|
||||
"Hook that's run when allout mode starts.")
|
||||
;;;_ = allout-mode-deactivate-hook
|
||||
(defvar allout-mode-deactivate-hook nil
|
||||
"*Hook that's run when allout mode ends.")
|
||||
"Hook that's run when allout mode ends.")
|
||||
(define-obsolete-variable-alias 'allout-mode-deactivate-hook
|
||||
'allout-mode-off-hook "24.1")
|
||||
;;;_ = allout-exposure-category
|
||||
|
|
@ -1414,7 +1414,7 @@ their settings before allout-mode was started."
|
|||
"Symbol for use as allout invisible-text overlay category.")
|
||||
;;;_ = allout-exposure-change-hook
|
||||
(defvar allout-exposure-change-hook nil
|
||||
"*Hook that's run after allout outline subtree exposure changes.
|
||||
"Hook that's run after allout outline subtree exposure changes.
|
||||
|
||||
It is run at the conclusion of `allout-flag-region'.
|
||||
|
||||
|
|
@ -1427,7 +1427,7 @@ Functions on the hook must take three arguments:
|
|||
This hook might be invoked multiple times by a single command.")
|
||||
;;;_ = allout-structure-added-hook
|
||||
(defvar allout-structure-added-hook nil
|
||||
"*Hook that's run after addition of items to the outline.
|
||||
"Hook that's run after addition of items to the outline.
|
||||
|
||||
Functions on the hook should take two arguments:
|
||||
|
||||
|
|
@ -1437,7 +1437,7 @@ Functions on the hook should take two arguments:
|
|||
This hook might be invoked multiple times by a single command.")
|
||||
;;;_ = allout-structure-deleted-hook
|
||||
(defvar allout-structure-deleted-hook nil
|
||||
"*Hook that's run after disciplined deletion of subtrees from the outline.
|
||||
"Hook that's run after disciplined deletion of subtrees from the outline.
|
||||
|
||||
Functions on the hook must take two arguments:
|
||||
|
||||
|
|
@ -1450,7 +1450,7 @@ specifically edits that native allout routines do not control.
|
|||
This hook might be invoked multiple times by a single command.")
|
||||
;;;_ = allout-structure-shifted-hook
|
||||
(defvar allout-structure-shifted-hook nil
|
||||
"*Hook that's run after shifting of items in the outline.
|
||||
"Hook that's run after shifting of items in the outline.
|
||||
|
||||
Functions on the hook should take two arguments:
|
||||
|
||||
|
|
@ -1463,12 +1463,12 @@ that native allout routines do not control.
|
|||
This hook might be invoked multiple times by a single command.")
|
||||
;;;_ = allout-after-copy-or-kill-hook
|
||||
(defvar allout-after-copy-or-kill-hook nil
|
||||
"*Hook that's run after copying outline text.
|
||||
"Hook that's run after copying outline text.
|
||||
|
||||
Functions on the hook should not require any arguments.")
|
||||
;;;_ = allout-post-undo-hook
|
||||
(defvar allout-post-undo-hook nil
|
||||
"*Hook that's run after undo activity.
|
||||
"Hook that's run after undo activity.
|
||||
|
||||
The item that's current when the hook is run *may* be the one
|
||||
that was affected by the undo.
|
||||
|
|
|
|||
|
|
@ -302,7 +302,7 @@
|
|||
|
||||
|
||||
(defvar math-additional-units nil
|
||||
"*Additional units table for user-defined units.
|
||||
"Additional units table for user-defined units.
|
||||
Must be formatted like `math-standard-units'.
|
||||
If you change this, be sure to set `math-units-table' to nil to ensure
|
||||
that the combined units table will be rebuilt.")
|
||||
|
|
|
|||
|
|
@ -817,7 +817,7 @@ If nil, selections displayed but ignored.")
|
|||
Used by `calc-user-invocation'.")
|
||||
|
||||
(defcalcmodevar calc-show-banner t
|
||||
"*If non-nil, show a friendly greeting above the stack.")
|
||||
"If non-nil, show a friendly greeting above the stack.")
|
||||
|
||||
(defconst calc-local-var-list '(calc-stack
|
||||
calc-stack-top
|
||||
|
|
|
|||
|
|
@ -872,7 +872,7 @@ If PARENT is non-nil, it is somehow related as a parent to thing."
|
|||
"Keymap used in data-debug.")
|
||||
|
||||
(defcustom data-debug-mode-hook nil
|
||||
"*Hook run when data-debug starts."
|
||||
"Hook run when data-debug starts."
|
||||
:group 'data-debug
|
||||
:type 'hook)
|
||||
|
||||
|
|
|
|||
|
|
@ -77,7 +77,7 @@ this flag is ignored."
|
|||
(:background "#AAAA33"))
|
||||
(((class color) (background light))
|
||||
(:background "#FFFFAA")))
|
||||
"*Face used at beginning of a highlight."
|
||||
"Face used at beginning of a highlight."
|
||||
:group 'pulse)
|
||||
|
||||
(defface pulse-highlight-face
|
||||
|
|
@ -85,7 +85,7 @@ this flag is ignored."
|
|||
(:background "#AAAA33"))
|
||||
(((class color) (background light))
|
||||
(:background "#FFFFAA")))
|
||||
"*Face used during a pulse for display. *DO NOT CUSTOMIZE*
|
||||
"Face used during a pulse for display. *DO NOT CUSTOMIZE*
|
||||
Face used for temporary highlighting of tags for effect."
|
||||
:group 'pulse)
|
||||
|
||||
|
|
|
|||
|
|
@ -550,14 +550,14 @@ is requested."
|
|||
)
|
||||
|
||||
(defvar semantic-working-type 'percent
|
||||
"*The type of working message to use when parsing.
|
||||
"The type of working message to use when parsing.
|
||||
'percent means we are doing a linear parse through the buffer.
|
||||
'dynamic means we are reparsing specific tags.")
|
||||
(semantic-varalias-obsolete 'semantic-bovination-working-type
|
||||
'semantic-working-type "23.2")
|
||||
|
||||
(defvar semantic-minimum-working-buffer-size (* 1024 5)
|
||||
"*The minimum size of a buffer before working messages are displayed.
|
||||
"The minimum size of a buffer before working messages are displayed.
|
||||
Buffers smaller than this will parse silently.
|
||||
Buffers larger than this will display the working progress bar.")
|
||||
|
||||
|
|
|
|||
|
|
@ -344,18 +344,18 @@ are automatically added to the completion database."
|
|||
:group 'completion)
|
||||
|
||||
;;(defvar *record-cmpl-statistics-p* nil
|
||||
;; "*If non-nil, record completion statistics.")
|
||||
;; "If non-nil, record completion statistics.")
|
||||
|
||||
;;(defvar *completion-auto-save-period* 1800
|
||||
;; "*The period in seconds to wait for emacs to be idle before autosaving
|
||||
;; "The period in seconds to wait for emacs to be idle before autosaving
|
||||
;;the completions. Default is a 1/2 hour.")
|
||||
|
||||
(defvar completion-min-length 6
|
||||
"*The minimum length of a stored completion.
|
||||
"The minimum length of a stored completion.
|
||||
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
|
||||
|
||||
(defvar completion-max-length 200
|
||||
"*The maximum length of a stored completion.
|
||||
"The maximum length of a stored completion.
|
||||
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
|
||||
|
||||
(defvar completion-prefix-min-length 3
|
||||
|
|
|
|||
|
|
@ -157,22 +157,22 @@ selected frame and the focus will change to that frame."
|
|||
:type 'hook)
|
||||
|
||||
(defvar dframe-track-mouse-function nil
|
||||
"*A function to call when the mouse is moved in the given frame.
|
||||
"A function to call when the mouse is moved in the given frame.
|
||||
Typically used to display info about the line under the mouse.")
|
||||
(make-variable-buffer-local 'dframe-track-mouse-function)
|
||||
|
||||
(defvar dframe-help-echo-function nil
|
||||
"*A function to call when help-echo is used in newer versions of Emacs.
|
||||
"A function to call when help-echo is used in newer versions of Emacs.
|
||||
Typically used to display info about the line under the mouse.")
|
||||
(make-variable-buffer-local 'dframe-help-echo-function)
|
||||
|
||||
(defvar dframe-mouse-click-function nil
|
||||
"*A function to call when the mouse is clicked.
|
||||
"A function to call when the mouse is clicked.
|
||||
Valid clicks are mouse 2, our double mouse 1.")
|
||||
(make-variable-buffer-local 'dframe-mouse-click-function)
|
||||
|
||||
(defvar dframe-mouse-position-function nil
|
||||
"*A function to call to position the cursor for a mouse click.")
|
||||
"A function to call to position the cursor for a mouse click.")
|
||||
(make-variable-buffer-local 'dframe-mouse-position-function)
|
||||
|
||||
(defvar dframe-power-click nil
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@
|
|||
("\\.tp[ulpw]$" . t) ; borland Pascal stuff
|
||||
("[:/]tags$" . nil) ; emacs TAGS file
|
||||
)
|
||||
"*Alist for distinguishing text files from binary files.
|
||||
"Alist for distinguishing text files from binary files.
|
||||
Each element has the form (REGEXP . TYPE), where REGEXP is matched
|
||||
against the file name, and TYPE is nil for text, t for binary.")
|
||||
|
||||
|
|
@ -283,7 +283,7 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
|
|||
;;; Support for printing under DOS/Windows, see lpr.el and ps-print.el.
|
||||
|
||||
(defvar direct-print-region-use-command-dot-com t
|
||||
"*Control whether command.com is used to print on Windows 9x.")
|
||||
"Control whether command.com is used to print on Windows 9x.")
|
||||
|
||||
;; Function to actually send data to the printer port.
|
||||
;; Supports writing directly, and using various programs.
|
||||
|
|
|
|||
|
|
@ -82,7 +82,7 @@ Colors will be the background color.")
|
|||
Useful if new Emacs is used on B&W display.")
|
||||
|
||||
(defcustom chart-face-use-pixmaps nil
|
||||
"*Non-nil to use fancy pixmaps in the background of chart face colors."
|
||||
"Non-nil to use fancy pixmaps in the background of chart face colors."
|
||||
:group 'eieio
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -3744,7 +3744,7 @@ This prints the value into current buffer."
|
|||
|
||||
;; FIXME eh?
|
||||
(defvar gud-inhibit-global-bindings
|
||||
"*Non-nil means don't do global rebindings of C-x C-a subcommands.")
|
||||
"Non-nil means don't do global rebindings of C-x C-a subcommands.")
|
||||
|
||||
;; Global GUD bindings for all emacs-lisp-mode buffers.
|
||||
(unless gud-inhibit-global-bindings
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@
|
|||
;;
|
||||
|
||||
(defvar eieio-hook nil
|
||||
"*This hook is executed, then cleared each time `defclass' is called.")
|
||||
"This hook is executed, then cleared each time `defclass' is called.")
|
||||
|
||||
(defvar eieio-error-unsupported-class-tags nil
|
||||
"Non-nil to throw an error if an encountered tag is unsupported.
|
||||
|
|
@ -87,7 +87,7 @@ This may prevent classes from CLOS applications from being used with EIEIO
|
|||
since EIEIO does not support all CLOS tags.")
|
||||
|
||||
(defvar eieio-skip-typecheck nil
|
||||
"*If non-nil, skip all slot typechecking.
|
||||
"If non-nil, skip all slot typechecking.
|
||||
Set this to t permanently if a program is functioning well to get a
|
||||
small speed increase. This variable is also used internally to handle
|
||||
default setting for optimization purposes.")
|
||||
|
|
@ -2044,7 +2044,7 @@ During executions, the list is first generated, then as each next method
|
|||
is called, the next method is popped off the stack.")
|
||||
|
||||
(defvar eieio-pre-method-execution-hooks nil
|
||||
"*Hooks run just before a method is executed.
|
||||
"Hooks run just before a method is executed.
|
||||
The hook function must accept one argument, the list of forms
|
||||
about to be executed.")
|
||||
|
||||
|
|
|
|||
|
|
@ -1405,7 +1405,7 @@ RESULT must be an `ert-test-result-with-condition'."
|
|||
;;; Running tests in batch mode.
|
||||
|
||||
(defvar ert-batch-backtrace-right-margin 70
|
||||
"*The maximum line length for printing backtraces in `ert-run-tests-batch'.")
|
||||
"The maximum line length for printing backtraces in `ert-run-tests-batch'.")
|
||||
|
||||
;;;###autoload
|
||||
(defun ert-run-tests-batch (&optional selector)
|
||||
|
|
|
|||
|
|
@ -241,7 +241,7 @@ and idle timers such as are scheduled by `run-with-idle-timer'."
|
|||
"Third-to-last timer that was run.")
|
||||
|
||||
(defvar timer-max-repeats 10
|
||||
"*Maximum number of times to repeat a timer, if many repeats are delayed.
|
||||
"Maximum number of times to repeat a timer, if many repeats are delayed.
|
||||
Timer invocations can be delayed because Emacs is suspended or busy,
|
||||
or because the system's time changes. If such an occurrence makes it
|
||||
appear that many invocations are overdue, this variable controls
|
||||
|
|
|
|||
|
|
@ -2119,7 +2119,7 @@ Undo previous insertion and inserts new."
|
|||
(defcustom viper-smart-suffix-list
|
||||
'("" "tex" "c" "cc" "C" "java" "el" "html" "htm" "xml"
|
||||
"pl" "flr" "P" "p" "h" "H")
|
||||
"*List of suffixes that Viper tries to append to filenames ending with a `.'.
|
||||
"List of suffixes that Viper tries to append to filenames ending with a `.'.
|
||||
This is useful when the current directory contains files with the same
|
||||
prefix and many different suffixes. Usually, only one of the suffixes
|
||||
represents an editable file. However, file completion will stop at the `.'
|
||||
|
|
|
|||
|
|
@ -368,14 +368,14 @@ corresponding function symbol."
|
|||
(defvar viper-keep-reading-filename nil)
|
||||
|
||||
(defcustom ex-cycle-other-window t
|
||||
"*If t, :n and :b cycles through files and buffers in other window.
|
||||
"If t, :n and :b cycles through files and buffers in other window.
|
||||
Then :N and :B cycles in the current window. If nil, this behavior is
|
||||
reversed."
|
||||
:type 'boolean
|
||||
:group 'viper-ex)
|
||||
|
||||
(defcustom ex-cycle-through-non-files nil
|
||||
"*Cycle through *scratch* and other buffers that don't visit any file."
|
||||
"Cycle through *scratch* and other buffers that don't visit any file."
|
||||
:type 'boolean
|
||||
:group 'viper-ex)
|
||||
|
||||
|
|
|
|||
|
|
@ -372,7 +372,7 @@ Use `M-x viper-set-expert-level' to change this.")
|
|||
(defconst viper-buffer-undo-list-mark 'viper)
|
||||
|
||||
(defcustom viper-keep-point-on-undo nil
|
||||
"*Non-nil means not to move point while undoing commands.
|
||||
"Non-nil means not to move point while undoing commands.
|
||||
This style is different from Emacs and Vi. Try it to see if
|
||||
it better fits your working style."
|
||||
:type 'boolean
|
||||
|
|
@ -403,7 +403,7 @@ delete the text being replaced, as in standard Vi."
|
|||
:group 'viper)
|
||||
|
||||
(defcustom viper-replace-overlay-cursor-color "Red"
|
||||
"*Cursor color when Viper is in Replace state."
|
||||
"Cursor color when Viper is in Replace state."
|
||||
:type 'string
|
||||
:group 'viper)
|
||||
|
||||
|
|
@ -450,7 +450,7 @@ is non-nil."
|
|||
(defcustom viper-use-replace-region-delimiters
|
||||
(or (not (viper-has-face-support-p))
|
||||
(and (featurep 'xemacs) (eq (viper-device-type) 'tty)))
|
||||
"*If non-nil, Viper will always use `viper-replace-region-end-delimiter' and
|
||||
"If non-nil, Viper will always use `viper-replace-region-end-delimiter' and
|
||||
`viper-replace-region-start-delimiter' to delimit replacement regions, even on
|
||||
color displays. By default, the delimiters are used only on TTYs."
|
||||
:type 'boolean
|
||||
|
|
@ -519,7 +519,7 @@ text."
|
|||
|
||||
;; Fast keyseq and ESC keyseq timeouts
|
||||
(defcustom viper-fast-keyseq-timeout 200
|
||||
"*Key sequence separated by no more than this many milliseconds is viewed as a Vi-style macro, if such a macro is defined.
|
||||
"Key sequence separated by no more than this many milliseconds is viewed as a Vi-style macro, if such a macro is defined.
|
||||
Setting this too high may slow down your typing. Setting this value too low
|
||||
will make it hard to use Vi-style timeout macros."
|
||||
:type 'integer
|
||||
|
|
@ -549,14 +549,14 @@ will make it hard to use Vi-style timeout macros."
|
|||
|
||||
(viper-deflocalvar viper-auto-indent nil "")
|
||||
(defcustom viper-auto-indent nil
|
||||
"*Enable autoindent, if t.
|
||||
"Enable autoindent, if t.
|
||||
This is a buffer-local variable."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(viper-deflocalvar viper-electric-mode t "")
|
||||
(defcustom viper-electric-mode t
|
||||
"*If t, electrify Viper.
|
||||
"If t, electrify Viper.
|
||||
Currently, this only electrifies auto-indentation, making it appropriate to the
|
||||
mode of the buffer.
|
||||
This means that auto-indentation will depart from standard Vi and will indent
|
||||
|
|
@ -566,7 +566,7 @@ programs and LaTeX documents."
|
|||
:group 'viper)
|
||||
|
||||
(defcustom viper-shift-width 8
|
||||
"*The value of the shiftwidth.
|
||||
"The value of the shiftwidth.
|
||||
This determines the number of columns by which the Ctl-t moves the cursor in
|
||||
the Insert state."
|
||||
:type 'integer
|
||||
|
|
@ -575,7 +575,7 @@ the Insert state."
|
|||
;; Variables for repeating destructive commands
|
||||
|
||||
(defcustom viper-keep-point-on-repeat t
|
||||
"*If t, don't move point when repeating previous command.
|
||||
"If t, don't move point when repeating previous command.
|
||||
This is useful for doing repeated changes with the '.' key.
|
||||
The user can change this to nil, if she likes when the cursor moves
|
||||
to a new place after repeating previous Vi command."
|
||||
|
|
@ -668,18 +668,18 @@ to a new place after repeating previous Vi command."
|
|||
(defvar viper-s-forward nil)
|
||||
|
||||
(defcustom viper-case-fold-search nil
|
||||
"*If not nil, search ignores cases."
|
||||
"If not nil, search ignores cases."
|
||||
:type 'boolean
|
||||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-re-search t
|
||||
"*If not nil, search is regexp search, otherwise vanilla search."
|
||||
"If not nil, search is regexp search, otherwise vanilla search."
|
||||
:type 'boolean
|
||||
:tag "Regexp Search"
|
||||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-search-scroll-threshold 2
|
||||
"*If search lands within this threshold from the window top/bottom,
|
||||
"If search lands within this threshold from the window top/bottom,
|
||||
the window will be scrolled up or down appropriately, to reveal context.
|
||||
If you want Viper search to behave as usual in Vi, set this variable to a
|
||||
negative number."
|
||||
|
|
@ -687,32 +687,32 @@ negative number."
|
|||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-re-query-replace t
|
||||
"*If t then do regexp replace, if nil then do string replace."
|
||||
"If t then do regexp replace, if nil then do string replace."
|
||||
:type 'boolean
|
||||
:tag "Regexp Query Replace"
|
||||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-re-replace t
|
||||
"*If t, do regexp replace. nil means do string replace."
|
||||
"If t, do regexp replace. nil means do string replace."
|
||||
:type 'boolean
|
||||
:tag "Regexp Replace"
|
||||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-parse-sexp-ignore-comments t
|
||||
"*If t, `%' ignores the parentheses that occur inside comments."
|
||||
"If t, `%' ignores the parentheses that occur inside comments."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(viper-deflocalvar viper-ex-style-motion t "")
|
||||
(defcustom viper-ex-style-motion t
|
||||
"*If t, the commands l,h do not cross lines, etc (Ex-style).
|
||||
"If t, the commands l,h do not cross lines, etc (Ex-style).
|
||||
If nil, these commands cross line boundaries."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(viper-deflocalvar viper-ex-style-editing t "")
|
||||
(defcustom viper-ex-style-editing t
|
||||
"*If t, Ex-style behavior while editing in Vi command and insert states.
|
||||
"If t, Ex-style behavior while editing in Vi command and insert states.
|
||||
`Backspace' and `Delete' don't cross line boundaries in insert.
|
||||
`X' and `x' can't delete characters across line boundary in Vi, etc.
|
||||
Note: this doesn't preclude `Backspace' and `Delete' from deleting characters
|
||||
|
|
@ -724,32 +724,32 @@ If nil, the above commands can work across lines."
|
|||
|
||||
(viper-deflocalvar viper-ESC-moves-cursor-back viper-ex-style-editing "")
|
||||
(defcustom viper-ESC-moves-cursor-back nil
|
||||
"*If t, ESC moves cursor back when changing from insert to vi state.
|
||||
"If t, ESC moves cursor back when changing from insert to vi state.
|
||||
If nil, the cursor stays where it was when ESC was hit."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(viper-deflocalvar viper-delete-backwards-in-replace nil "")
|
||||
(defcustom viper-delete-backwards-in-replace nil
|
||||
"*If t, DEL key will delete characters while moving the cursor backwards.
|
||||
"If t, DEL key will delete characters while moving the cursor backwards.
|
||||
If nil, the cursor will move backwards without deleting anything."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(defcustom viper-buffer-search-char nil
|
||||
"*Key used for buffer-searching. Must be a character type, e.g., ?g."
|
||||
"Key used for buffer-searching. Must be a character type, e.g., ?g."
|
||||
:type '(choice (const nil) character)
|
||||
:group 'viper-search)
|
||||
|
||||
(defcustom viper-search-wrap-around t
|
||||
"*If t, search wraps around."
|
||||
"If t, search wraps around."
|
||||
:type 'boolean
|
||||
:tag "Search Wraps Around"
|
||||
:group 'viper-search)
|
||||
|
||||
(viper-deflocalvar viper-related-files-and-buffers-ring nil "")
|
||||
(defcustom viper-related-files-and-buffers-ring nil
|
||||
"*List of file and buffer names that are considered to be related to the current buffer.
|
||||
"List of file and buffer names that are considered to be related to the current buffer.
|
||||
Related buffers can be cycled through via :R and :P commands."
|
||||
:type 'boolean
|
||||
:group 'viper-misc)
|
||||
|
|
@ -771,7 +771,7 @@ Related buffers can be cycled through via :R and :P commands."
|
|||
"^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex
|
||||
"^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo
|
||||
"^.+:-") ; prolog
|
||||
"*Regexps for Headings. Used by \[\[ and \]\].")
|
||||
"Regexps for Headings. Used by \[\[ and \]\].")
|
||||
|
||||
(defvar viper-heading-end
|
||||
(concat "^}\\|" ; C/C++
|
||||
|
|
@ -826,7 +826,7 @@ Related buffers can be cycled through via :R and :P commands."
|
|||
(defface viper-search
|
||||
'((((class color)) (:foreground "Black" :background "khaki"))
|
||||
(t (:underline t :stipple "gray3")))
|
||||
"*Face used to flash out the search pattern."
|
||||
"Face used to flash out the search pattern."
|
||||
:group 'viper-highlighting)
|
||||
;; An internal variable. Viper takes the face from here.
|
||||
(defvar viper-search-face 'viper-search
|
||||
|
|
@ -838,7 +838,7 @@ this variable represents.")
|
|||
(defface viper-replace-overlay
|
||||
'((((class color)) (:foreground "Black" :background "darkseagreen2"))
|
||||
(t (:underline t :stipple "gray3")))
|
||||
"*Face for highlighting replace regions on a window display."
|
||||
"Face for highlighting replace regions on a window display."
|
||||
:group 'viper-highlighting)
|
||||
;; An internal variable. Viper takes the face from here.
|
||||
(defvar viper-replace-overlay-face 'viper-replace-overlay
|
||||
|
|
@ -946,19 +946,19 @@ Should be set in `~/.viper' file."
|
|||
:group 'viper)
|
||||
|
||||
(defcustom viper-vi-state-hook 'viper-restore-cursor-type
|
||||
"*Hooks run just before the switch to Vi mode is completed."
|
||||
"Hooks run just before the switch to Vi mode is completed."
|
||||
:type 'hook
|
||||
:group 'viper-hooks)
|
||||
(defcustom viper-insert-state-hook 'viper-set-insert-cursor-type
|
||||
"*Hooks run just before the switch to Insert mode is completed."
|
||||
"Hooks run just before the switch to Insert mode is completed."
|
||||
:type 'hook
|
||||
:group 'viper-hooks)
|
||||
(defcustom viper-replace-state-hook 'viper-restore-cursor-type
|
||||
"*Hooks run just before the switch to Replace mode is completed."
|
||||
"Hooks run just before the switch to Replace mode is completed."
|
||||
:type 'hook
|
||||
:group 'viper-hooks)
|
||||
(defcustom viper-emacs-state-hook 'viper-restore-cursor-type
|
||||
"*Hooks run just before the switch to Emacs mode is completed."
|
||||
"Hooks run just before the switch to Emacs mode is completed."
|
||||
:type 'hook
|
||||
:group 'viper-hooks)
|
||||
|
||||
|
|
@ -980,7 +980,7 @@ Should be set in `~/.viper' file."
|
|||
(setq cursor-type '(bar . 2))))
|
||||
|
||||
(defun viper-ESC-keyseq-timeout ()
|
||||
"*Key sequence beginning with ESC and separated by no more than this many milliseconds is considered to be generated by a keyboard function key.
|
||||
"Key sequence beginning with ESC and separated by no more than this many milliseconds is considered to be generated by a keyboard function key.
|
||||
Setting this too high may slow down switching from insert to vi state. Setting
|
||||
this value too low will make it impossible to use function keys in insert mode
|
||||
on a dumb terminal."
|
||||
|
|
|
|||
|
|
@ -48,19 +48,19 @@
|
|||
;;; Emacs keys in other states.
|
||||
|
||||
(defcustom viper-want-emacs-keys-in-insert t
|
||||
"*Set to nil if you want complete Vi compatibility in insert mode.
|
||||
"Set to nil if you want complete Vi compatibility in insert mode.
|
||||
Complete compatibility with Vi is not recommended for power use of Viper."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(defcustom viper-want-emacs-keys-in-vi t
|
||||
"*Set to nil if you want complete Vi compatibility in Vi mode.
|
||||
"Set to nil if you want complete Vi compatibility in Vi mode.
|
||||
Full Vi compatibility is not recommended for power use of Viper."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
(defcustom viper-no-multiple-ESC t
|
||||
"*If true, multiple ESC in Vi mode will cause bell to ring.
|
||||
"If true, multiple ESC in Vi mode will cause bell to ring.
|
||||
This is set to t on a windowing terminal and to 'twice on a dumb
|
||||
terminal (unless the user level is 1, 2, or 5). On a dumb terminal, this
|
||||
enables cursor keys and is generally more convenient, as terminals usually
|
||||
|
|
@ -71,7 +71,7 @@ as is allowed by the major mode in effect."
|
|||
:group 'viper)
|
||||
|
||||
(defcustom viper-want-ctl-h-help nil
|
||||
"*If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings."
|
||||
"If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings."
|
||||
:type 'boolean
|
||||
:group 'viper)
|
||||
|
||||
|
|
|
|||
|
|
@ -63,7 +63,7 @@
|
|||
(defvar viper-current-frame-saved (selected-frame))
|
||||
|
||||
(defcustom viper-surrounding-word-function 'viper-surrounding-word
|
||||
"*Function that determines what constitutes a word for clicking events.
|
||||
"Function that determines what constitutes a word for clicking events.
|
||||
Takes two parameters: a COUNT, indicating how many words to return,
|
||||
and CLICK-COUNT, telling whether this is the first click, a double-click,
|
||||
or a triple-click."
|
||||
|
|
@ -77,7 +77,7 @@ or a triple-click."
|
|||
mouse-track-multi-click-time
|
||||
double-click-time)
|
||||
500)
|
||||
"*Time interval in millisecond within which successive mouse clicks are
|
||||
"Time interval in millisecond within which successive mouse clicks are
|
||||
considered related."
|
||||
:type 'integer
|
||||
:group 'viper-mouse)
|
||||
|
|
@ -624,7 +624,7 @@ bindings in the Viper manual."
|
|||
|
||||
|
||||
(defcustom viper-mouse-search-key '(meta shift 1)
|
||||
"*Key used to click-search in Viper.
|
||||
"Key used to click-search in Viper.
|
||||
This must be a list that specifies the mouse button and modifiers.
|
||||
The supported modifiers are `meta', `shift', and `control'.
|
||||
For instance, `(meta shift 1)' means that holding the meta and shift
|
||||
|
|
@ -640,7 +640,7 @@ This buffer may be different from the one where the click occurred."
|
|||
:group 'viper-mouse)
|
||||
|
||||
(defcustom viper-mouse-insert-key '(meta shift 2)
|
||||
"*Key used to click-insert in Viper.
|
||||
"Key used to click-insert in Viper.
|
||||
Must be a list that specifies the mouse button and modifiers.
|
||||
The supported modifiers are `meta', `shift', and `control'.
|
||||
For instance, `(meta shift 2)' means that holding the meta and shift keys
|
||||
|
|
|
|||
|
|
@ -1323,7 +1323,7 @@ sets the default value."
|
|||
(viper-update-syntax-classes))
|
||||
|
||||
(defcustom viper-syntax-preference 'reformed-vi
|
||||
"*Syntax type characterizing Viper's alphanumeric symbols.
|
||||
"Syntax type characterizing Viper's alphanumeric symbols.
|
||||
Affects movement and change commands that deal with Vi-style words.
|
||||
Works best when set in the hooks to various major modes.
|
||||
|
||||
|
|
|
|||
|
|
@ -435,7 +435,7 @@ widget."
|
|||
view-mode
|
||||
vm-mode
|
||||
vm-summary-mode)
|
||||
"*A list of major modes that should come up in Emacs state.
|
||||
"A list of major modes that should come up in Emacs state.
|
||||
Normally, Viper would bring buffers up in Emacs state, unless the corresponding
|
||||
major mode has been placed on `viper-vi-state-mode-list' or
|
||||
`viper-insert-state-mode-list'. So, don't place a new mode on this list,
|
||||
|
|
@ -451,7 +451,7 @@ unless it is coming up in a wrong Viper state."
|
|||
erc-mode
|
||||
eshell-mode
|
||||
shell-mode)
|
||||
"*A list of major modes that should come up in Vi Insert state."
|
||||
"A list of major modes that should come up in Vi Insert state."
|
||||
:type '(repeat symbol)
|
||||
:group 'viper-misc)
|
||||
|
||||
|
|
|
|||
|
|
@ -177,18 +177,18 @@ the separate window."
|
|||
(20 . ?G)))
|
||||
|
||||
(defvar epa-protocol 'OpenPGP
|
||||
"*The default protocol.
|
||||
"The default protocol.
|
||||
The value can be either OpenPGP or CMS.
|
||||
|
||||
You should bind this variable with `let', but do not set it globally.")
|
||||
|
||||
(defvar epa-armor nil
|
||||
"*If non-nil, epa commands create ASCII armored output.
|
||||
"If non-nil, epa commands create ASCII armored output.
|
||||
|
||||
You should bind this variable with `let', but do not set it globally.")
|
||||
|
||||
(defvar epa-textmode nil
|
||||
"*If non-nil, epa commands treat input files as text.
|
||||
"If non-nil, epa commands treat input files as text.
|
||||
|
||||
You should bind this variable with `let', but do not set it globally.")
|
||||
|
||||
|
|
|
|||
|
|
@ -138,7 +138,7 @@ Related variables: `erc-public-away-p' and `erc-away-nickname'."
|
|||
(remove-hook 'erc-server-305-functions 'erc-autoaway-reset-indicators))))
|
||||
|
||||
(defcustom erc-autoaway-idle-method 'user
|
||||
"*The method used to determine how long you have been idle.
|
||||
"The method used to determine how long you have been idle.
|
||||
If 'user, the time of the last command sent to Emacs is used.
|
||||
If 'emacs, the idle time in Emacs is used.
|
||||
If 'irc, the time of the last IRC command is used.
|
||||
|
|
@ -160,7 +160,7 @@ definitions of being idle."
|
|||
(set sym val))))
|
||||
|
||||
(defcustom erc-auto-set-away t
|
||||
"*If non-nil, set away after `erc-autoaway-idle-seconds' seconds of idling.
|
||||
"If non-nil, set away after `erc-autoaway-idle-seconds' seconds of idling.
|
||||
ERC autoaway mode can set you away when you idle, and set you no
|
||||
longer away when you type something. This variable controls whether
|
||||
you will be set away when you idle. See `erc-auto-discard-away' for
|
||||
|
|
@ -169,7 +169,7 @@ the other half."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-auto-discard-away t
|
||||
"*If non-nil, sending anything when away automatically discards away state.
|
||||
"If non-nil, sending anything when away automatically discards away state.
|
||||
ERC autoaway mode can set you away when you idle, and set you no
|
||||
longer away when you type something. This variable controls whether
|
||||
you will be set no longer away when you type something. See
|
||||
|
|
@ -179,13 +179,13 @@ See also `erc-autoaway-no-auto-discard-regexp'."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-autoaway-no-auto-discard-regexp "^/g?away.*$"
|
||||
"*Input that matches this will not automatically discard away status.
|
||||
"Input that matches this will not automatically discard away status.
|
||||
See `erc-auto-discard-away'."
|
||||
:group 'erc-autoaway
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom erc-autoaway-idle-seconds 1800
|
||||
"*Number of seconds after which ERC will set you automatically away.
|
||||
"Number of seconds after which ERC will set you automatically away.
|
||||
If you are changing this variable using lisp instead of customizing it,
|
||||
you have to run `erc-autoaway-reestablish-idletimer' afterwards."
|
||||
:group 'erc-autoaway
|
||||
|
|
@ -197,7 +197,7 @@ you have to run `erc-autoaway-reestablish-idletimer' afterwards."
|
|||
|
||||
(defcustom erc-autoaway-message
|
||||
"I'm gone (autoaway after %i seconds of idletime)"
|
||||
"*Message ERC will use when setting you automatically away.
|
||||
"Message ERC will use when setting you automatically away.
|
||||
It is used as a `format' string with the argument of the idletime
|
||||
in seconds."
|
||||
:group 'erc-autoaway
|
||||
|
|
|
|||
|
|
@ -311,7 +311,7 @@ If a key is pressed while ERC is waiting, it will stop waiting."
|
|||
:type 'number)
|
||||
|
||||
(defcustom erc-split-line-length 440
|
||||
"*The maximum length of a single message.
|
||||
"The maximum length of a single message.
|
||||
If a message exceeds this size, it is broken into multiple ones.
|
||||
|
||||
IRC allows for lines up to 512 bytes. Two of them are CR LF.
|
||||
|
|
@ -379,14 +379,14 @@ It should take same arguments as `open-network-stream' does."
|
|||
:type 'function)
|
||||
|
||||
(defcustom erc-server-prevent-duplicates '("301")
|
||||
"*Either nil or a list of strings.
|
||||
"Either nil or a list of strings.
|
||||
Each string is a IRC message type, like PRIVMSG or NOTICE.
|
||||
All Message types in that list of subjected to duplicate prevention."
|
||||
:type '(choice (const nil) (list string))
|
||||
:group 'erc-server)
|
||||
|
||||
(defcustom erc-server-duplicate-timeout 60
|
||||
"*The time allowed in seconds between duplicate messages.
|
||||
"The time allowed in seconds between duplicate messages.
|
||||
|
||||
If two identical messages arrive within this value of one another, the second
|
||||
isn't displayed."
|
||||
|
|
@ -399,7 +399,7 @@ isn't displayed."
|
|||
;; (http://www.nongnu.org/circe)
|
||||
|
||||
(defcustom erc-server-flood-margin 10
|
||||
"*A margin on how much excess data we send.
|
||||
"A margin on how much excess data we send.
|
||||
The flood protection algorithm of ERC works like the one
|
||||
detailed in RFC 2813, section 5.8 \"Flood control of clients\".
|
||||
|
||||
|
|
@ -423,14 +423,14 @@ protection algorithm."
|
|||
;; Ping handling
|
||||
|
||||
(defcustom erc-server-send-ping-interval 30
|
||||
"*Interval of sending pings to the server, in seconds.
|
||||
"Interval of sending pings to the server, in seconds.
|
||||
If this is set to nil, pinging the server is disabled."
|
||||
:group 'erc-server
|
||||
:type '(choice (const :tag "Disabled" nil)
|
||||
(integer :tag "Seconds")))
|
||||
|
||||
(defcustom erc-server-send-ping-timeout 120
|
||||
"*If the time between ping and response is greater than this, reconnect.
|
||||
"If the time between ping and response is greater than this, reconnect.
|
||||
The time is in seconds.
|
||||
|
||||
This must be greater than or equal to the value for
|
||||
|
|
|
|||
|
|
@ -115,13 +115,13 @@ longer than `erc-fill-column'."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-button-rfc-url "http://www.faqs.org/rfcs/rfc%s.html"
|
||||
"*URL used to browse rfc references.
|
||||
"URL used to browse rfc references.
|
||||
%s is replaced by the number."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-button-google-url "http://www.google.com/search?q=%s"
|
||||
"*URL used to browse Google search references.
|
||||
"URL used to browse Google search references.
|
||||
%s is replaced by the search string."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
|
@ -155,7 +155,7 @@ longer than `erc-fill-column'."
|
|||
1)
|
||||
;; other
|
||||
("\\s-\\(@\\([0-9][0-9][0-9]\\)\\)" 1 t erc-button-beats-to-time 2))
|
||||
"*Alist of regexps matching buttons in ERC buffers.
|
||||
"Alist of regexps matching buttons in ERC buffers.
|
||||
Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
|
||||
|
||||
REGEXP is the string matching text around the button or a symbol
|
||||
|
|
@ -198,12 +198,12 @@ PAR is a number of a regexp grouping whose text will be passed to
|
|||
(integer :tag "Regexp section number")))))
|
||||
|
||||
(defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?"
|
||||
"*URL of the EmacsWiki Homepage."
|
||||
"URL of the EmacsWiki Homepage."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/"
|
||||
"*URL of the EmacsWiki ELisp area."
|
||||
"URL of the EmacsWiki ELisp area."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
||||
|
|
@ -488,7 +488,7 @@ For use on `completion-at-point-functions'."
|
|||
("Query" . (erc-cmd-QUERY nick))
|
||||
("Whois" . (erc-cmd-WHOIS nick))
|
||||
("Lastlog" . (erc-cmd-LASTLOG nick)))
|
||||
"*An alist of possible actions to take on a nickname.
|
||||
"An alist of possible actions to take on a nickname.
|
||||
An entry looks like (\"Action\" . SEXP) where SEXP is evaluated with
|
||||
the variable `nick' bound to the nick in question.
|
||||
|
||||
|
|
|
|||
|
|
@ -75,7 +75,7 @@ IRC users."
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-dcc-verbose nil
|
||||
"*If non-nil, be verbose about DCC activity reporting."
|
||||
"If non-nil, be verbose about DCC activity reporting."
|
||||
:group 'erc-dcc
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -316,7 +316,7 @@ Should be set to a string or nil. If nil, use the value of
|
|||
:valid-regexp erc-dcc-ipv4-regexp)))
|
||||
|
||||
(defcustom erc-dcc-send-request 'ask
|
||||
"*How to treat incoming DCC Send requests.
|
||||
"How to treat incoming DCC Send requests.
|
||||
'ask - Report the Send request, and wait for the user to manually accept it
|
||||
You might want to set `erc-dcc-auto-masks' for this.
|
||||
'auto - Automatically accept the request and begin downloading the file
|
||||
|
|
@ -405,7 +405,7 @@ the accepted connection."
|
|||
;;; Interactive command handling
|
||||
|
||||
(defcustom erc-dcc-get-default-directory nil
|
||||
"*Default directory for incoming DCC file transfers.
|
||||
"Default directory for incoming DCC file transfers.
|
||||
If this is nil, then the current value of `default-directory' is used."
|
||||
:group 'erc-dcc
|
||||
:type '(choice (const nil :tag "Default directory") directory))
|
||||
|
|
@ -719,7 +719,7 @@ match, returns that regexp and nil otherwise."
|
|||
"^DCC CHAT +chat +\\([0-9]+\\) +\\([0-9]+\\)")
|
||||
|
||||
(defcustom erc-dcc-chat-request 'ask
|
||||
"*How to treat incoming DCC Chat requests.
|
||||
"How to treat incoming DCC Chat requests.
|
||||
'ask - Report the Chat request, and wait for the user to manually accept it
|
||||
'auto - Automatically accept the request and open a new chat window
|
||||
'ignore - Ignore incoming DCC chat requests completely."
|
||||
|
|
@ -777,12 +777,12 @@ match, returns that regexp and nil otherwise."
|
|||
;;; SEND handling
|
||||
|
||||
(defcustom erc-dcc-block-size 1024
|
||||
"*Block size to use for DCC SEND sessions."
|
||||
"Block size to use for DCC SEND sessions."
|
||||
:group 'erc-dcc
|
||||
:type 'integer)
|
||||
|
||||
(defcustom erc-dcc-pump-bytes nil
|
||||
"*If set to an integer, keep sending until that number of bytes are
|
||||
"If set to an integer, keep sending until that number of bytes are
|
||||
unconfirmed."
|
||||
:group 'erc-dcc
|
||||
:type '(choice (const nil) integer))
|
||||
|
|
@ -856,7 +856,7 @@ bytes sent."
|
|||
|
||||
(defcustom erc-dcc-send-connect-hook
|
||||
'(erc-dcc-display-send erc-dcc-send-block)
|
||||
"*Hook run whenever the remote end of a DCC SEND offer connected to your
|
||||
"Hook run whenever the remote end of a DCC SEND offer connected to your
|
||||
listening port."
|
||||
:group 'erc-dcc
|
||||
:type 'hook)
|
||||
|
|
@ -1046,12 +1046,12 @@ transfer is complete."
|
|||
;;; CHAT handling
|
||||
|
||||
(defcustom erc-dcc-chat-buffer-name-format "DCC-CHAT-%s"
|
||||
"*Format to use for DCC Chat buffer names."
|
||||
"Format to use for DCC Chat buffer names."
|
||||
:group 'erc-dcc
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-dcc-chat-mode-hook nil
|
||||
"*Hook calls when `erc-dcc-chat-mode' finished setting up the buffer."
|
||||
"Hook calls when `erc-dcc-chat-mode' finished setting up the buffer."
|
||||
:group 'erc-dcc
|
||||
:type 'hook)
|
||||
|
||||
|
|
@ -1100,7 +1100,7 @@ Possible values are: ask, auto, ignore."
|
|||
(defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ)
|
||||
|
||||
(defvar erc-dcc-chat-filter-hook '(erc-dcc-chat-parse-output)
|
||||
"*Hook to run after doing parsing (and possible insertion) of DCC messages.")
|
||||
"Hook to run after doing parsing (and possible insertion) of DCC messages.")
|
||||
|
||||
(defvar erc-dcc-chat-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
|
|
|
|||
|
|
@ -183,7 +183,7 @@ themselves."
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-interpret-controls-p t
|
||||
"*If non-nil, display IRC colors and other highlighting effects.
|
||||
"If non-nil, display IRC colors and other highlighting effects.
|
||||
|
||||
If this is set to the symbol `remove', ERC removes all IRC colors and
|
||||
highlighting effects. When this variable is non-nil, it can cause Emacs to run
|
||||
|
|
@ -196,7 +196,7 @@ emergency (message flood) it can be turned off to save processing time. See
|
|||
(const :tag "Display raw control characters" nil)))
|
||||
|
||||
(defcustom erc-interpret-mirc-color nil
|
||||
"*If non-nil, ERC will interpret mIRC color codes."
|
||||
"If non-nil, ERC will interpret mIRC color codes."
|
||||
:group 'erc-control-characters
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-generate-log-file-name-function 'erc-generate-log-file-name-long
|
||||
"*A function to generate a log filename.
|
||||
"A function to generate a log filename.
|
||||
The function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT.
|
||||
BUFFER is the buffer to be saved,
|
||||
TARGET is the name of the channel, or the target of the query,
|
||||
|
|
@ -157,12 +157,12 @@ arguments."
|
|||
(const :tag "Disable logging" nil)))
|
||||
|
||||
(defcustom erc-log-insert-log-on-open nil
|
||||
"*Insert log file contents into the buffer if a log file exists."
|
||||
"Insert log file contents into the buffer if a log file exists."
|
||||
:group 'erc-log
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-save-buffer-on-part t
|
||||
"*Save the channel buffer content using `erc-save-buffer-in-logs' on PART.
|
||||
"Save the channel buffer content using `erc-save-buffer-in-logs' on PART.
|
||||
|
||||
If you set this to nil, you may want to enable both
|
||||
`erc-log-write-after-send' and `erc-log-write-after-insert'."
|
||||
|
|
@ -170,7 +170,7 @@ If you set this to nil, you may want to enable both
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-save-queries-on-quit t
|
||||
"*Save all query (also channel) buffers of the server on QUIT.
|
||||
"Save all query (also channel) buffers of the server on QUIT.
|
||||
|
||||
If you set this to nil, you may want to enable both
|
||||
`erc-log-write-after-send' and `erc-log-write-after-insert'."
|
||||
|
|
@ -178,7 +178,7 @@ If you set this to nil, you may want to enable both
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-log-write-after-send nil
|
||||
"*If non-nil, write to log file after every message you send.
|
||||
"If non-nil, write to log file after every message you send.
|
||||
|
||||
If you set this to nil, you may want to enable both
|
||||
`erc-save-buffer-on-part' and `erc-save-queries-on-quit'."
|
||||
|
|
@ -186,7 +186,7 @@ If you set this to nil, you may want to enable both
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-log-write-after-insert nil
|
||||
"*If non-nil, write to log file when new text is added to a
|
||||
"If non-nil, write to log file when new text is added to a
|
||||
logged ERC buffer.
|
||||
|
||||
If you set this to nil, you may want to enable both
|
||||
|
|
@ -197,14 +197,14 @@ If you set this to nil, you may want to enable both
|
|||
(defcustom erc-log-file-coding-system (if (featurep 'xemacs)
|
||||
'binary
|
||||
'emacs-mule)
|
||||
"*The coding system ERC should use for writing log files.
|
||||
"The coding system ERC should use for writing log files.
|
||||
|
||||
This should ideally, be a \"catch-all\" coding system, like
|
||||
`emacs-mule', or `iso-2022-7bit'."
|
||||
:group 'erc-log)
|
||||
|
||||
(defcustom erc-log-filter-function nil
|
||||
"*If non-nil, pass text through the given function before writing it to
|
||||
"If non-nil, pass text through the given function before writing it to
|
||||
a log file.
|
||||
|
||||
The function should take one argument, which is the text to filter."
|
||||
|
|
|
|||
|
|
@ -83,7 +83,7 @@ Useful to mark nicks from dangerous hosts."
|
|||
:type '(repeat regexp))
|
||||
|
||||
(defcustom erc-current-nick-highlight-type 'keyword
|
||||
"*Determines how to highlight text in which your current nickname appears
|
||||
"Determines how to highlight text in which your current nickname appears
|
||||
\(does not apply to text sent by you\).
|
||||
|
||||
The following values are allowed:
|
||||
|
|
@ -105,7 +105,7 @@ Any other value disables highlighting of current nickname altogether."
|
|||
(const all)))
|
||||
|
||||
(defcustom erc-pal-highlight-type 'nick
|
||||
"*Determines how to highlight messages by pals.
|
||||
"Determines how to highlight messages by pals.
|
||||
See `erc-pals'.
|
||||
|
||||
The following values are allowed:
|
||||
|
|
@ -121,7 +121,7 @@ Any other value disables pal highlighting altogether."
|
|||
(const all)))
|
||||
|
||||
(defcustom erc-fool-highlight-type 'nick
|
||||
"*Determines how to highlight messages by fools.
|
||||
"Determines how to highlight messages by fools.
|
||||
See `erc-fools'.
|
||||
|
||||
The following values are allowed:
|
||||
|
|
@ -137,7 +137,7 @@ Any other value disables fool highlighting altogether."
|
|||
(const all)))
|
||||
|
||||
(defcustom erc-keyword-highlight-type 'keyword
|
||||
"*Determines how to highlight messages containing keywords.
|
||||
"Determines how to highlight messages containing keywords.
|
||||
See variable `erc-keywords'.
|
||||
|
||||
The following values are allowed:
|
||||
|
|
@ -152,7 +152,7 @@ Any other value disables keyword highlighting altogether."
|
|||
(const all)))
|
||||
|
||||
(defcustom erc-dangerous-host-highlight-type 'nick
|
||||
"*Determines how to highlight messages by nicks from dangerous-hosts.
|
||||
"Determines how to highlight messages by nicks from dangerous-hosts.
|
||||
See `erc-dangerous-hosts'.
|
||||
|
||||
The following values are allowed:
|
||||
|
|
|
|||
|
|
@ -40,19 +40,19 @@
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-notify-list nil
|
||||
"*List of nicknames you want to be notified about online/offline
|
||||
"List of nicknames you want to be notified about online/offline
|
||||
status change."
|
||||
:group 'erc-notify
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom erc-notify-interval 60
|
||||
"*Time interval (in seconds) for checking online status of notified
|
||||
"Time interval (in seconds) for checking online status of notified
|
||||
people."
|
||||
:group 'erc-notify
|
||||
:type 'integer)
|
||||
|
||||
(defcustom erc-notify-signon-hook nil
|
||||
"*Hook run after someone on `erc-notify-list' has signed on.
|
||||
"Hook run after someone on `erc-notify-list' has signed on.
|
||||
Two arguments are passed to the function, SERVER and NICK, both
|
||||
strings."
|
||||
:group 'erc-notify
|
||||
|
|
@ -60,7 +60,7 @@ strings."
|
|||
:options '(erc-notify-signon))
|
||||
|
||||
(defcustom erc-notify-signoff-hook nil
|
||||
"*Hook run after someone on `erc-notify-list' has signed off.
|
||||
"Hook run after someone on `erc-notify-list' has signed off.
|
||||
Two arguments are passed to the function, SERVER and NICK, both
|
||||
strings."
|
||||
:group 'erc-notify
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-pcomplete-nick-postfix ":"
|
||||
"*When `pcomplete' is used in the first word after the prompt,
|
||||
"When `pcomplete' is used in the first word after the prompt,
|
||||
add this string to nicks completed."
|
||||
:group 'erc-pcomplete
|
||||
:type 'string)
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ and play sound files as requested."
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-play-sound t
|
||||
"*Play sounds when you receive CTCP SOUND requests."
|
||||
"Play sounds when you receive CTCP SOUND requests."
|
||||
:group 'erc-sound
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -47,7 +47,7 @@ in your .emacs file or interactively using `load-library'."
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-timestamp-format "[%H:%M]"
|
||||
"*If set to a string, messages will be timestamped.
|
||||
"If set to a string, messages will be timestamped.
|
||||
This string is processed using `format-time-string'.
|
||||
Good examples are \"%T\" and \"%H:%M\".
|
||||
|
||||
|
|
@ -57,7 +57,7 @@ If nil, timestamping is turned off."
|
|||
(string)))
|
||||
|
||||
(defcustom erc-timestamp-format-left "\n[%a %b %e %Y]\n"
|
||||
"*If set to a string, messages will be timestamped.
|
||||
"If set to a string, messages will be timestamped.
|
||||
This string is processed using `format-time-string'.
|
||||
Good examples are \"%T\" and \"%H:%M\".
|
||||
|
||||
|
|
@ -71,7 +71,7 @@ If nil, timestamping is turned off."
|
|||
(string)))
|
||||
|
||||
(defcustom erc-timestamp-format-right " [%H:%M]"
|
||||
"*If set to a string, messages will be timestamped.
|
||||
"If set to a string, messages will be timestamped.
|
||||
This string is processed using `format-time-string'.
|
||||
Good examples are \"%T\" and \"%H:%M\".
|
||||
|
||||
|
|
@ -85,7 +85,7 @@ If nil, timestamping is turned off."
|
|||
(string)))
|
||||
|
||||
(defcustom erc-insert-timestamp-function 'erc-insert-timestamp-left-and-right
|
||||
"*Function to use to insert timestamps.
|
||||
"Function to use to insert timestamps.
|
||||
|
||||
It takes a single argument STRING which is the final string
|
||||
which all text-properties already appended. This function only cares about
|
||||
|
|
@ -102,7 +102,7 @@ You will probably want to set
|
|||
function))
|
||||
|
||||
(defcustom erc-away-timestamp-format "<%H:%M>"
|
||||
"*Timestamp format used when marked as being away.
|
||||
"Timestamp format used when marked as being away.
|
||||
|
||||
If nil, timestamping is turned off when away unless `erc-timestamp-format'
|
||||
is set.
|
||||
|
|
@ -114,7 +114,7 @@ If `erc-timestamp-format' is set, this will not be used."
|
|||
|
||||
(defcustom erc-insert-away-timestamp-function
|
||||
'erc-insert-timestamp-left-and-right
|
||||
"*Function to use to insert the away timestamp.
|
||||
"Function to use to insert the away timestamp.
|
||||
|
||||
See `erc-insert-timestamp-function' for details."
|
||||
:group 'erc-stamp
|
||||
|
|
@ -124,7 +124,7 @@ See `erc-insert-timestamp-function' for details."
|
|||
function))
|
||||
|
||||
(defcustom erc-hide-timestamps nil
|
||||
"*If non-nil, timestamps will be invisible.
|
||||
"If non-nil, timestamps will be invisible.
|
||||
|
||||
This is useful for logging, because, although timestamps will be
|
||||
hidden, they will still be present in the logs."
|
||||
|
|
@ -132,7 +132,7 @@ hidden, they will still be present in the logs."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-echo-timestamps nil
|
||||
"*If non-nil, print timestamp in the minibuffer when point is moved.
|
||||
"If non-nil, print timestamp in the minibuffer when point is moved.
|
||||
Using this variable, you can turn off normal timestamping,
|
||||
and simply move point to an irc message to see its timestamp
|
||||
printed in the minibuffer."
|
||||
|
|
@ -140,14 +140,14 @@ printed in the minibuffer."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-echo-timestamp-format "Timestamped %A, %H:%M:%S"
|
||||
"*Format string to be used when `erc-echo-timestamps' is non-nil.
|
||||
"Format string to be used when `erc-echo-timestamps' is non-nil.
|
||||
This string specifies the format of the timestamp being echoed in
|
||||
the minibuffer."
|
||||
:group 'erc-stamp
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-timestamp-intangible t
|
||||
"*Whether the timestamps should be intangible, i.e. prevent the point
|
||||
"Whether the timestamps should be intangible, i.e. prevent the point
|
||||
from entering them and instead jump over them."
|
||||
:group 'erc-stamp
|
||||
:type 'boolean)
|
||||
|
|
@ -205,7 +205,7 @@ This is used when `erc-insert-timestamp-function' is set to
|
|||
(make-variable-buffer-local 'erc-timestamp-last-inserted-right)
|
||||
|
||||
(defcustom erc-timestamp-only-if-changed-flag t
|
||||
"*Insert timestamp only if its value changed since last insertion.
|
||||
"Insert timestamp only if its value changed since last insertion.
|
||||
If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a
|
||||
string of spaces which is the same size as the timestamp is added to
|
||||
the beginning of the line in its place. If you use
|
||||
|
|
@ -215,7 +215,7 @@ timestamp."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-timestamp-right-column nil
|
||||
"*If non-nil, the column at which the timestamp is inserted,
|
||||
"If non-nil, the column at which the timestamp is inserted,
|
||||
if the timestamp is to be printed to the right. If nil,
|
||||
`erc-insert-timestamp-right' will use other means to determine
|
||||
the correct column."
|
||||
|
|
@ -227,7 +227,7 @@ the correct column."
|
|||
(defcustom erc-timestamp-use-align-to (and (not (featurep 'xemacs))
|
||||
(>= emacs-major-version 22)
|
||||
(eq window-system 'x))
|
||||
"*If non-nil, use the :align-to display property to align the stamp.
|
||||
"If non-nil, use the :align-to display property to align the stamp.
|
||||
This gives better results when variable-width characters (like
|
||||
Asian language characters and math symbols) precede a timestamp.
|
||||
Unfortunately, it only works in Emacs 22 and when using the X
|
||||
|
|
|
|||
|
|
@ -93,13 +93,13 @@ Activity means that there was no user input in the last 10 seconds."
|
|||
:type '(repeat string))
|
||||
|
||||
(defcustom erc-track-remove-disconnected-buffers nil
|
||||
"*If true, remove buffers associated with a server that is
|
||||
"If true, remove buffers associated with a server that is
|
||||
disconnected from `erc-modified-channels-alist'."
|
||||
:group 'erc-track
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-track-exclude-types '("NICK" "333" "353")
|
||||
"*List of message types to be ignored.
|
||||
"List of message types to be ignored.
|
||||
This list could look like '(\"JOIN\" \"PART\").
|
||||
|
||||
By default, exclude changes of nicknames (NICK), display of who
|
||||
|
|
@ -109,7 +109,7 @@ channel (353)."
|
|||
:type 'erc-message-type)
|
||||
|
||||
(defcustom erc-track-exclude-server-buffer nil
|
||||
"*If true, don't perform tracking on the server buffer; this is
|
||||
"If true, don't perform tracking on the server buffer; this is
|
||||
useful for excluding all the things like MOTDs from the server and
|
||||
other miscellaneous functions."
|
||||
:group 'erc-track
|
||||
|
|
@ -127,7 +127,7 @@ the mode-line should be reduced to."
|
|||
:type 'number)
|
||||
|
||||
(defcustom erc-track-shorten-aggressively nil
|
||||
"*If non-nil, channel names will be shortened more aggressively.
|
||||
"If non-nil, channel names will be shortened more aggressively.
|
||||
Usually, names are not shortened if this will save only one character.
|
||||
Example: If there are two channels, #linux-de and #linux-fr, then
|
||||
normally these will not be shortened. When shortening aggressively,
|
||||
|
|
@ -150,7 +150,7 @@ This setting is used by `erc-track-shorten-names'."
|
|||
(const :tag "Max" max)))
|
||||
|
||||
(defcustom erc-track-shorten-function 'erc-track-shorten-names
|
||||
"*This function will be used to reduce the channel names before display.
|
||||
"This function will be used to reduce the channel names before display.
|
||||
It takes one argument, CHANNEL-NAMES which is a list of strings.
|
||||
It should return a list of strings of the same number of elements.
|
||||
If nil instead of a function, shortening is disabled."
|
||||
|
|
@ -169,7 +169,7 @@ notification of channel activity."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom erc-track-use-faces t
|
||||
"*Use faces in the mode-line.
|
||||
"Use faces in the mode-line.
|
||||
The faces used are the same as used for text in the buffers.
|
||||
\(e.g. `erc-pal-face' is used if a pal sent a message to that channel.)"
|
||||
:group 'erc-track
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-max-buffer-size 30000
|
||||
"*Maximum size in chars of each ERC buffer.
|
||||
"Maximum size in chars of each ERC buffer.
|
||||
Used only when auto-truncation is enabled.
|
||||
\(see `erc-truncate-buffer' and `erc-insert-post-hook')."
|
||||
:group 'erc-truncate
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@
|
|||
(require 'erc-dcc)
|
||||
|
||||
(defcustom erc-xdcc-files nil
|
||||
"*List of files to offer via XDCC.
|
||||
"List of files to offer via XDCC.
|
||||
Your friends should issue \"/ctcp yournick XDCC list\" to see this."
|
||||
:group 'erc-dcc
|
||||
:type '(repeat file))
|
||||
|
||||
(defcustom erc-xdcc-verbose-flag t
|
||||
"*Report XDCC CTCP requests in the server buffer."
|
||||
"Report XDCC CTCP requests in the server buffer."
|
||||
:group 'erc-dcc
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -43,7 +43,7 @@ Your friends should issue \"/ctcp yournick XDCC list\" to see this."
|
|||
'(("help" . erc-xdcc-help)
|
||||
("list" . erc-xdcc-list)
|
||||
("send" . erc-xdcc-send))
|
||||
"*Sub-command handler alist for XDCC CTCP queries."
|
||||
"Sub-command handler alist for XDCC CTCP queries."
|
||||
:group 'erc-dcc
|
||||
:type '(alist :key-type (string :tag "Sub-command") :value-type function))
|
||||
|
||||
|
|
@ -54,7 +54,7 @@ Your friends should issue \"/ctcp yournick XDCC list\" to see this."
|
|||
("Type \"/ctcp " (erc-current-nick)
|
||||
" XDCC list\" to see the list of offered files, then type \"/ctcp "
|
||||
(erc-current-nick) " XDCC send #\" to get a particular file number."))
|
||||
"*Help text sent in response to XDCC help command.
|
||||
"Help text sent in response to XDCC help command.
|
||||
A list of messages, each consisting of strings and expressions, expressions
|
||||
being evaluated and should return strings."
|
||||
:group 'erc-dcc
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@ If nil, only \"> \" will be shown."
|
|||
(repeat :inline t :tag "Others" (string :tag "IRC Message Type"))))
|
||||
|
||||
(defcustom erc-hide-list nil
|
||||
"*List of IRC type messages to hide.
|
||||
"List of IRC type messages to hide.
|
||||
A typical value would be '(\"JOIN\" \"PART\" \"QUIT\")."
|
||||
:group 'erc-ignore
|
||||
:type 'erc-message-type)
|
||||
|
|
@ -653,12 +653,12 @@ This only has any meaning if the variable `erc-command-indicator' is non-nil."
|
|||
prompt))))
|
||||
|
||||
(defcustom erc-notice-prefix "*** "
|
||||
"*Prefix for all notices."
|
||||
"Prefix for all notices."
|
||||
:group 'erc-display
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-notice-highlight-type 'all
|
||||
"*Determines how to highlight notices.
|
||||
"Determines how to highlight notices.
|
||||
See `erc-notice-prefix'.
|
||||
|
||||
The following values are allowed:
|
||||
|
|
@ -673,7 +673,7 @@ Any other value disables notice's highlighting altogether."
|
|||
(const :tag "don't highlight notices at all" nil)))
|
||||
|
||||
(defcustom erc-echo-notice-hook nil
|
||||
"*Specifies a list of functions to call to echo a private
|
||||
"Specifies a list of functions to call to echo a private
|
||||
notice. Each function is called with four arguments, the string
|
||||
to display, the parsed server message, the target buffer (or
|
||||
nil), and the sender. The functions are called in order, until a
|
||||
|
|
@ -704,7 +704,7 @@ See also: `erc-echo-notice-always-hook',
|
|||
|
||||
(defcustom erc-echo-notice-always-hook
|
||||
'(erc-echo-notice-in-default-buffer)
|
||||
"*Specifies a list of functions to call to echo a private
|
||||
"Specifies a list of functions to call to echo a private
|
||||
notice. Each function is called with four arguments, the string
|
||||
to display, the parsed server message, the target buffer (or
|
||||
nil), and the sender. The functions are called in order, and all
|
||||
|
|
@ -736,17 +736,17 @@ See also: `erc-echo-notice-hook',
|
|||
;; other tunable parameters
|
||||
|
||||
(defcustom erc-whowas-on-nosuchnick nil
|
||||
"*If non-nil, do a whowas on a nick if no such nick."
|
||||
"If non-nil, do a whowas on a nick if no such nick."
|
||||
:group 'erc
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-verbose-server-ping nil
|
||||
"*If non-nil, show every time you get a PING or PONG from the server."
|
||||
"If non-nil, show every time you get a PING or PONG from the server."
|
||||
:group 'erc-paranoia
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-public-away-p nil
|
||||
"*Let others know you are back when you are no longer marked away.
|
||||
"Let others know you are back when you are no longer marked away.
|
||||
This happens in this form:
|
||||
* <nick> is back (gone for <time>)
|
||||
|
||||
|
|
@ -755,7 +755,7 @@ Many consider it impolite to do so automatically."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-away-nickname nil
|
||||
"*The nickname to take when you are marked as being away."
|
||||
"The nickname to take when you are marked as being away."
|
||||
:group 'erc
|
||||
:type '(choice (const nil)
|
||||
string))
|
||||
|
|
@ -796,7 +796,7 @@ If nil, ERC will call `system-name' to get this information."
|
|||
string))
|
||||
|
||||
(defcustom erc-ignore-list nil
|
||||
"*List of regexps matching user identifiers to ignore.
|
||||
"List of regexps matching user identifiers to ignore.
|
||||
|
||||
A user identifier has the form \"nick!login@host\". If an
|
||||
identifier matches, the message from the person will not be
|
||||
|
|
@ -806,7 +806,7 @@ processed."
|
|||
(make-variable-buffer-local 'erc-ignore-list)
|
||||
|
||||
(defcustom erc-ignore-reply-list nil
|
||||
"*List of regexps matching user identifiers to ignore completely.
|
||||
"List of regexps matching user identifiers to ignore completely.
|
||||
|
||||
This differs from `erc-ignore-list' in that it also ignores any
|
||||
messages directed at the user.
|
||||
|
|
@ -824,7 +824,7 @@ people. You can update the ERC internal info using /WHO *."
|
|||
:type '(repeat regexp))
|
||||
|
||||
(defvar erc-flood-protect t
|
||||
"*If non-nil, flood protection is enabled.
|
||||
"If non-nil, flood protection is enabled.
|
||||
Flooding is sending too much information to the server in too
|
||||
short of an interval, which may cause the server to terminate the
|
||||
connection.
|
||||
|
|
@ -854,7 +854,7 @@ directory in the list."
|
|||
:type '(repeat directory))
|
||||
|
||||
(defcustom erc-script-echo t
|
||||
"*If non-nil, echo the IRC script commands locally."
|
||||
"If non-nil, echo the IRC script commands locally."
|
||||
:group 'erc-scripts
|
||||
:type 'boolean)
|
||||
|
||||
|
|
@ -929,7 +929,7 @@ will be used as the part message."
|
|||
:type '(repeat (list regexp (choice (string) (function)))))
|
||||
|
||||
(defcustom erc-quit-reason 'erc-quit-reason-normal
|
||||
"*A function which returns the reason for quitting.
|
||||
"A function which returns the reason for quitting.
|
||||
|
||||
The function is passed a single argument, the string typed by the
|
||||
user after \"/quit\"."
|
||||
|
|
@ -1480,7 +1480,7 @@ The available choices are:
|
|||
(const :tag "Use current buffer" t)))
|
||||
|
||||
(defcustom erc-frame-alist nil
|
||||
"*Alist of frame parameters for creating erc frames.
|
||||
"Alist of frame parameters for creating erc frames.
|
||||
A value of nil means to use `default-frame-alist'."
|
||||
:group 'erc-buffers
|
||||
:type '(repeat (cons :format "%v"
|
||||
|
|
@ -1488,13 +1488,13 @@ A value of nil means to use `default-frame-alist'."
|
|||
(sexp :tag "Value"))))
|
||||
|
||||
(defcustom erc-frame-dedicated-flag nil
|
||||
"*Non-nil means the erc frames are dedicated to that buffer.
|
||||
"Non-nil means the erc frames are dedicated to that buffer.
|
||||
This only has effect when `erc-join-buffer' is set to `frame'."
|
||||
:group 'erc-buffers
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-reuse-frames t
|
||||
"*Determines whether new frames are always created.
|
||||
"Determines whether new frames are always created.
|
||||
Non-nil means that a new frame is not created to display an ERC
|
||||
buffer if there is already a window displaying it. This only has
|
||||
effect when `erc-join-buffer' is set to `frame'."
|
||||
|
|
@ -1511,7 +1511,7 @@ effect when `erc-join-buffer' is set to `frame'."
|
|||
(t nil)))
|
||||
|
||||
(defcustom erc-reuse-buffers t
|
||||
"*If nil, create new buffers on joining a channel/query.
|
||||
"If nil, create new buffers on joining a channel/query.
|
||||
If non-nil, a new buffer will only be created when you join
|
||||
channels with same names on different servers, or have query buffers
|
||||
open with nicks of the same name on different servers. Otherwise,
|
||||
|
|
@ -3799,7 +3799,7 @@ This places `point' just after the prompt, or at the beginning of the line."
|
|||
|
||||
(defcustom erc-default-server-hook '(erc-debug-missing-hooks
|
||||
erc-default-server-handler)
|
||||
"*Default for server messages which aren't covered by `erc-server-hooks'."
|
||||
"Default for server messages which aren't covered by `erc-server-hooks'."
|
||||
:group 'erc-server-hooks
|
||||
:type 'hook)
|
||||
|
||||
|
|
@ -4017,7 +4017,7 @@ and as second argument the event parsed as a vector."
|
|||
str))
|
||||
|
||||
(defcustom erc-format-nick-function 'erc-format-nick
|
||||
"*Function to format a nickname for message display."
|
||||
"Function to format a nickname for message display."
|
||||
:group 'erc-display
|
||||
:type 'function)
|
||||
|
||||
|
|
@ -4575,7 +4575,7 @@ channel."
|
|||
(run-hooks 'erc-channel-members-changed-hook)))
|
||||
|
||||
(defcustom erc-channel-members-changed-hook nil
|
||||
"*This hook is called every time the variable `channel-members' changes.
|
||||
"This hook is called every time the variable `channel-members' changes.
|
||||
The buffer where the change happened is current while this hook is called."
|
||||
:group 'erc-hooks
|
||||
:type 'hook)
|
||||
|
|
@ -6386,17 +6386,17 @@ See also `format-spec'."
|
|||
(add-hook 'kill-buffer-hook 'erc-kill-buffer-function)
|
||||
|
||||
(defcustom erc-kill-server-hook '(erc-kill-server)
|
||||
"*Invoked whenever a server-buffer is killed via `kill-buffer'."
|
||||
"Invoked whenever a server-buffer is killed via `kill-buffer'."
|
||||
:group 'erc-hooks
|
||||
:type 'hook)
|
||||
|
||||
(defcustom erc-kill-channel-hook '(erc-kill-channel)
|
||||
"*Invoked whenever a channel-buffer is killed via `kill-buffer'."
|
||||
"Invoked whenever a channel-buffer is killed via `kill-buffer'."
|
||||
:group 'erc-hooks
|
||||
:type 'hook)
|
||||
|
||||
(defcustom erc-kill-buffer-hook nil
|
||||
"*Hook run whenever a non-server or channel buffer is killed.
|
||||
"Hook run whenever a non-server or channel buffer is killed.
|
||||
|
||||
See also `kill-buffer'."
|
||||
:group 'erc-hooks
|
||||
|
|
|
|||
|
|
@ -132,7 +132,7 @@ just before \"Other\" at the end."
|
|||
,(purecopy "^font-lock-") ,(purecopy "^gnus-") ,(purecopy "^message-")
|
||||
,(purecopy "^ediff-") ,(purecopy "^term-") ,(purecopy "^vc-")
|
||||
,(purecopy "^widget-") ,(purecopy "^custom-") ,(purecopy "^vm-"))
|
||||
"*List of faces that are of no interest to the user.")
|
||||
"List of faces that are of no interest to the user.")
|
||||
(make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces
|
||||
"22.1,\n and has no effect on the Face menu")
|
||||
|
||||
|
|
|
|||
|
|
@ -1212,7 +1212,7 @@ Value is a list (FACE NEW-VALUE) where FACE is the face read
|
|||
|
||||
(defconst list-faces-sample-text
|
||||
"abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
"*Text string to display as the sample text for `list-faces-display'.")
|
||||
"Text string to display as the sample text for `list-faces-display'.")
|
||||
|
||||
|
||||
;; The name list-faces would be more consistent, but let's avoid a
|
||||
|
|
|
|||
|
|
@ -1472,7 +1472,7 @@ and the functions `ffap-file-at-point' and `ffap-url-at-point'."
|
|||
;;; Menu support (`ffap-menu'):
|
||||
|
||||
(defvar ffap-menu-regexp nil
|
||||
"*If non-nil, overrides `ffap-next-regexp' during `ffap-menu'.
|
||||
"If non-nil, overrides `ffap-next-regexp' during `ffap-menu'.
|
||||
Make this more restrictive for faster menu building.
|
||||
For example, try \":/\" for URL (and some ftp) references.")
|
||||
|
||||
|
|
|
|||
|
|
@ -190,7 +190,7 @@ To override this, give an argument to `ff-find-other-file'."
|
|||
)
|
||||
;; We include `ff-treat-as-special' documentation here so that autoload
|
||||
;; can make it available to be read prior to loading this file.
|
||||
"*List of special constructs for `ff-treat-as-special' to recognize.
|
||||
"List of special constructs for `ff-treat-as-special' to recognize.
|
||||
Each element, tried in order, has the form (REGEXP . EXTRACT).
|
||||
If REGEXP matches the current line (from the beginning of the line),
|
||||
`ff-treat-as-special' calls function EXTRACT with no args.
|
||||
|
|
|
|||
|
|
@ -393,7 +393,7 @@ are \" Fw\", or simply \"\"."
|
|||
:group 'follow)
|
||||
|
||||
(defvar follow-avoid-tail-recenter-p (not (featurep 'xemacs))
|
||||
"*When non-nil, patch Emacs so that tail windows won't be recentered.
|
||||
"When non-nil, patch Emacs so that tail windows won't be recentered.
|
||||
|
||||
A \"tail window\" is a window that displays only the end of
|
||||
the buffer. Normally it is practical for the user that empty
|
||||
|
|
@ -424,7 +424,7 @@ To mark other commands as suitable for caching, set the symbol
|
|||
property `follow-mode-use-cache' to non-nil.")
|
||||
|
||||
(defvar follow-debug nil
|
||||
"*Non-nil when debugging Follow mode.")
|
||||
"Non-nil when debugging Follow mode.")
|
||||
|
||||
|
||||
;; Internal variables:
|
||||
|
|
|
|||
|
|
@ -492,11 +492,11 @@ This is normally set via `font-lock-add-keywords' and
|
|||
`font-lock-remove-keywords'.")
|
||||
|
||||
(defvar font-lock-keywords-only nil
|
||||
"*Non-nil means Font Lock should not fontify comments or strings.
|
||||
"Non-nil means Font Lock should not fontify comments or strings.
|
||||
This is normally set via `font-lock-defaults'.")
|
||||
|
||||
(defvar font-lock-keywords-case-fold-search nil
|
||||
"*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.
|
||||
"Non-nil means the patterns in `font-lock-keywords' are case-insensitive.
|
||||
This is set via the function `font-lock-set-defaults', based on
|
||||
the CASE-FOLD argument of `font-lock-defaults'.")
|
||||
(make-variable-buffer-local 'font-lock-keywords-case-fold-search)
|
||||
|
|
@ -556,7 +556,7 @@ If this is nil, the major mode's syntax table is used.
|
|||
This is normally set via `font-lock-defaults'.")
|
||||
|
||||
(defvar font-lock-beginning-of-syntax-function nil
|
||||
"*Non-nil means use this function to move back outside all constructs.
|
||||
"Non-nil means use this function to move back outside all constructs.
|
||||
When called with no args it should move point backward to a place which
|
||||
is not in a string or comment and not within any bracket-pairs (or else,
|
||||
a place such that any bracket-pairs outside it can be ignored for Emacs
|
||||
|
|
@ -571,7 +571,7 @@ This is normally set via `font-lock-defaults'.")
|
|||
'syntax-begin-function "23.3" 'set)
|
||||
|
||||
(defvar font-lock-mark-block-function nil
|
||||
"*Non-nil means use this function to mark a block of text.
|
||||
"Non-nil means use this function to mark a block of text.
|
||||
When called with no args it should leave point at the beginning of any
|
||||
enclosing textual block and mark at the end.
|
||||
This is normally set via `font-lock-defaults'.")
|
||||
|
|
|
|||
|
|
@ -2031,7 +2031,7 @@ Usage: (setq forms-number-of-fields
|
|||
;;; Debugging
|
||||
|
||||
(defvar forms--debug nil
|
||||
"*Enables forms-mode debugging if not nil.")
|
||||
"Enables forms-mode debugging if not nil.")
|
||||
|
||||
(defun forms--debug (&rest args)
|
||||
"Internal debugging routine."
|
||||
|
|
|
|||
|
|
@ -872,7 +872,7 @@ The following variables are available, but should not be changed:
|
|||
:group 'ido)
|
||||
|
||||
(defvar ido-rewrite-file-prompt-rules nil
|
||||
"*Alist of rewriting rules for directory names in ido prompts.
|
||||
"Alist of rewriting rules for directory names in ido prompts.
|
||||
A list of elements of the form (FROM . TO) or (FROM . FUNC), each
|
||||
meaning to rewrite the directory name if matched by FROM by either
|
||||
substituting the matched string by TO or calling the function FUNC
|
||||
|
|
@ -894,7 +894,7 @@ Otherwise, only the current list of matches is shown."
|
|||
:group 'ido)
|
||||
|
||||
(defvar ido-all-frames 'visible
|
||||
"*Argument to pass to `walk-windows' when finding visible files.
|
||||
"Argument to pass to `walk-windows' when finding visible files.
|
||||
See documentation of `walk-windows' for useful values.")
|
||||
|
||||
(defcustom ido-minibuffer-setup-hook nil
|
||||
|
|
|
|||
|
|
@ -373,7 +373,7 @@ See also `iswitchb-newbuffer'."
|
|||
:group 'iswitchb)
|
||||
|
||||
(defvar iswitchb-all-frames 'visible
|
||||
"*Argument to pass to `walk-windows' when finding visible buffers.
|
||||
"Argument to pass to `walk-windows' when finding visible buffers.
|
||||
See documentation of `walk-windows' for useful values.")
|
||||
|
||||
(defcustom iswitchb-minibuffer-setup-hook nil
|
||||
|
|
|
|||
|
|
@ -231,12 +231,12 @@ macro to be executed before appending to it."
|
|||
;;; Keyboard macro counter
|
||||
|
||||
(defvar kmacro-counter 0
|
||||
"*Current keyboard macro counter.")
|
||||
"Current keyboard macro counter.")
|
||||
|
||||
(defvar kmacro-default-counter-format "%d")
|
||||
|
||||
(defvar kmacro-counter-format "%d"
|
||||
"*Current keyboard macro counter format.")
|
||||
"Current keyboard macro counter format.")
|
||||
|
||||
(defvar kmacro-counter-format-start kmacro-counter-format
|
||||
"Macro format at start of macro execution.")
|
||||
|
|
|
|||
|
|
@ -99,34 +99,34 @@
|
|||
;;
|
||||
|
||||
(defvar ethio-primary-language 'tigrigna
|
||||
"*Symbol that defines the primary language in SERA --> FIDEL conversion.
|
||||
"Symbol that defines the primary language in SERA --> FIDEL conversion.
|
||||
The value should be one of: `tigrigna', `amharic' or `english'.")
|
||||
|
||||
(defvar ethio-secondary-language 'english
|
||||
"*Symbol that defines the secondary language in SERA --> FIDEL conversion.
|
||||
"Symbol that defines the secondary language in SERA --> FIDEL conversion.
|
||||
The value should be one of: `tigrigna', `amharic' or `english'.")
|
||||
|
||||
(defvar ethio-use-colon-for-colon nil
|
||||
"*Non-nil means associate ASCII colon with Ethiopic colon.
|
||||
"Non-nil means associate ASCII colon with Ethiopic colon.
|
||||
If nil, associate ASCII colon with Ethiopic word separator, i.e., two
|
||||
vertically stacked dots. All SERA <--> FIDEL converters refer this
|
||||
variable.")
|
||||
|
||||
(defvar ethio-use-three-dot-question nil
|
||||
"*Non-nil means associate ASCII question mark with Ethiopic old style question mark (three vertically stacked dots).
|
||||
"Non-nil means associate ASCII question mark with Ethiopic old style question mark (three vertically stacked dots).
|
||||
If nil, associate ASCII question mark with Ethiopic stylized question
|
||||
mark. All SERA <--> FIDEL converters refer this variable.")
|
||||
|
||||
(defvar ethio-quote-vowel-always nil
|
||||
"*Non-nil means always put an apostrophe before an isolated vowel (except at word initial) in FIDEL --> SERA conversion.
|
||||
"Non-nil means always put an apostrophe before an isolated vowel (except at word initial) in FIDEL --> SERA conversion.
|
||||
If nil, put an apostrophe only between a 6th-form consonant and an
|
||||
isolated vowel.")
|
||||
|
||||
(defvar ethio-W-sixth-always nil
|
||||
"*Non-nil means convert the Wu-form of a 12-form consonant to \"W'\" instead of \"Wu\" in FIDEL --> SERA conversion.")
|
||||
"Non-nil means convert the Wu-form of a 12-form consonant to \"W'\" instead of \"Wu\" in FIDEL --> SERA conversion.")
|
||||
|
||||
(defvar ethio-numeric-reduction 0
|
||||
"*Degree of reduction in converting Ethiopic digits into Arabic digits.
|
||||
"Degree of reduction in converting Ethiopic digits into Arabic digits.
|
||||
Should be 0, 1 or 2.
|
||||
For example, ({10}{9}{100}{80}{7}) is converted into:
|
||||
`10`9`100`80`7 if `ethio-numeric-reduction' is 0,
|
||||
|
|
@ -134,7 +134,7 @@ For example, ({10}{9}{100}{80}{7}) is converted into:
|
|||
`10900807 if `ethio-numeric-reduction' is 2.")
|
||||
|
||||
(defvar ethio-java-save-lowercase nil
|
||||
"*Non-nil means save Ethiopic characters in lowercase hex numbers to Java files.
|
||||
"Non-nil means save Ethiopic characters in lowercase hex numbers to Java files.
|
||||
If nil, use uppercases.")
|
||||
|
||||
(defun ethio-prefer-amharic-p ()
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
(purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") ""))
|
||||
"3"
|
||||
""))
|
||||
"*The kind of Korean keyboard for Korean input method.
|
||||
"The kind of Korean keyboard for Korean input method.
|
||||
\"\" for 2, \"3\" for 3.")
|
||||
|
||||
;; functions useful for Korean text input
|
||||
|
|
|
|||
|
|
@ -398,7 +398,7 @@ See also docstring of the function tibetan-compose-region."
|
|||
))))
|
||||
|
||||
(defvar tibetan-strict-unicode t
|
||||
"*Flag to control Tibetan canonicalizing for Unicode.
|
||||
"Flag to control Tibetan canonicalizing for Unicode.
|
||||
|
||||
If non-nil, the vowel a is removed and composite vowels are decomposed
|
||||
before writing buffer in Unicode. See also
|
||||
|
|
|
|||
|
|
@ -43,20 +43,20 @@
|
|||
:group 'news)
|
||||
|
||||
(defcustom binhex-decoder-program "hexbin"
|
||||
"*Non-nil value should be a string that names a binhex decoder.
|
||||
"Non-nil value should be a string that names a binhex decoder.
|
||||
The program should expect to read binhex data on its standard
|
||||
input and write the converted data to its standard output."
|
||||
:type 'string
|
||||
:group 'binhex)
|
||||
|
||||
(defcustom binhex-decoder-switches '("-d")
|
||||
"*List of command line flags passed to the command `binhex-decoder-program'."
|
||||
"List of command line flags passed to the command `binhex-decoder-program'."
|
||||
:group 'binhex
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom binhex-use-external
|
||||
(executable-find binhex-decoder-program)
|
||||
"*Use external binhex program."
|
||||
"Use external binhex program."
|
||||
:version "22.1"
|
||||
:group 'binhex
|
||||
:type 'boolean)
|
||||
|
|
|
|||
|
|
@ -1340,7 +1340,7 @@ Example 'defadvice' for mail-send:
|
|||
|
||||
|
||||
(defvar feedmail-queue-runner-is-active nil
|
||||
"*Non-nil means we're inside the logic of the queue-running loop.
|
||||
"Non-nil means we're inside the logic of the queue-running loop.
|
||||
That is, iterating over all messages in the queue to send them. In
|
||||
that case, the value is the name of the queued message file currently
|
||||
being processed. This can be used for differentiating customized code
|
||||
|
|
@ -1371,11 +1371,11 @@ call to `feedmail-run-the-queue'."
|
|||
|
||||
|
||||
(defvar feedmail-mail-send-hook nil
|
||||
"*See documentation for `feedmail-mail-send-hook-splitter'.")
|
||||
"See documentation for `feedmail-mail-send-hook-splitter'.")
|
||||
|
||||
|
||||
(defvar feedmail-mail-send-hook-queued nil
|
||||
"*See documentation for `feedmail-mail-send-hook-splitter'.")
|
||||
"See documentation for `feedmail-mail-send-hook-splitter'.")
|
||||
|
||||
|
||||
(defun feedmail-confirm-addresses-hook-example ()
|
||||
|
|
@ -1514,7 +1514,7 @@ function, for example, to archive all of your sent messages someplace
|
|||
|
||||
|
||||
(defvar feedmail-is-a-resend nil
|
||||
"*Non-nil means the message is a Resend (in the RFC-822 sense).
|
||||
"Non-nil means the message is a Resend (in the RFC-822 sense).
|
||||
This affects the composition of certain headers. feedmail sets this
|
||||
variable as soon as it starts prepping the message text buffer, so any
|
||||
user-supplied functions can rely on it. Users shouldn't set or change this
|
||||
|
|
|
|||
|
|
@ -129,7 +129,7 @@ has no effect on buffers already displaying footnotes."
|
|||
(defvar footnote-signature-separator (if (boundp 'message-signature-separator)
|
||||
message-signature-separator
|
||||
"^-- $")
|
||||
"*String used to recognize .signatures.")
|
||||
"String used to recognize .signatures.")
|
||||
|
||||
;;; Private variables
|
||||
|
||||
|
|
|
|||
|
|
@ -58,14 +58,14 @@
|
|||
:group 'mail)
|
||||
|
||||
(defcustom hashcash-default-payment 20
|
||||
"*The default number of bits to pay to unknown users.
|
||||
"The default number of bits to pay to unknown users.
|
||||
If this is zero, no payment header will be generated.
|
||||
See `hashcash-payment-alist'."
|
||||
:type 'integer
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-payment-alist '()
|
||||
"*An association list mapping email addresses to payment amounts.
|
||||
"An association list mapping email addresses to payment amounts.
|
||||
Elements may consist of (ADDR AMOUNT) or (ADDR STRING AMOUNT), where
|
||||
ADDR is the email address of the intended recipient and AMOUNT is
|
||||
the value of hashcash payment to be made to that user. STRING, if
|
||||
|
|
@ -80,33 +80,33 @@ present, is the string to be hashed; if not present ADDR will be used."
|
|||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-default-accept-payment 20
|
||||
"*The default minimum number of bits to accept on incoming payments."
|
||||
"The default minimum number of bits to accept on incoming payments."
|
||||
:type 'integer
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-accept-resources `((,user-mail-address nil))
|
||||
"*An association list mapping hashcash resources to payment amounts.
|
||||
"An association list mapping hashcash resources to payment amounts.
|
||||
Resources named here are to be accepted in incoming payments. If the
|
||||
corresponding AMOUNT is NIL, the value of `hashcash-default-accept-payment'
|
||||
is used instead."
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-path (executable-find "hashcash")
|
||||
"*The path to the hashcash binary."
|
||||
"The path to the hashcash binary."
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-extra-generate-parameters nil
|
||||
"*A list of parameter strings passed to `hashcash-path' when minting.
|
||||
"A list of parameter strings passed to `hashcash-path' when minting.
|
||||
For example, you may want to set this to '(\"-Z2\") to reduce header length."
|
||||
:type '(repeat string)
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-double-spend-database "hashcash.db"
|
||||
"*The path to the double-spending database."
|
||||
"The path to the double-spending database."
|
||||
:group 'hashcash)
|
||||
|
||||
(defcustom hashcash-in-news nil
|
||||
"*Specifies whether or not hashcash payments should be made to newsgroups."
|
||||
"Specifies whether or not hashcash payments should be made to newsgroups."
|
||||
:type 'boolean
|
||||
:group 'hashcash)
|
||||
|
||||
|
|
|
|||
|
|
@ -218,14 +218,14 @@
|
|||
;;
|
||||
|
||||
(defcustom mail-extr-guess-middle-initial nil
|
||||
"*Whether to try to guess middle initial from mail address.
|
||||
"Whether to try to guess middle initial from mail address.
|
||||
If true, then when we see an address like \"John Smith <jqs@host.com>\"
|
||||
we will assume that \"John Q. Smith\" is the fellow's name."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
(defcustom mail-extr-ignore-single-names nil
|
||||
"*Whether to ignore a name that is just a single word.
|
||||
"Whether to ignore a name that is just a single word.
|
||||
If true, then when we see an address like \"Idiot <dumb@stupid.com>\"
|
||||
we will act as though we couldn't find a full name in the address."
|
||||
:type 'boolean
|
||||
|
|
@ -244,19 +244,19 @@ we will act as though we couldn't find a full name in the address."
|
|||
(defcustom mail-extr-full-name-prefixes
|
||||
(purecopy
|
||||
"\\(Prof\\|D[Rr]\\|Mrs?\\|Rev\\|Rabbi\\|SysOp\\|LCDR\\)\\.?[ \t\n]")
|
||||
"*Matches prefixes to the full name that identify a person's position.
|
||||
"Matches prefixes to the full name that identify a person's position.
|
||||
These are stripped from the full name because they do not contribute to
|
||||
uniquely identifying the person."
|
||||
:type 'regexp
|
||||
:group 'mail-extr)
|
||||
|
||||
(defcustom mail-extr-@-binds-tighter-than-! nil
|
||||
"*Whether the local mail transport agent looks at ! before @."
|
||||
"Whether the local mail transport agent looks at ! before @."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
||||
(defcustom mail-extr-mangle-uucp nil
|
||||
"*Whether to throw away information in UUCP addresses
|
||||
"Whether to throw away information in UUCP addresses
|
||||
by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
:type 'boolean
|
||||
:group 'mail-extr)
|
||||
|
|
@ -1454,7 +1454,7 @@ consing a string.)"
|
|||
))
|
||||
|
||||
(defcustom mail-extr-disable-voodoo "\\cj"
|
||||
"*If it is a regexp, names matching it will never be modified.
|
||||
"If it is a regexp, names matching it will never be modified.
|
||||
If it is neither nil nor a string, modifying of names will never take
|
||||
place. It affects how `mail-extract-address-components' works."
|
||||
:type '(choice (regexp :size 0)
|
||||
|
|
|
|||
|
|
@ -78,14 +78,14 @@ Used for knowing which history list to look in when the user asks for
|
|||
previous/next input.")
|
||||
|
||||
(defcustom mail-hist-history-size (or kill-ring-max 1729)
|
||||
"*The maximum number of elements in a mail field's history.
|
||||
"The maximum number of elements in a mail field's history.
|
||||
Oldest elements are dumped first."
|
||||
:type 'integer
|
||||
:group 'mail-hist)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom mail-hist-keep-history t
|
||||
"*Non-nil means keep a history for headers and text of outgoing mail."
|
||||
"Non-nil means keep a history for headers and text of outgoing mail."
|
||||
:type 'boolean
|
||||
:group 'mail-hist)
|
||||
|
||||
|
|
@ -182,7 +182,7 @@ HEADER is a string without the colon."
|
|||
(cdr (assoc header mail-hist-header-ring-alist)))
|
||||
|
||||
(defcustom mail-hist-text-size-limit nil
|
||||
"*Don't store any header or body with more than this many characters.
|
||||
"Don't store any header or body with more than this many characters.
|
||||
If the value is nil, that means no limit on text size."
|
||||
:type '(choice (const nil) integer)
|
||||
:group 'mail-hist)
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@ By default this is the file specified by `mail-personal-alias-file'."
|
|||
(message "Parsing %s... done" file))
|
||||
|
||||
(defvar mail-alias-separator-string ", "
|
||||
"*A string inserted between addresses in multi-address mail aliases.
|
||||
"A string inserted between addresses in multi-address mail aliases.
|
||||
This has to contain a comma, so \", \" is a reasonable value. You might
|
||||
also want something like \",\\n \" to get each address on its own line.")
|
||||
|
||||
|
|
@ -423,7 +423,7 @@ fill-column, break the line at the previous comma, and indent the next line."
|
|||
|
||||
(defvar mail-abbrev-mode-regexp
|
||||
"^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):"
|
||||
"*Regexp to select mail-headers in which mail abbrevs should be expanded.
|
||||
"Regexp to select mail-headers in which mail abbrevs should be expanded.
|
||||
This string will be handed to `looking-at' with point at the beginning
|
||||
of the current line; if it matches, abbrev mode will be turned on, otherwise
|
||||
it will be turned off. (You don't need to worry about continuation lines.)
|
||||
|
|
|
|||
|
|
@ -42,23 +42,23 @@
|
|||
:group 'processes)
|
||||
|
||||
(defcustom metamail-program-name "metamail"
|
||||
"*Metamail program name."
|
||||
"Metamail program name."
|
||||
:type 'string
|
||||
:group 'metamail)
|
||||
|
||||
(defcustom metamail-mailer-name "emacs"
|
||||
"*Mailer name set to MM_MAILER environment variable."
|
||||
"Mailer name set to MM_MAILER environment variable."
|
||||
:type 'string
|
||||
:group 'metamail)
|
||||
|
||||
(defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1")
|
||||
"*Environment variables passed to `metamail'.
|
||||
"Environment variables passed to `metamail'.
|
||||
It must be a list of strings that have the format ENVVARNAME=VALUE.
|
||||
It is not expected to be altered globally by `set' or `setq'.
|
||||
Instead, change its value temporary using `let' or `let*' form.")
|
||||
|
||||
(defcustom metamail-switches '("-x" "-d" "-z")
|
||||
"*Switches for `metamail' program.
|
||||
"Switches for `metamail' program.
|
||||
`-z' is required to remove zap file.
|
||||
It is not expected to be altered globally by `set' or `setq'.
|
||||
Instead, change its value temporary using `let' or `let*' form.
|
||||
|
|
|
|||
|
|
@ -125,17 +125,17 @@
|
|||
)
|
||||
|
||||
(defcustom mspools-update nil
|
||||
"*Non-nil means update *spools* buffer after visiting any folder."
|
||||
"Non-nil means update *spools* buffer after visiting any folder."
|
||||
:type 'boolean
|
||||
:group 'mspools)
|
||||
|
||||
(defcustom mspools-suffix "spool"
|
||||
"*Extension used for spool files (not including full stop)."
|
||||
"Extension used for spool files (not including full stop)."
|
||||
:type 'string
|
||||
:group 'mspools)
|
||||
|
||||
(defcustom mspools-using-vm (fboundp 'vm)
|
||||
"*Non-nil if VM is used as mail reader, otherwise RMAIL is used."
|
||||
"Non-nil if VM is used as mail reader, otherwise RMAIL is used."
|
||||
:type 'boolean
|
||||
:group 'mspools)
|
||||
|
||||
|
|
@ -143,7 +143,7 @@
|
|||
(if (boundp 'vm-folder-directory)
|
||||
vm-folder-directory
|
||||
"~/MAIL/")
|
||||
"*Directory where mail folders are kept. Ensure it has a trailing /.
|
||||
"Directory where mail folders are kept. Ensure it has a trailing /.
|
||||
Defaults to `vm-folder-directory' if bound else to ~/MAIL/."
|
||||
:type 'directory
|
||||
:group 'mspools)
|
||||
|
|
@ -151,7 +151,7 @@ Defaults to `vm-folder-directory' if bound else to ~/MAIL/."
|
|||
(defcustom mspools-vm-system-mail (or (getenv "MAIL")
|
||||
(concat rmail-spool-directory
|
||||
(user-login-name)))
|
||||
"*Spool file for main mailbox. Only used by VM.
|
||||
"Spool file for main mailbox. Only used by VM.
|
||||
This needs to be set to your primary mail spool - mspools will not run
|
||||
without it. By default this will be set to the environment variable
|
||||
$MAIL. Otherwise it will use `rmail-spool-directory' to guess where
|
||||
|
|
|
|||
|
|
@ -712,7 +712,7 @@ to an appropriate value, and optionally also set
|
|||
|
||||
;; FIXME this is unused since 23.1.
|
||||
(defvar rmail-decode-mime-charset t
|
||||
"*Non-nil means a message is decoded by MIME's charset specification.
|
||||
"Non-nil means a message is decoded by MIME's charset specification.
|
||||
If this variable is nil, or the message has not MIME specification,
|
||||
the message is decoded as normal way.
|
||||
|
||||
|
|
@ -4211,7 +4211,7 @@ This has an effect only if a summary buffer exists."
|
|||
(eval-when-compile (require 'speedbar))
|
||||
|
||||
(defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$"
|
||||
"*This regex is used to match folder names to be displayed in speedbar.
|
||||
"This regex is used to match folder names to be displayed in speedbar.
|
||||
Enabling this will permit speedbar to display your folders for easy
|
||||
browsing, and moving of messages.")
|
||||
|
||||
|
|
@ -4704,7 +4704,7 @@ SENDERS is a string of regexps separated by commas.
|
|||
;;;***
|
||||
|
||||
;;;### (autoloads (unforward-rmail-message undigestify-rmail-message)
|
||||
;;;;;; "undigest" "undigest.el" "a31a35802a2adbc51be42959c3043dbd")
|
||||
;;;;;; "undigest" "undigest.el" "9f270a2571bbbbfabc27498a8d4089c7")
|
||||
;;; Generated autoloads from undigest.el
|
||||
|
||||
(autoload 'undigestify-rmail-message "undigest" "\
|
||||
|
|
|
|||
|
|
@ -989,7 +989,7 @@ This function uses `mail-envelope-from'."
|
|||
|
||||
;;;###autoload
|
||||
(defvar sendmail-coding-system nil
|
||||
"*Coding system for encoding the outgoing mail.
|
||||
"Coding system for encoding the outgoing mail.
|
||||
This has higher priority than the default `buffer-file-coding-system'
|
||||
and `default-sendmail-coding-system',
|
||||
but lower priority than the local value of `buffer-file-coding-system'.
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
|
||||
(defcustom rmail-forward-separator-regex
|
||||
"^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage"
|
||||
"*Regexp to match the string that introduces forwarded messages.
|
||||
"Regexp to match the string that introduces forwarded messages.
|
||||
This is not a header, but a string contained in the body of the message.
|
||||
You may need to customize it for local needs."
|
||||
:type 'regexp
|
||||
|
|
|
|||
|
|
@ -38,20 +38,20 @@
|
|||
:group 'news)
|
||||
|
||||
(defcustom uudecode-decoder-program "uudecode"
|
||||
"*Non-nil value should be a string that names a uu decoder.
|
||||
"Non-nil value should be a string that names a uu decoder.
|
||||
The program should expect to read uu data on its standard
|
||||
input and write the converted data to its standard output."
|
||||
:type 'string
|
||||
:group 'uudecode)
|
||||
|
||||
(defcustom uudecode-decoder-switches nil
|
||||
"*List of command line flags passed to `uudecode-decoder-program'."
|
||||
"List of command line flags passed to `uudecode-decoder-program'."
|
||||
:group 'uudecode
|
||||
:type '(repeat string))
|
||||
|
||||
(defcustom uudecode-use-external
|
||||
(executable-find uudecode-decoder-program)
|
||||
"*Use external uudecode program."
|
||||
"Use external uudecode program."
|
||||
:version "22.1"
|
||||
:group 'uudecode
|
||||
:type 'boolean)
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
|
||||
(defvar minibuffer-default-in-prompt-regexps
|
||||
'(("\\( (default\\>.*)\\):? \\'" . 1) ("\\( \\[.*\\]\\):? *\\'" . 1))
|
||||
"*A list of regexps matching the parts of minibuffer prompts showing defaults.
|
||||
"A list of regexps matching the parts of minibuffer prompts showing defaults.
|
||||
When `minibuffer-electric-default-mode' is active, these regexps are
|
||||
used to identify the portions of prompts to elide.
|
||||
|
||||
|
|
|
|||
|
|
@ -169,7 +169,7 @@ Basically, we check for existing horizontal scrolling."
|
|||
nil))))))
|
||||
|
||||
(defvar mouse-throw-with-scroll-bar nil
|
||||
"*Set direction of mouse-throwing.
|
||||
"Set direction of mouse-throwing.
|
||||
If nil, the text moves in the direction the mouse moves.
|
||||
If t, the scroll bar moves in the direction the mouse moves.")
|
||||
(defconst mouse-throw-magnifier-min -6)
|
||||
|
|
|
|||
|
|
@ -271,7 +271,7 @@ that differs by this value or more."
|
|||
:group 'msb)
|
||||
|
||||
(defvar msb-files-by-directory-sort-key 0
|
||||
"*The sort key for files sorted by directory.")
|
||||
"The sort key for files sorted by directory.")
|
||||
|
||||
(defcustom msb-max-menu-items 15
|
||||
"The maximum number of items in a menu.
|
||||
|
|
@ -316,7 +316,7 @@ No buffers at all if less than 1 or nil (or any non-number)."
|
|||
:group 'msb)
|
||||
|
||||
(defvar msb-horizontal-shift-function (lambda () 0)
|
||||
"*Function that specifies how many pixels to shift the top menu leftwards.")
|
||||
"Function that specifies how many pixels to shift the top menu leftwards.")
|
||||
|
||||
(defcustom msb-display-invisible-buffers-p nil
|
||||
"Show invisible buffers or not.
|
||||
|
|
@ -327,7 +327,7 @@ names that starts with a space character."
|
|||
:group 'msb)
|
||||
|
||||
(defvar msb-item-handling-function 'msb-item-handler
|
||||
"*The appearance of a buffer menu.
|
||||
"The appearance of a buffer menu.
|
||||
|
||||
The default function to call for handling the appearance of a menu
|
||||
item. It should take two arguments, BUFFER and MAX-BUFFER-NAME-LENGTH,
|
||||
|
|
|
|||
|
|
@ -697,11 +697,11 @@ parenthesized expressions in REGEXP for the components (in that order)."
|
|||
|
||||
(defvar ange-ftp-multi-msgs
|
||||
"^150-\\|^220-\\|^230-\\|^226\\|^25.-\\|^221-\\|^200-\\|^331-\\|^4[25]1-\\|^530-"
|
||||
"*Regular expression matching the start of a multiline FTP reply.")
|
||||
"Regular expression matching the start of a multiline FTP reply.")
|
||||
|
||||
(defvar ange-ftp-good-msgs
|
||||
"^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark"
|
||||
"*Regular expression matching FTP \"success\" messages.")
|
||||
"Regular expression matching FTP \"success\" messages.")
|
||||
|
||||
;; CMS and the odd VMS machine say 200 Port rather than 200 PORT.
|
||||
;; Also CMS machines use a multiline 550- reply to say that you
|
||||
|
|
@ -908,7 +908,7 @@ matches the login banner."
|
|||
(if (eq system-type 'hpux)
|
||||
"stty -onlcr -echo\n"
|
||||
"stty -echo nl\n")
|
||||
"*Set up terminal after logging in to the gateway machine.
|
||||
"Set up terminal after logging in to the gateway machine.
|
||||
This command should stop the terminal from echoing each command, and
|
||||
arrange to strip out trailing ^M characters.")
|
||||
|
||||
|
|
@ -2098,7 +2098,7 @@ suffix of the form #PORT to specify a non-default port."
|
|||
;; ange@hplb.hpl.hp.com says this should not be changed.
|
||||
(defvar ange-ftp-hash-mark-msgs
|
||||
"[hH]ash mark [^0-9]*\\([0-9]+\\)"
|
||||
"*Regexp matching the FTP client's output upon doing a HASH command.")
|
||||
"Regexp matching the FTP client's output upon doing a HASH command.")
|
||||
|
||||
(defun ange-ftp-guess-hash-mark-size (proc)
|
||||
(if ange-ftp-send-hash
|
||||
|
|
@ -6079,7 +6079,7 @@ Other orders of $ and _ seem to all work just fine.")
|
|||
|
||||
(defcustom ange-ftp-bs2000-additional-pubsets
|
||||
nil
|
||||
"*List of additional pubsets available to all users."
|
||||
"List of additional pubsets available to all users."
|
||||
:group 'ange-ftp
|
||||
:type '(repeat string))
|
||||
|
||||
|
|
|
|||
|
|
@ -80,18 +80,18 @@
|
|||
|
||||
;; I don't expect users to want fontify'ing without highlighting.
|
||||
(defcustom goto-address-fontify-p t
|
||||
"*Non-nil means URLs and e-mail addresses in buffer are fontified.
|
||||
"Non-nil means URLs and e-mail addresses in buffer are fontified.
|
||||
But only if `goto-address-highlight-p' is also non-nil."
|
||||
:type 'boolean
|
||||
:group 'goto-address)
|
||||
|
||||
(defcustom goto-address-highlight-p t
|
||||
"*Non-nil means URLs and e-mail addresses in buffer are highlighted."
|
||||
"Non-nil means URLs and e-mail addresses in buffer are highlighted."
|
||||
:type 'boolean
|
||||
:group 'goto-address)
|
||||
|
||||
(defcustom goto-address-fontify-maximum-size 30000
|
||||
"*Maximum size of file in which to fontify and/or highlight URLs.
|
||||
"Maximum size of file in which to fontify and/or highlight URLs.
|
||||
A value of t means there is no limit--fontify regardless of the size."
|
||||
:type '(choice (integer :tag "Maximum size") (const :tag "No limit" t))
|
||||
:group 'goto-address)
|
||||
|
|
|
|||
|
|
@ -211,7 +211,7 @@ until a successful connection is made."
|
|||
:type '(repeat string))
|
||||
|
||||
(defcustom imap-process-connection-type nil
|
||||
"*Value for `process-connection-type' to use for Kerberos4, GSSAPI, shell, and SSL.
|
||||
"Value for `process-connection-type' to use for Kerberos4, GSSAPI, shell, and SSL.
|
||||
The `process-connection-type' variable controls the type of device
|
||||
used to communicate with subprocesses. Values are nil to use a
|
||||
pipe, or t or `pty' to use a pty. The value has no effect if the
|
||||
|
|
@ -271,7 +271,7 @@ See also `imap-log'."
|
|||
(symbol-name system-type))
|
||||
1.0
|
||||
0.1)
|
||||
"*How long to wait between checking for the end of output.
|
||||
"How long to wait between checking for the end of output.
|
||||
Shorter values mean quicker response, but is more CPU intensive."
|
||||
:type 'number
|
||||
:group 'imap)
|
||||
|
|
|
|||
|
|
@ -96,12 +96,12 @@
|
|||
:prefix "quickurl-")
|
||||
|
||||
(defcustom quickurl-url-file (convert-standard-filename "~/.quickurls")
|
||||
"*File that contains the URL list."
|
||||
"File that contains the URL list."
|
||||
:type 'file
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-format-function (lambda (url) (format "<URL:%s>" (quickurl-url-url url)))
|
||||
"*Function to format the URL before insertion into the current buffer."
|
||||
"Function to format the URL before insertion into the current buffer."
|
||||
:type 'function
|
||||
:group 'quickurl)
|
||||
|
||||
|
|
@ -111,32 +111,32 @@
|
|||
(string<
|
||||
(downcase (quickurl-url-description x))
|
||||
(downcase (quickurl-url-description y))))))
|
||||
"*Function to sort the URL list."
|
||||
"Function to sort the URL list."
|
||||
:type 'function
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-grab-lookup-function #'current-word
|
||||
"*Function to grab the thing to lookup."
|
||||
"Function to grab the thing to lookup."
|
||||
:type 'function
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-assoc-function #'assoc-ignore-case
|
||||
"*Function to use for alist lookup into `quickurl-urls'."
|
||||
"Function to use for alist lookup into `quickurl-urls'."
|
||||
:type 'function
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-completion-ignore-case t
|
||||
"*Should `quickurl-ask' ignore case when doing the input lookup?"
|
||||
"Should `quickurl-ask' ignore case when doing the input lookup?"
|
||||
:type 'boolean
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-prefix ";; -*- lisp -*-\n\n"
|
||||
"*Text to write to `quickurl-url-file' before writing the URL list."
|
||||
"Text to write to `quickurl-url-file' before writing the URL list."
|
||||
:type 'string
|
||||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-postfix ""
|
||||
"*Text to write to `quickurl-url-file' after writing the URL list.
|
||||
"Text to write to `quickurl-url-file' after writing the URL list.
|
||||
|
||||
See the constant `quickurl-reread-hook-postfix' for some example text that
|
||||
could be used here."
|
||||
|
|
@ -144,7 +144,7 @@ could be used here."
|
|||
:group 'quickurl)
|
||||
|
||||
(defcustom quickurl-list-mode-hook nil
|
||||
"*Hooks for `quickurl-list-mode'."
|
||||
"Hooks for `quickurl-list-mode'."
|
||||
:type 'hook
|
||||
:group 'quickurl)
|
||||
|
||||
|
|
|
|||
|
|
@ -139,12 +139,12 @@ for connections using SSL/TLS."
|
|||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-fill-flag t
|
||||
"*Non-nil means line-wrap messages printed in channel buffers."
|
||||
"Non-nil means line-wrap messages printed in channel buffers."
|
||||
:type 'boolean
|
||||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-fill-column nil
|
||||
"*Column beyond which automatic line-wrapping should happen.
|
||||
"Column beyond which automatic line-wrapping should happen.
|
||||
If nil, use value of `fill-column'. If 'frame-width, use the
|
||||
maximum frame width."
|
||||
:type '(choice (const :tag "Value of `fill-column'")
|
||||
|
|
@ -153,7 +153,7 @@ maximum frame width."
|
|||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-fill-prefix nil
|
||||
"*Text to insert before filled lines.
|
||||
"Text to insert before filled lines.
|
||||
If nil, calculate the prefix dynamically to line up text
|
||||
underneath each nick."
|
||||
:type '(choice (const :tag "Dynamic" nil)
|
||||
|
|
@ -174,23 +174,23 @@ Use the command `rcirc-omit-mode' to change this variable.")
|
|||
(make-variable-buffer-local 'rcirc-omit-mode)
|
||||
|
||||
(defcustom rcirc-time-format "%H:%M "
|
||||
"*Describes how timestamps are printed.
|
||||
"Describes how timestamps are printed.
|
||||
Used as the first arg to `format-time-string'."
|
||||
:type 'string
|
||||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-input-ring-size 1024
|
||||
"*Size of input history ring."
|
||||
"Size of input history ring."
|
||||
:type 'integer
|
||||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-read-only-flag t
|
||||
"*Non-nil means make text in IRC buffers read-only."
|
||||
"Non-nil means make text in IRC buffers read-only."
|
||||
:type 'boolean
|
||||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-buffer-maximum-lines nil
|
||||
"*The maximum size in lines for rcirc buffers.
|
||||
"The maximum size in lines for rcirc buffers.
|
||||
Channel buffers are truncated from the top to be no greater than this
|
||||
number. If zero or nil, no truncating is done."
|
||||
:type '(choice (const :tag "No truncation" nil)
|
||||
|
|
@ -198,7 +198,7 @@ number. If zero or nil, no truncating is done."
|
|||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-scroll-show-maximum-output t
|
||||
"*If non-nil, scroll buffer to keep the point at the bottom of
|
||||
"If non-nil, scroll buffer to keep the point at the bottom of
|
||||
the window."
|
||||
:type 'boolean
|
||||
:group 'rcirc)
|
||||
|
|
@ -244,13 +244,13 @@ Examples:
|
|||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-auto-authenticate-flag t
|
||||
"*Non-nil means automatically send authentication string to server.
|
||||
"Non-nil means automatically send authentication string to server.
|
||||
See also `rcirc-authinfo'."
|
||||
:type 'boolean
|
||||
:group 'rcirc)
|
||||
|
||||
(defcustom rcirc-authenticate-before-join t
|
||||
"*Non-nil means authenticate to services before joining channels.
|
||||
"Non-nil means authenticate to services before joining channels.
|
||||
Currently only works with NickServ on some networks."
|
||||
:version "24.1"
|
||||
:type 'boolean
|
||||
|
|
|
|||
|
|
@ -141,10 +141,10 @@ This is used during Tempo template completion."
|
|||
:group 'snmp)
|
||||
|
||||
(defvar snmp-tempo-tags nil
|
||||
"*Tempo tags for SNMP mode.")
|
||||
"Tempo tags for SNMP mode.")
|
||||
|
||||
(defvar snmpv2-tempo-tags nil
|
||||
"*Tempo tags for SNMPv2 mode.")
|
||||
"Tempo tags for SNMPv2 mode.")
|
||||
|
||||
|
||||
;; Enable fontification for SNMP MIBs
|
||||
|
|
|
|||
|
|
@ -343,7 +343,7 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
|
|||
;; could get a wrapper hook, or defer to open-network-stream-function.
|
||||
|
||||
(defvar socks-override-functions nil
|
||||
"*Whether to overwrite the open-network-stream function with the SOCKSified
|
||||
"Whether to overwrite the open-network-stream function with the SOCKSified
|
||||
version.")
|
||||
|
||||
(require 'network-stream)
|
||||
|
|
@ -480,7 +480,7 @@ version.")
|
|||
|
||||
;; Replacement functions for open-network-stream, etc.
|
||||
(defvar socks-noproxy nil
|
||||
"*List of regexps matching hosts that we should not socksify connections to")
|
||||
"List of regexps matching hosts that we should not socksify connections to")
|
||||
|
||||
(defun socks-find-route (host service)
|
||||
(let ((route socks-server)
|
||||
|
|
@ -626,7 +626,7 @@ version.")
|
|||
|
||||
|
||||
(defcustom socks-nslookup-program "nslookup"
|
||||
"*If non-NIL then a string naming the nslookup program."
|
||||
"If non-NIL then a string naming the nslookup program."
|
||||
:type '(choice (const :tag "None" :value nil) string)
|
||||
:group 'socks)
|
||||
|
||||
|
|
|
|||
|
|
@ -99,7 +99,7 @@ present for backward compatibility."
|
|||
;; Define FTP method ...
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-ftp-method "ftp"
|
||||
"*When this method name is used, forward all calls to Ange-FTP.")
|
||||
"When this method name is used, forward all calls to Ange-FTP.")
|
||||
|
||||
;; ... and add it to the method list.
|
||||
;;;###tramp-autoload
|
||||
|
|
|
|||
|
|
@ -111,7 +111,7 @@
|
|||
|
||||
;;;###tramp-autoload
|
||||
(defcustom tramp-gvfs-methods '("dav" "davs" "obex" "synce")
|
||||
"*List of methods for remote files, accessed with GVFS."
|
||||
"List of methods for remote files, accessed with GVFS."
|
||||
:group 'tramp
|
||||
:version "23.2"
|
||||
:type '(repeat (choice (const "dav")
|
||||
|
|
@ -128,7 +128,7 @@
|
|||
(add-to-list 'tramp-default-user-alist '("\\`synce\\'" nil nil))
|
||||
|
||||
(defcustom tramp-gvfs-zeroconf-domain "local"
|
||||
"*Zeroconf domain to be used for discovering services, like host names."
|
||||
"Zeroconf domain to be used for discovering services, like host names."
|
||||
:group 'tramp
|
||||
:version "23.2"
|
||||
:type 'string)
|
||||
|
|
|
|||
|
|
@ -50,20 +50,20 @@
|
|||
;; Define HTTP tunnel method ...
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-gw-tunnel-method "tunnel"
|
||||
"*Method to connect HTTP gateways.")
|
||||
"Method to connect HTTP gateways.")
|
||||
|
||||
;; ... and port.
|
||||
(defconst tramp-gw-default-tunnel-port 8080
|
||||
"*Default port for HTTP gateways.")
|
||||
"Default port for HTTP gateways.")
|
||||
|
||||
;; Define SOCKS method ...
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-gw-socks-method "socks"
|
||||
"*Method to connect SOCKS servers.")
|
||||
"Method to connect SOCKS servers.")
|
||||
|
||||
;; ... and port.
|
||||
(defconst tramp-gw-default-socks-port 1080
|
||||
"*Default port for SOCKS servers.")
|
||||
"Default port for SOCKS servers.")
|
||||
|
||||
;; Autoload the socks library. It is used only when we access a SOCKS server.
|
||||
(autoload 'socks-open-network-stream "socks")
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
;; `dired-insert-set-properties'.
|
||||
|
||||
(defcustom tramp-inline-compress-start-size 4096
|
||||
"*The minimum size of compressing where inline transfer.
|
||||
"The minimum size of compressing where inline transfer.
|
||||
When inline transfer, compress transferred data of file
|
||||
whose size is this value or above (up to `tramp-copy-size-limit').
|
||||
If it is nil, no compression at all will be applied."
|
||||
|
|
@ -51,14 +51,14 @@ If it is nil, no compression at all will be applied."
|
|||
:type '(choice (const nil) integer))
|
||||
|
||||
(defcustom tramp-copy-size-limit 10240
|
||||
"*The maximum file size where inline copying is preferred over an out-of-the-band copy.
|
||||
"The maximum file size where inline copying is preferred over an out-of-the-band copy.
|
||||
If it is nil, inline out-of-the-band copy will be used without a check."
|
||||
:group 'tramp
|
||||
:type '(choice (const nil) integer))
|
||||
|
||||
;;;###tramp-autoload
|
||||
(defcustom tramp-terminal-type "dumb"
|
||||
"*Value of TERM environment variable for logging in to remote host.
|
||||
"Value of TERM environment variable for logging in to remote host.
|
||||
Because Tramp wants to parse the output of the remote shell, it is easily
|
||||
confused by ANSI color escape sequences and suchlike. Often, shell init
|
||||
files conditionalize this setup based on the TERM environment variable."
|
||||
|
|
@ -516,7 +516,7 @@ detected as prompt when being sent on echoing hosts, therefore.")
|
|||
'(tramp-default-remote-path "/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin"
|
||||
"/local/bin" "/local/freeware/bin" "/local/gnu/bin"
|
||||
"/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin")
|
||||
"*List of directories to search for executables on remote host.
|
||||
"List of directories to search for executables on remote host.
|
||||
For every remote host, this variable will be set buffer local,
|
||||
keeping the list of existing directories on that host.
|
||||
|
||||
|
|
@ -546,7 +546,7 @@ as given in your `~/.profile'."
|
|||
"CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH=" "PAGER=\"\""
|
||||
"autocorrect=" "correct=")
|
||||
|
||||
"*List of environment variables to be set on the remote host.
|
||||
"List of environment variables to be set on the remote host.
|
||||
|
||||
Each element should be a string of the form ENVVARNAME=VALUE. An
|
||||
entry ENVVARNAME= disables the corresponding environment variable,
|
||||
|
|
@ -558,7 +558,7 @@ not be set here. Instead, it should be set via `tramp-remote-path'."
|
|||
:type '(repeat string))
|
||||
|
||||
(defcustom tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile"))
|
||||
"*Alist specifying extra arguments to pass to the remote shell.
|
||||
"Alist specifying extra arguments to pass to the remote shell.
|
||||
Entries are (REGEXP . ARGS) where REGEXP is a regular expression
|
||||
matching the shell file name and ARGS is a string specifying the
|
||||
arguments.
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@
|
|||
;; Define SMB method ...
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-smb-method "smb"
|
||||
"*Method to connect SAMBA and M$ SMB servers.")
|
||||
"Method to connect SAMBA and M$ SMB servers.")
|
||||
|
||||
;; ... and add it to the method list.
|
||||
;;;###tramp-autoload
|
||||
|
|
@ -68,19 +68,19 @@
|
|||
'((tramp-parse-netrc "~/.netrc"))))
|
||||
|
||||
(defcustom tramp-smb-program "smbclient"
|
||||
"*Name of SMB client to run."
|
||||
"Name of SMB client to run."
|
||||
:group 'tramp
|
||||
:type 'string)
|
||||
|
||||
(defcustom tramp-smb-conf "/dev/null"
|
||||
"*Path of the smb.conf file.
|
||||
"Path of the smb.conf file.
|
||||
If it is nil, no smb.conf will be added to the `tramp-smb-program'
|
||||
call, letting the SMB client use the default one."
|
||||
:group 'tramp
|
||||
:type '(choice (const nil) (file :must-match t)))
|
||||
|
||||
(defvar tramp-smb-version nil
|
||||
"*Version string of the SMB client.")
|
||||
"Version string of the SMB client.")
|
||||
|
||||
(defconst tramp-smb-prompt "^smb: .+> \\|^\\s-+Server\\s-+Comment$"
|
||||
"Regexp used as prompt in smbclient.")
|
||||
|
|
|
|||
|
|
@ -70,13 +70,13 @@
|
|||
;; Maybe we need once a real Tramp mode, with key bindings etc.
|
||||
;;;###autoload
|
||||
(defcustom tramp-mode t
|
||||
"*Whether Tramp is enabled.
|
||||
"Whether Tramp is enabled.
|
||||
If it is set to nil, all remote file names are used literally."
|
||||
:group 'tramp
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom tramp-verbose 3
|
||||
"*Verbosity level for Tramp messages.
|
||||
"Verbosity level for Tramp messages.
|
||||
Any level x includes messages for all levels 1 .. x-1. The levels are
|
||||
|
||||
0 silent (no tramp messages at all)
|
||||
|
|
@ -137,7 +137,7 @@ policy for local files."
|
|||
:group 'tramp)))
|
||||
|
||||
(defcustom tramp-auto-save-directory nil
|
||||
"*Put auto-save files in this directory, if set.
|
||||
"Put auto-save files in this directory, if set.
|
||||
The idea is to use a local directory so that auto-saving is faster."
|
||||
:group 'tramp
|
||||
:type '(choice (const nil) string))
|
||||
|
|
@ -146,7 +146,7 @@ The idea is to use a local directory so that auto-saving is faster."
|
|||
(if (memq system-type '(windows-nt))
|
||||
(getenv "COMSPEC")
|
||||
"/bin/sh")
|
||||
"*Use this program for encoding and decoding commands on the local host.
|
||||
"Use this program for encoding and decoding commands on the local host.
|
||||
This shell is used to execute the encoding and decoding command on the
|
||||
local host, so if you want to use `~' in those commands, you should
|
||||
choose a shell here which groks tilde expansion. `/bin/sh' normally
|
||||
|
|
@ -172,14 +172,14 @@ use for the remote host."
|
|||
(if (string-match "cmd\\.exe" tramp-encoding-shell)
|
||||
"/c"
|
||||
"-c")
|
||||
"*Use this switch together with `tramp-encoding-shell' for local commands.
|
||||
"Use this switch together with `tramp-encoding-shell' for local commands.
|
||||
See the variable `tramp-encoding-shell' for more information."
|
||||
:group 'tramp
|
||||
:type 'string)
|
||||
|
||||
(defcustom tramp-encoding-command-interactive
|
||||
(unless (string-match "cmd\\.exe" tramp-encoding-shell) "-i")
|
||||
"*Use this switch together with `tramp-encoding-shell' for interactive shells.
|
||||
"Use this switch together with `tramp-encoding-shell' for interactive shells.
|
||||
See the variable `tramp-encoding-shell' for more information."
|
||||
:version "24.1"
|
||||
:group 'tramp
|
||||
|
|
@ -187,7 +187,7 @@ See the variable `tramp-encoding-shell' for more information."
|
|||
|
||||
;;;###tramp-autoload
|
||||
(defvar tramp-methods nil
|
||||
"*Alist of methods for remote files.
|
||||
"Alist of methods for remote files.
|
||||
This is a list of entries of the form (NAME PARAM1 PARAM2 ...).
|
||||
Each NAME stands for a remote access method. Each PARAM is a
|
||||
pair of the form (KEY VALUE). The following KEYs are defined:
|
||||
|
|
@ -334,7 +334,7 @@ shouldn't return t when it isn't."
|
|||
(t "ssh")))
|
||||
;; Fallback.
|
||||
(t "ftp"))
|
||||
"*Default method to use for transferring files.
|
||||
"Default method to use for transferring files.
|
||||
See `tramp-methods' for possibilities.
|
||||
Also see `tramp-default-method-alist'."
|
||||
:group 'tramp
|
||||
|
|
@ -342,7 +342,7 @@ Also see `tramp-default-method-alist'."
|
|||
|
||||
;;;###tramp-autoload
|
||||
(defcustom tramp-default-method-alist nil
|
||||
"*Default method to use for specific host/user pairs.
|
||||
"Default method to use for specific host/user pairs.
|
||||
This is an alist of items (HOST USER METHOD). The first matching item
|
||||
specifies the method to use for a file name which does not specify a
|
||||
method. HOST and USER are regular expressions or nil, which is
|
||||
|
|
@ -359,7 +359,7 @@ See `tramp-methods' for a list of possibilities for METHOD."
|
|||
(choice :tag "Method name" string (const nil)))))
|
||||
|
||||
(defcustom tramp-default-user nil
|
||||
"*Default user to use for transferring files.
|
||||
"Default user to use for transferring files.
|
||||
It is nil by default; otherwise settings in configuration files like
|
||||
\"~/.ssh/config\" would be overwritten. Also see `tramp-default-user-alist'.
|
||||
|
||||
|
|
@ -369,7 +369,7 @@ This variable is regarded as obsolete, and will be removed soon."
|
|||
|
||||
;;;###tramp-autoload
|
||||
(defcustom tramp-default-user-alist nil
|
||||
"*Default user to use for specific method/host pairs.
|
||||
"Default user to use for specific method/host pairs.
|
||||
This is an alist of items (METHOD HOST USER). The first matching item
|
||||
specifies the user to use for a file name which does not specify a
|
||||
user. METHOD and USER are regular expressions or nil, which is
|
||||
|
|
@ -384,13 +384,13 @@ empty string for the method name."
|
|||
(choice :tag " User name" string (const nil)))))
|
||||
|
||||
(defcustom tramp-default-host (system-name)
|
||||
"*Default host to use for transferring files.
|
||||
"Default host to use for transferring files.
|
||||
Useful for su and sudo methods mostly."
|
||||
:group 'tramp
|
||||
:type 'string)
|
||||
|
||||
(defcustom tramp-default-proxies-alist nil
|
||||
"*Route to be followed for specific host/user pairs.
|
||||
"Route to be followed for specific host/user pairs.
|
||||
This is an alist of items (HOST USER PROXY). The first matching
|
||||
item specifies the proxy to be passed for a file name located on
|
||||
a remote target matching USER@HOST. HOST and USER are regular
|
||||
|
|
@ -415,10 +415,10 @@ interpreted as a regular expression which always matches."
|
|||
(regexp-opt
|
||||
(list "localhost" "localhost6" (system-name) "127\.0\.0\.1" "::1") t)
|
||||
"\\'")
|
||||
"*Host names which are regarded as local host.")
|
||||
"Host names which are regarded as local host.")
|
||||
|
||||
(defvar tramp-completion-function-alist nil
|
||||
"*Alist of methods for remote files.
|
||||
"Alist of methods for remote files.
|
||||
This is a list of entries of the form \(NAME PAIR1 PAIR2 ...\).
|
||||
Each NAME stands for a remote access method. Each PAIR is of the form
|
||||
\(FUNCTION FILE\). FUNCTION is responsible to extract user names and host
|
||||
|
|
@ -463,13 +463,13 @@ the remote shell.")
|
|||
|
||||
(defcustom tramp-local-end-of-line
|
||||
(if (memq system-type '(windows-nt)) "\r\n" "\n")
|
||||
"*String used for end of line in local processes."
|
||||
"String used for end of line in local processes."
|
||||
:version "24.1"
|
||||
:group 'tramp
|
||||
:type 'string)
|
||||
|
||||
(defcustom tramp-rsh-end-of-line "\n"
|
||||
"*String used for end of line in rsh connections.
|
||||
"String used for end of line in rsh connections.
|
||||
I don't think this ever needs to be changed, so please tell me about it
|
||||
if you need to change this.
|
||||
Also see the method parameter `tramp-password-end-of-line' and the normal
|
||||
|
|
@ -479,7 +479,7 @@ variable `tramp-default-password-end-of-line'."
|
|||
|
||||
(defcustom tramp-default-password-end-of-line
|
||||
tramp-rsh-end-of-line
|
||||
"*String used for end of line after sending a password.
|
||||
"String used for end of line after sending a password.
|
||||
This variable provides the default value for the method parameter
|
||||
`tramp-password-end-of-line', see `tramp-methods' for more details.
|
||||
|
||||
|
|
@ -494,7 +494,7 @@ The default value is to use the same value as `tramp-rsh-end-of-line'."
|
|||
|
||||
(defcustom tramp-login-prompt-regexp
|
||||
".*ogin\\( .*\\)?: *"
|
||||
"*Regexp matching login-like prompts.
|
||||
"Regexp matching login-like prompts.
|
||||
The regexp should match at end of buffer.
|
||||
|
||||
Sometimes the prompt is reported to look like \"login as:\"."
|
||||
|
|
@ -523,7 +523,7 @@ This regexp must match both `tramp-initial-end-of-output' and
|
|||
|
||||
(defcustom tramp-password-prompt-regexp
|
||||
"^.*\\([pP]assword\\|[pP]assphrase\\).*:\^@? *"
|
||||
"*Regexp matching password-like prompts.
|
||||
"Regexp matching password-like prompts.
|
||||
The regexp should match at end of buffer.
|
||||
|
||||
The `sudo' program appears to insert a `^@' character into the prompt."
|
||||
|
|
@ -549,7 +549,7 @@ The `sudo' program appears to insert a `^@' character into the prompt."
|
|||
;; Here comes a list of regexes, separated by \\|
|
||||
"Received signal [0-9]+"
|
||||
"\\).*")
|
||||
"*Regexp matching a `login failed' message.
|
||||
"Regexp matching a `login failed' message.
|
||||
The regexp should match at end of buffer."
|
||||
:group 'tramp
|
||||
:type 'regexp)
|
||||
|
|
@ -620,7 +620,7 @@ The answer will be provided by `tramp-action-process-alive',
|
|||
:type 'regexp)
|
||||
|
||||
(defconst tramp-temp-name-prefix "tramp."
|
||||
"*Prefix to use for temporary files.
|
||||
"Prefix to use for temporary files.
|
||||
If this is a relative file name (such as \"tramp.\"), it is considered
|
||||
relative to the directory name returned by the function
|
||||
`tramp-compat-temporary-file-directory' (which see). It may also be an
|
||||
|
|
@ -670,76 +670,76 @@ It can have the following values:
|
|||
((equal tramp-syntax 'sep) "/[")
|
||||
((equal tramp-syntax 'url) "/")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching the very beginning of Tramp file names.
|
||||
"String matching the very beginning of Tramp file names.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-prefix-regexp
|
||||
(concat "^" (regexp-quote tramp-prefix-format))
|
||||
"*Regexp matching the very beginning of Tramp file names.
|
||||
"Regexp matching the very beginning of Tramp file names.
|
||||
Should always start with \"^\". Derived from `tramp-prefix-format'.")
|
||||
|
||||
(defconst tramp-method-regexp
|
||||
"[a-zA-Z_0-9-]+"
|
||||
"*Regexp matching methods identifiers.")
|
||||
"Regexp matching methods identifiers.")
|
||||
|
||||
(defconst tramp-postfix-method-format
|
||||
(cond ((equal tramp-syntax 'ftp) ":")
|
||||
((equal tramp-syntax 'sep) "/")
|
||||
((equal tramp-syntax 'url) "://")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching delimiter between method and user or host names.
|
||||
"String matching delimiter between method and user or host names.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-postfix-method-regexp
|
||||
(regexp-quote tramp-postfix-method-format)
|
||||
"*Regexp matching delimiter between method and user or host names.
|
||||
"Regexp matching delimiter between method and user or host names.
|
||||
Derived from `tramp-postfix-method-format'.")
|
||||
|
||||
(defconst tramp-user-regexp "[^:/ \t]+"
|
||||
"*Regexp matching user names.")
|
||||
"Regexp matching user names.")
|
||||
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-prefix-domain-format "%"
|
||||
"*String matching delimiter between user and domain names.")
|
||||
"String matching delimiter between user and domain names.")
|
||||
|
||||
;;;###tramp-autoload
|
||||
(defconst tramp-prefix-domain-regexp
|
||||
(regexp-quote tramp-prefix-domain-format)
|
||||
"*Regexp matching delimiter between user and domain names.
|
||||
"Regexp matching delimiter between user and domain names.
|
||||
Derived from `tramp-prefix-domain-format'.")
|
||||
|
||||
(defconst tramp-domain-regexp "[-a-zA-Z0-9_.]+"
|
||||
"*Regexp matching domain names.")
|
||||
"Regexp matching domain names.")
|
||||
|
||||
(defconst tramp-user-with-domain-regexp
|
||||
(concat "\\(" tramp-user-regexp "\\)"
|
||||
tramp-prefix-domain-regexp
|
||||
"\\(" tramp-domain-regexp "\\)")
|
||||
"*Regexp matching user names with domain names.")
|
||||
"Regexp matching user names with domain names.")
|
||||
|
||||
(defconst tramp-postfix-user-format "@"
|
||||
"*String matching delimiter between user and host names.
|
||||
"String matching delimiter between user and host names.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-postfix-user-regexp
|
||||
(regexp-quote tramp-postfix-user-format)
|
||||
"*Regexp matching delimiter between user and host names.
|
||||
"Regexp matching delimiter between user and host names.
|
||||
Derived from `tramp-postfix-user-format'.")
|
||||
|
||||
(defconst tramp-host-regexp "[a-zA-Z0-9_.-]+"
|
||||
"*Regexp matching host names.")
|
||||
"Regexp matching host names.")
|
||||
|
||||
(defconst tramp-prefix-ipv6-format
|
||||
(cond ((equal tramp-syntax 'ftp) "[")
|
||||
((equal tramp-syntax 'sep) "")
|
||||
((equal tramp-syntax 'url) "[")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching left hand side of IPv6 addresses.
|
||||
"String matching left hand side of IPv6 addresses.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-prefix-ipv6-regexp
|
||||
(regexp-quote tramp-prefix-ipv6-format)
|
||||
"*Regexp matching left hand side of IPv6 addresses.
|
||||
"Regexp matching left hand side of IPv6 addresses.
|
||||
Derived from `tramp-prefix-ipv6-format'.")
|
||||
|
||||
;; The following regexp is a bit sloppy. But it shall serve our
|
||||
|
|
@ -747,19 +747,19 @@ Derived from `tramp-prefix-ipv6-format'.")
|
|||
;; "::ffff:192.168.0.1".
|
||||
(defconst tramp-ipv6-regexp
|
||||
"\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+"
|
||||
"*Regexp matching IPv6 addresses.")
|
||||
"Regexp matching IPv6 addresses.")
|
||||
|
||||
(defconst tramp-postfix-ipv6-format
|
||||
(cond ((equal tramp-syntax 'ftp) "]")
|
||||
((equal tramp-syntax 'sep) "")
|
||||
((equal tramp-syntax 'url) "]")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching right hand side of IPv6 addresses.
|
||||
"String matching right hand side of IPv6 addresses.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-postfix-ipv6-regexp
|
||||
(regexp-quote tramp-postfix-ipv6-format)
|
||||
"*Regexp matching right hand side of IPv6 addresses.
|
||||
"Regexp matching right hand side of IPv6 addresses.
|
||||
Derived from `tramp-postfix-ipv6-format'.")
|
||||
|
||||
(defconst tramp-prefix-port-format
|
||||
|
|
@ -767,37 +767,37 @@ Derived from `tramp-postfix-ipv6-format'.")
|
|||
((equal tramp-syntax 'sep) "#")
|
||||
((equal tramp-syntax 'url) ":")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching delimiter between host names and port numbers.")
|
||||
"String matching delimiter between host names and port numbers.")
|
||||
|
||||
(defconst tramp-prefix-port-regexp
|
||||
(regexp-quote tramp-prefix-port-format)
|
||||
"*Regexp matching delimiter between host names and port numbers.
|
||||
"Regexp matching delimiter between host names and port numbers.
|
||||
Derived from `tramp-prefix-port-format'.")
|
||||
|
||||
(defconst tramp-port-regexp "[0-9]+"
|
||||
"*Regexp matching port numbers.")
|
||||
"Regexp matching port numbers.")
|
||||
|
||||
(defconst tramp-host-with-port-regexp
|
||||
(concat "\\(" tramp-host-regexp "\\)"
|
||||
tramp-prefix-port-regexp
|
||||
"\\(" tramp-port-regexp "\\)")
|
||||
"*Regexp matching host names with port numbers.")
|
||||
"Regexp matching host names with port numbers.")
|
||||
|
||||
(defconst tramp-postfix-host-format
|
||||
(cond ((equal tramp-syntax 'ftp) ":")
|
||||
((equal tramp-syntax 'sep) "]")
|
||||
((equal tramp-syntax 'url) "")
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*String matching delimiter between host names and localnames.
|
||||
"String matching delimiter between host names and localnames.
|
||||
Used in `tramp-make-tramp-file-name'.")
|
||||
|
||||
(defconst tramp-postfix-host-regexp
|
||||
(regexp-quote tramp-postfix-host-format)
|
||||
"*Regexp matching delimiter between host names and localnames.
|
||||
"Regexp matching delimiter between host names and localnames.
|
||||
Derived from `tramp-postfix-host-format'.")
|
||||
|
||||
(defconst tramp-localname-regexp ".*$"
|
||||
"*Regexp matching localnames.")
|
||||
"Regexp matching localnames.")
|
||||
|
||||
;;; File name format:
|
||||
|
||||
|
|
@ -816,7 +816,7 @@ Derived from `tramp-postfix-host-format'.")
|
|||
"\\(" tramp-localname-regexp "\\)")
|
||||
2 4 5 8)
|
||||
|
||||
"*List of five elements (REGEXP METHOD USER HOST FILE), detailing \
|
||||
"List of five elements (REGEXP METHOD USER HOST FILE), detailing \
|
||||
the Tramp file name structure.
|
||||
|
||||
The first element REGEXP is a regular expression matching a Tramp file
|
||||
|
|
@ -860,7 +860,7 @@ See `tramp-file-name-structure' for more explanations.")
|
|||
((equal tramp-syntax 'sep) tramp-file-name-regexp-separate)
|
||||
((equal tramp-syntax 'url) tramp-file-name-regexp-url)
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*Regular expression matching file names handled by Tramp.
|
||||
"Regular expression matching file names handled by Tramp.
|
||||
This regexp should match Tramp file names but no other file names.
|
||||
When tramp.el is loaded, this regular expression is prepended to
|
||||
`file-name-handler-alist', and that is searched sequentially. Thus,
|
||||
|
|
@ -904,7 +904,7 @@ See `tramp-file-name-structure' for more explanations.")
|
|||
((equal tramp-syntax 'sep) tramp-completion-file-name-regexp-separate)
|
||||
((equal tramp-syntax 'url) tramp-completion-file-name-regexp-url)
|
||||
(t (error "Wrong `tramp-syntax' defined")))
|
||||
"*Regular expression matching file names handled by Tramp completion.
|
||||
"Regular expression matching file names handled by Tramp completion.
|
||||
This regexp should match partial Tramp file names only.
|
||||
|
||||
Please note that the entry in `file-name-handler-alist' is made when
|
||||
|
|
@ -926,7 +926,7 @@ Also see `tramp-file-name-structure'.")
|
|||
;; Parentheses in docstring starting at beginning of line are escaped.
|
||||
;; Fontification is messed up when
|
||||
;; `open-paren-in-column-0-is-defun-start' set to t.
|
||||
"*If non-nil, chunksize for sending input to local process.
|
||||
"If non-nil, chunksize for sending input to local process.
|
||||
It is necessary only on systems which have a buggy `process-send-string'
|
||||
implementation. The necessity, whether this variable must be set, can be
|
||||
checked via the following code:
|
||||
|
|
|
|||
|
|
@ -276,7 +276,7 @@ function and the `webjump-sites' variable.")
|
|||
|
||||
(defvar webjump-sites
|
||||
webjump-sample-sites
|
||||
"*Hotlist for WebJump.
|
||||
"Hotlist for WebJump.
|
||||
|
||||
The hotlist is represented as an association list, with the CAR of each cell
|
||||
being the name of the Web site, and the CDR being the definition for the URL of
|
||||
|
|
|
|||
|
|
@ -106,12 +106,12 @@ Comments might be indented to a different value in order not to go beyond
|
|||
|
||||
;;;###autoload
|
||||
(defvar comment-start nil
|
||||
"*String to insert to start a new comment, or nil if no comment syntax.")
|
||||
"String to insert to start a new comment, or nil if no comment syntax.")
|
||||
;;;###autoload(put 'comment-start 'safe-local-variable 'string-or-null-p)
|
||||
|
||||
;;;###autoload
|
||||
(defvar comment-start-skip nil
|
||||
"*Regexp to match the start of a comment plus everything up to its body.
|
||||
"Regexp to match the start of a comment plus everything up to its body.
|
||||
If there are any \\(...\\) pairs, the comment delimiter text is held to begin
|
||||
at the place matched by the close of the first pair.")
|
||||
;;;###autoload(put 'comment-start-skip 'safe-local-variable 'string-or-null-p)
|
||||
|
|
@ -123,7 +123,7 @@ at the place matched by the close of the first pair.")
|
|||
|
||||
;;;###autoload
|
||||
(defvar comment-end (purecopy "")
|
||||
"*String to insert to end a new comment.
|
||||
"String to insert to end a new comment.
|
||||
Should be an empty string if comments are terminated by end-of-line.")
|
||||
;;;###autoload(put 'comment-end 'safe-local-variable 'string-or-null-p)
|
||||
|
||||
|
|
|
|||
|
|
@ -333,7 +333,7 @@ This repertoire is supported for the following fonts:
|
|||
"Glyph set corresponding to Windows Glyph List 4.")
|
||||
|
||||
(defvar nxml-glyph-set-hook nil
|
||||
"*Hook for determining the set of glyphs in a face.
|
||||
"Hook for determining the set of glyphs in a face.
|
||||
The hook will receive a single argument FACE. If it can determine
|
||||
the set of glyphs representable by FACE, it must set the variable
|
||||
`nxml-glyph-set' and return non-nil. Otherwise, it must return nil.
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@
|
|||
:group 'relax-ng)
|
||||
|
||||
(defvar rng-complete-end-tags-after-< t
|
||||
"*Non-nil means immediately after < complete on end-tag names.
|
||||
"Non-nil means immediately after < complete on end-tag names.
|
||||
Complete on start-tag names regardless.")
|
||||
|
||||
(defvar rng-nxml-easy-menu
|
||||
|
|
|
|||
|
|
@ -73,7 +73,7 @@ or you may use an arbitrary lisp expression."
|
|||
:group 'erc-hecomplete)
|
||||
|
||||
(defcustom erc-nick-completion-ignore-case t
|
||||
"*Non-nil means don't consider case significant in nick completion.
|
||||
"Non-nil means don't consider case significant in nick completion.
|
||||
Case will be automatically corrected when non-nil.
|
||||
For instance if you type \"dely TAB\" the word completes and changes to
|
||||
\"delYsid\"."
|
||||
|
|
@ -92,7 +92,7 @@ typing \"f o TAB\" will directly give you foobar. Use this with
|
|||
(erc-get-channel-nickname-list)))
|
||||
|
||||
(defcustom erc-nick-completion-postfix ": "
|
||||
"*When `erc-complete' is used in the first word after the prompt,
|
||||
"When `erc-complete' is used in the first word after the prompt,
|
||||
add this string when a unique expansion was found."
|
||||
:group 'erc-hecomplete
|
||||
:type 'string)
|
||||
|
|
|
|||
|
|
@ -247,7 +247,7 @@
|
|||
;; User Variables:
|
||||
|
||||
(defcustom fast-lock-minimum-size 25600
|
||||
"*Minimum size of a buffer for cached fontification.
|
||||
"Minimum size of a buffer for cached fontification.
|
||||
Only buffers more than this can have associated Font Lock cache files saved.
|
||||
If nil, means cache files are never created.
|
||||
If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
|
||||
|
|
@ -271,7 +271,7 @@ for buffers in Rmail mode, and size is irrelevant otherwise."
|
|||
(defcustom fast-lock-cache-directories '("~/.emacs-flc")
|
||||
; - `internal', keep each file's Font Lock cache file in the same file.
|
||||
; - `external', keep each file's Font Lock cache file in the same directory.
|
||||
"*Directories in which Font Lock cache files are saved and read.
|
||||
"Directories in which Font Lock cache files are saved and read.
|
||||
Each item should be either DIR or a cons pair of the form (REGEXP . DIR) where
|
||||
DIR is a directory name (relative or absolute) and REGEXP is a regexp.
|
||||
|
||||
|
|
@ -297,7 +297,7 @@ to avoid the possibility of using the cache of another user."
|
|||
(put 'fast-lock-cache-directories 'risky-local-variable t)
|
||||
|
||||
(defcustom fast-lock-save-events '(kill-buffer kill-emacs)
|
||||
"*Events under which caches will be saved.
|
||||
"Events under which caches will be saved.
|
||||
Valid events are `save-buffer', `kill-buffer' and `kill-emacs'.
|
||||
If concurrent editing sessions use the same associated cache file for a file's
|
||||
buffer, then you should add `save-buffer' to this list."
|
||||
|
|
@ -307,14 +307,14 @@ buffer, then you should add `save-buffer' to this list."
|
|||
:group 'fast-lock)
|
||||
|
||||
(defcustom fast-lock-save-others t
|
||||
"*If non-nil, save Font Lock cache files irrespective of file owner.
|
||||
"If non-nil, save Font Lock cache files irrespective of file owner.
|
||||
If nil, means only buffer files known to be owned by you can have associated
|
||||
Font Lock cache files saved. Ownership may be unknown for networked files."
|
||||
:type 'boolean
|
||||
:group 'fast-lock)
|
||||
|
||||
(defcustom fast-lock-verbose font-lock-verbose
|
||||
"*If non-nil, means show status messages for cache processing.
|
||||
"If non-nil, means show status messages for cache processing.
|
||||
If a number, only buffers greater than this size have processing messages."
|
||||
:type '(choice (const :tag "never" nil)
|
||||
(other :tag "always" t)
|
||||
|
|
|
|||
|
|
@ -73,7 +73,7 @@
|
|||
:group 'i18n)
|
||||
|
||||
(defcustom iso-accents-insert-offset nonascii-insert-offset
|
||||
"*Offset added by ISO Accents mode to character codes 0200 and above."
|
||||
"Offset added by ISO Accents mode to character codes 0200 and above."
|
||||
:type 'integer
|
||||
:group 'iso-acc)
|
||||
|
||||
|
|
@ -262,7 +262,7 @@ Change it with the `iso-accents-customize' function.")
|
|||
"Association list for ISO accent combinations, for the chosen language.")
|
||||
|
||||
(defcustom iso-accents-mode nil
|
||||
"*Non-nil enables ISO Accents mode.
|
||||
"Non-nil enables ISO Accents mode.
|
||||
Setting this variable makes it local to the current buffer.
|
||||
See the function `iso-accents-mode'."
|
||||
:type 'boolean
|
||||
|
|
@ -270,7 +270,7 @@ See the function `iso-accents-mode'."
|
|||
(make-variable-buffer-local 'iso-accents-mode)
|
||||
|
||||
(defcustom iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/)
|
||||
"*List of accent keys that become prefixes in ISO Accents mode.
|
||||
"List of accent keys that become prefixes in ISO Accents mode.
|
||||
The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported
|
||||
accent keys. If you set this variable to a list in which some of those
|
||||
characters are missing, the missing ones do not act as accents.
|
||||
|
|
|
|||
|
|
@ -47,7 +47,7 @@
|
|||
;;; Code:
|
||||
|
||||
(defvar resume-emacs-args-file (expand-file-name "~/.emacs_args")
|
||||
"*This file is where arguments are placed for a suspended Emacs job.")
|
||||
"This file is where arguments are placed for a suspended Emacs job.")
|
||||
|
||||
(defvar resume-emacs-args-buffer " *Command Line Args*"
|
||||
"Buffer that is used by `resume-process-args'.")
|
||||
|
|
|
|||
|
|
@ -45,17 +45,17 @@
|
|||
"Abbrev table used while in scribe mode.")
|
||||
|
||||
(defcustom scribe-fancy-paragraphs nil
|
||||
"*Non-nil makes Scribe mode use a different style of paragraph separation."
|
||||
"Non-nil makes Scribe mode use a different style of paragraph separation."
|
||||
:type 'boolean
|
||||
:group 'scribe)
|
||||
|
||||
(defcustom scribe-electric-quote nil
|
||||
"*Non-nil makes insert of double quote use `` or '' depending on context."
|
||||
"Non-nil makes insert of double quote use `` or '' depending on context."
|
||||
:type 'boolean
|
||||
:group 'scribe)
|
||||
|
||||
(defcustom scribe-electric-parenthesis nil
|
||||
"*Non-nil makes parenthesis char ( (]}> ) automatically insert its close
|
||||
"Non-nil makes parenthesis char ( (]}> ) automatically insert its close
|
||||
if typed after an @Command form."
|
||||
:type 'boolean
|
||||
:group 'scribe)
|
||||
|
|
|
|||
|
|
@ -188,7 +188,7 @@ See the ctags documentation for more information.")
|
|||
Created as a local variable in each buffer.")
|
||||
|
||||
(defcustom org-ctags-new-topic-template
|
||||
"* <<%t>>\n\n\n\n\n\n"
|
||||
" <<%t>>\n\n\n\n\n\n"
|
||||
"Text to insert when creating a new org file via opening a hyperlink.
|
||||
The following patterns are replaced in the string:
|
||||
`%t' - replaced with the capitalized title of the hyperlink"
|
||||
|
|
|
|||
|
|
@ -225,7 +225,7 @@ Consider using the interactive functions `org-protocol-create' and
|
|||
:type 'alist)
|
||||
|
||||
(defcustom org-protocol-protocol-alist nil
|
||||
"* Register custom handlers for org-protocol.
|
||||
" Register custom handlers for org-protocol.
|
||||
|
||||
Each element of this list must be of the form:
|
||||
|
||||
|
|
|
|||
|
|
@ -284,10 +284,10 @@ in the file it applies to."
|
|||
"Normal hook to be run after outline visibility changes.")
|
||||
|
||||
(defvar outline-mode-hook nil
|
||||
"*This hook is run when outline mode starts.")
|
||||
"This hook is run when outline mode starts.")
|
||||
|
||||
(defvar outline-blank-line nil
|
||||
"*Non-nil means to leave unhidden blank line before heading.")
|
||||
"Non-nil means to leave unhidden blank line before heading.")
|
||||
|
||||
;;;###autoload
|
||||
(define-derived-mode outline-mode text-mode "Outline"
|
||||
|
|
@ -380,7 +380,7 @@ See the command `outline-mode' for more information on this mode."
|
|||
(show-all)))
|
||||
|
||||
(defvar outline-level 'outline-level
|
||||
"*Function of no args to compute a header's nesting level in an outline.
|
||||
"Function of no args to compute a header's nesting level in an outline.
|
||||
It can assume point is at the beginning of a header line and that the match
|
||||
data reflects the `outline-regexp'.")
|
||||
;;;###autoload(put 'outline-level 'risky-local-variable t)
|
||||
|
|
|
|||
|
|
@ -96,7 +96,7 @@ otherwise)."
|
|||
'show-paren-mismatch "22.1")
|
||||
|
||||
(defvar show-paren-highlight-openparen t
|
||||
"*Non-nil turns on openparen highlighting when matching forward.")
|
||||
"Non-nil turns on openparen highlighting when matching forward.")
|
||||
|
||||
(defvar show-paren-idle-timer nil)
|
||||
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@
|
|||
"*Number of steps `animate-string' will place a char before its last position.")
|
||||
|
||||
(defvar animation-buffer-name nil
|
||||
"*String naming the default buffer for animations.
|
||||
"String naming the default buffer for animations.
|
||||
When nil animations displayed in the buffer named *Animation*.")
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -89,16 +89,16 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
|
|||
;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1).
|
||||
|
||||
(defconst gomoku-square-width 4
|
||||
"*Horizontal spacing between squares on the Gomoku board.")
|
||||
"Horizontal spacing between squares on the Gomoku board.")
|
||||
|
||||
(defconst gomoku-square-height 2
|
||||
"*Vertical spacing between squares on the Gomoku board.")
|
||||
"Vertical spacing between squares on the Gomoku board.")
|
||||
|
||||
(defconst gomoku-x-offset 3
|
||||
"*Number of columns between the Gomoku board and the side of the window.")
|
||||
"Number of columns between the Gomoku board and the side of the window.")
|
||||
|
||||
(defconst gomoku-y-offset 1
|
||||
"*Number of lines between the Gomoku board and the top of the window.")
|
||||
"Number of lines between the Gomoku board and the top of the window.")
|
||||
|
||||
|
||||
(defvar gomoku-mode-map
|
||||
|
|
@ -173,7 +173,7 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
|
|||
'(("O" . 'gomoku-O)
|
||||
("X" . 'gomoku-X)
|
||||
("[-|/\\]" 0 (if gomoku-emacs-won 'gomoku-O 'gomoku-X)))
|
||||
"*Font lock rules for Gomoku.")
|
||||
"Font lock rules for Gomoku.")
|
||||
|
||||
(put 'gomoku-mode 'front-sticky
|
||||
(put 'gomoku-mode 'rear-nonsticky '(intangible)))
|
||||
|
|
|
|||
|
|
@ -139,16 +139,16 @@
|
|||
;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1).
|
||||
|
||||
(defconst landmark-square-width 2
|
||||
"*Horizontal spacing between squares on the Landmark board.")
|
||||
"Horizontal spacing between squares on the Landmark board.")
|
||||
|
||||
(defconst landmark-square-height 1
|
||||
"*Vertical spacing between squares on the Landmark board.")
|
||||
"Vertical spacing between squares on the Landmark board.")
|
||||
|
||||
(defconst landmark-x-offset 3
|
||||
"*Number of columns between the Landmark board and the side of the window.")
|
||||
"Number of columns between the Landmark board and the side of the window.")
|
||||
|
||||
(defconst landmark-y-offset 1
|
||||
"*Number of lines between the Landmark board and the top of the window.")
|
||||
"Number of lines between the Landmark board and the top of the window.")
|
||||
|
||||
|
||||
;;;_ + LANDMARK MODE AND KEYMAP.
|
||||
|
|
@ -206,7 +206,7 @@
|
|||
|
||||
|
||||
(defvar landmark-emacs-won ()
|
||||
"*For making font-lock use the winner's face for the line.")
|
||||
"For making font-lock use the winner's face for the line.")
|
||||
|
||||
(defface landmark-font-lock-face-O '((((class color)) :foreground "red")
|
||||
(t :weight bold))
|
||||
|
|
@ -226,7 +226,7 @@
|
|||
("[-|/\\]" 0 (if landmark-emacs-won
|
||||
'landmark-font-lock-face-O
|
||||
'landmark-font-lock-face-X)))
|
||||
"*Font lock rules for Landmark.")
|
||||
"Font lock rules for Landmark.")
|
||||
|
||||
(put 'landmark-mode 'front-sticky
|
||||
(put 'landmark-mode 'rear-nonsticky '(intangible)))
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
"The timer we use to decide when to zone out, or nil if none.")
|
||||
|
||||
(defvar zone-timeout nil
|
||||
"*Seconds to timeout the zoning.
|
||||
"Seconds to timeout the zoning.
|
||||
If nil, don't interrupt for about 1^26 seconds.")
|
||||
|
||||
;; Vector of functions that zone out. `zone' will execute one of
|
||||
|
|
@ -623,7 +623,7 @@ If the element is a function or a list of a function and a number,
|
|||
;;;; the lyfe so short the craft so long to lerne --chaucer
|
||||
|
||||
(defvar zone-pgm-random-life-wait nil
|
||||
"*Seconds to wait between successive `life' generations.
|
||||
"Seconds to wait between successive `life' generations.
|
||||
If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
|
||||
|
||||
(defvar life-patterns) ; from life.el
|
||||
|
|
|
|||
|
|
@ -139,7 +139,7 @@
|
|||
version-string)))
|
||||
|
||||
(defvar ada-mode-hook nil
|
||||
"*List of functions to call when Ada mode is invoked.
|
||||
"List of functions to call when Ada mode is invoked.
|
||||
This hook is automatically executed after the `ada-mode' is
|
||||
fully loaded.
|
||||
This is a good place to add Ada environment specific bindings.")
|
||||
|
|
@ -150,13 +150,13 @@ This is a good place to add Ada environment specific bindings.")
|
|||
:group 'languages)
|
||||
|
||||
(defcustom ada-auto-case t
|
||||
"*Non-nil means automatically change case of preceding word while typing.
|
||||
"Non-nil means automatically change case of preceding word while typing.
|
||||
Casing is done according to `ada-case-keyword', `ada-case-identifier'
|
||||
and `ada-case-attribute'."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-broken-decl-indent 0
|
||||
"*Number of columns to indent a broken declaration.
|
||||
"Number of columns to indent a broken declaration.
|
||||
|
||||
An example is :
|
||||
declare
|
||||
|
|
@ -165,7 +165,7 @@ An example is :
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-broken-indent 2
|
||||
"*Number of columns to indent the continuation of a broken line.
|
||||
"Number of columns to indent the continuation of a broken line.
|
||||
|
||||
An example is :
|
||||
My_Var : My_Type := (Field1 =>
|
||||
|
|
@ -173,7 +173,7 @@ An example is :
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-continuation-indent ada-broken-indent
|
||||
"*Number of columns to indent the continuation of broken lines in parenthesis.
|
||||
"Number of columns to indent the continuation of broken lines in parenthesis.
|
||||
|
||||
An example is :
|
||||
Func (Param1,
|
||||
|
|
@ -181,7 +181,7 @@ An example is :
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-case-attribute 'ada-capitalize-word
|
||||
"*Function to call to adjust the case of Ada attributes.
|
||||
"Function to call to adjust the case of Ada attributes.
|
||||
It may be `downcase-word', `upcase-word', `ada-loose-case-word',
|
||||
`ada-capitalize-word' or `ada-no-auto-case'."
|
||||
:type '(choice (const downcase-word)
|
||||
|
|
@ -193,7 +193,7 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word',
|
|||
|
||||
(defcustom ada-case-exception-file
|
||||
(list (convert-standard-filename' "~/.emacs_case_exceptions"))
|
||||
"*List of special casing exceptions dictionaries for identifiers.
|
||||
"List of special casing exceptions dictionaries for identifiers.
|
||||
The first file is the one where new exceptions will be saved by Emacs
|
||||
when you call `ada-create-case-exception'.
|
||||
|
||||
|
|
@ -207,7 +207,7 @@ by a comment."
|
|||
:group 'ada)
|
||||
|
||||
(defcustom ada-case-keyword 'downcase-word
|
||||
"*Function to call to adjust the case of an Ada keywords.
|
||||
"Function to call to adjust the case of an Ada keywords.
|
||||
It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
|
||||
`ada-capitalize-word'."
|
||||
:type '(choice (const downcase-word)
|
||||
|
|
@ -218,7 +218,7 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
|
|||
:group 'ada)
|
||||
|
||||
(defcustom ada-case-identifier 'ada-loose-case-word
|
||||
"*Function to call to adjust the case of an Ada identifier.
|
||||
"Function to call to adjust the case of an Ada identifier.
|
||||
It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
|
||||
`ada-capitalize-word'."
|
||||
:type '(choice (const downcase-word)
|
||||
|
|
@ -229,7 +229,7 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
|
|||
:group 'ada)
|
||||
|
||||
(defcustom ada-clean-buffer-before-saving t
|
||||
"*Non-nil means remove trailing spaces and untabify the buffer before saving."
|
||||
"Non-nil means remove trailing spaces and untabify the buffer before saving."
|
||||
:type 'boolean :group 'ada)
|
||||
(make-obsolete-variable 'ada-clean-buffer-before-saving
|
||||
"use the `write-file-functions' hook."
|
||||
|
|
@ -237,7 +237,7 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
|
|||
|
||||
|
||||
(defcustom ada-indent 3
|
||||
"*Size of Ada indentation.
|
||||
"Size of Ada indentation.
|
||||
|
||||
An example is :
|
||||
procedure Foo is
|
||||
|
|
@ -246,11 +246,11 @@ begin
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-indent-after-return t
|
||||
"*Non-nil means automatically indent after RET or LFD."
|
||||
"Non-nil means automatically indent after RET or LFD."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-indent-align-comments t
|
||||
"*Non-nil means align comments on previous line comments, if any.
|
||||
"Non-nil means align comments on previous line comments, if any.
|
||||
If nil, indentation is calculated as usual.
|
||||
Note that indentation is calculated only if `ada-indent-comment-as-code' is t.
|
||||
|
||||
|
|
@ -260,12 +260,12 @@ For instance:
|
|||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-indent-comment-as-code t
|
||||
"*Non-nil means indent comment lines as code.
|
||||
"Non-nil means indent comment lines as code.
|
||||
A nil value means do not auto-indent comments."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-indent-handle-comment-special nil
|
||||
"*Non-nil if comment lines should be handled specially inside parenthesis.
|
||||
"Non-nil if comment lines should be handled specially inside parenthesis.
|
||||
By default, if the line that contains the open parenthesis has some
|
||||
text following it, then the following lines will be indented in the
|
||||
same column as this text. This will not be true if the first line is
|
||||
|
|
@ -287,11 +287,11 @@ type A is
|
|||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-indent-is-separate t
|
||||
"*Non-nil means indent 'is separate' or 'is abstract' if on a single line."
|
||||
"Non-nil means indent 'is separate' or 'is abstract' if on a single line."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-indent-record-rel-type 3
|
||||
"*Indentation for 'record' relative to 'type' or 'use'.
|
||||
"Indentation for 'record' relative to 'type' or 'use'.
|
||||
|
||||
An example is:
|
||||
type A is
|
||||
|
|
@ -299,7 +299,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-indent-renames ada-broken-indent
|
||||
"*Indentation for renames relative to the matching function statement.
|
||||
"Indentation for renames relative to the matching function statement.
|
||||
If `ada-indent-return' is null or negative, the indentation is done relative to
|
||||
the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
|
||||
|
||||
|
|
@ -310,7 +310,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-indent-return 0
|
||||
"*Indentation for 'return' relative to the matching 'function' statement.
|
||||
"Indentation for 'return' relative to the matching 'function' statement.
|
||||
If `ada-indent-return' is null or negative, the indentation is done relative to
|
||||
the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
|
||||
|
||||
|
|
@ -320,22 +320,22 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-indent-to-open-paren t
|
||||
"*Non-nil means indent according to the innermost open parenthesis."
|
||||
"Non-nil means indent according to the innermost open parenthesis."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-fill-comment-prefix "-- "
|
||||
"*Text inserted in the first columns when filling a comment paragraph.
|
||||
"Text inserted in the first columns when filling a comment paragraph.
|
||||
Note: if you modify this variable, you will have to invoke `ada-mode'
|
||||
again to take account of the new value."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-fill-comment-postfix " --"
|
||||
"*Text inserted at the end of each line when filling a comment paragraph.
|
||||
"Text inserted at the end of each line when filling a comment paragraph.
|
||||
Used by `ada-fill-comment-paragraph-postfix'."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-label-indent -4
|
||||
"*Number of columns to indent a label.
|
||||
"Number of columns to indent a label.
|
||||
|
||||
An example is:
|
||||
procedure Foo is
|
||||
|
|
@ -346,15 +346,15 @@ This is also used for <<..>> labels"
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-language-version 'ada95
|
||||
"*Ada language version; one of `ada83', `ada95', `ada2005'."
|
||||
"Ada language version; one of `ada83', `ada95', `ada2005'."
|
||||
:type '(choice (const ada83) (const ada95) (const ada2005)) :group 'ada)
|
||||
|
||||
(defcustom ada-move-to-declaration nil
|
||||
"*Non-nil means `ada-move-to-start' moves to the subprogram declaration, not to 'begin'."
|
||||
"Non-nil means `ada-move-to-start' moves to the subprogram declaration, not to 'begin'."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-popup-key '[down-mouse-3]
|
||||
"*Key used for binding the contextual menu.
|
||||
"Key used for binding the contextual menu.
|
||||
If nil, no contextual menu is available."
|
||||
:type '(restricted-sexp :match-alternatives (stringp vectorp))
|
||||
:group 'ada)
|
||||
|
|
@ -364,7 +364,7 @@ If nil, no contextual menu is available."
|
|||
(split-string (or (getenv "ADA_INCLUDE_PATH") "") ":")
|
||||
'("/usr/adainclude" "/usr/local/adainclude"
|
||||
"/opt/gnu/adainclude"))
|
||||
"*Default list of directories to search for Ada files.
|
||||
"Default list of directories to search for Ada files.
|
||||
See the description for the `ff-search-directories' variable. This variable
|
||||
is the initial value of `ada-search-directories-internal'."
|
||||
:type '(repeat (choice :tag "Directory"
|
||||
|
|
@ -379,7 +379,7 @@ and the standard runtime location, and the value of the user-defined
|
|||
`ada-search-directories'.")
|
||||
|
||||
(defcustom ada-stmt-end-indent 0
|
||||
"*Number of columns to indent the end of a statement on a separate line.
|
||||
"Number of columns to indent the end of a statement on a separate line.
|
||||
|
||||
An example is:
|
||||
if A = B
|
||||
|
|
@ -387,7 +387,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-tab-policy 'indent-auto
|
||||
"*Control the behavior of the TAB key.
|
||||
"Control the behavior of the TAB key.
|
||||
Must be one of :
|
||||
`indent-rigidly' : always adds `ada-indent' blanks at the beginning of the line.
|
||||
`indent-auto' : use indentation functions in this file.
|
||||
|
|
@ -398,7 +398,7 @@ Must be one of :
|
|||
:group 'ada)
|
||||
|
||||
(defcustom ada-use-indent ada-broken-indent
|
||||
"*Indentation for the lines in a 'use' statement.
|
||||
"Indentation for the lines in a 'use' statement.
|
||||
|
||||
An example is:
|
||||
use Ada.Text_IO,
|
||||
|
|
@ -406,7 +406,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-when-indent 3
|
||||
"*Indentation for 'when' relative to 'exception' or 'case'.
|
||||
"Indentation for 'when' relative to 'exception' or 'case'.
|
||||
|
||||
An example is:
|
||||
case A is
|
||||
|
|
@ -414,7 +414,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-with-indent ada-broken-indent
|
||||
"*Indentation for the lines in a 'with' statement.
|
||||
"Indentation for the lines in a 'with' statement.
|
||||
|
||||
An example is:
|
||||
with Ada.Text_IO,
|
||||
|
|
@ -422,7 +422,7 @@ An example is:
|
|||
:type 'integer :group 'ada)
|
||||
|
||||
(defcustom ada-which-compiler 'gnat
|
||||
"*Name of the compiler to use.
|
||||
"Name of the compiler to use.
|
||||
This will determine what features are made available through the Ada mode.
|
||||
The possible choices are:
|
||||
`gnat': Use Ada Core Technologies' GNAT compiler. Add some cross-referencing
|
||||
|
|
|
|||
|
|
@ -50,21 +50,21 @@
|
|||
|
||||
;; ------ User variables
|
||||
(defcustom ada-xref-other-buffer t
|
||||
"*If nil, always display the cross-references in the same buffer.
|
||||
"If nil, always display the cross-references in the same buffer.
|
||||
Otherwise create either a new buffer or a new frame."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-xref-create-ali nil
|
||||
"*If non-nil, run gcc whenever the cross-references are not up-to-date.
|
||||
"If non-nil, run gcc whenever the cross-references are not up-to-date.
|
||||
If nil, the cross-reference mode never runs gcc."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-xref-confirm-compile nil
|
||||
"*If non-nil, ask for confirmation before compiling or running the application."
|
||||
"If non-nil, ask for confirmation before compiling or running the application."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-krunch-args "0"
|
||||
"*Maximum number of characters for filenames created by `gnatkr'.
|
||||
"Maximum number of characters for filenames created by `gnatkr'.
|
||||
Set to 0, if you don't use crunched filenames. This should be a string."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
|
|
@ -76,7 +76,7 @@ is faster, available from Ada mode web site."
|
|||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-gnatls-args '("-v")
|
||||
"*Arguments to pass to `gnatls' to find location of the runtime.
|
||||
"Arguments to pass to `gnatls' to find location of the runtime.
|
||||
Typical use is to pass `--RTS=soft-floats' on some systems that support it.
|
||||
|
||||
You can also add `-I-' if you do not want the current directory to be included.
|
||||
|
|
@ -125,7 +125,7 @@ The command `gnatfind' is used every time you choose the menu
|
|||
(defcustom ada-prj-default-check-cmd
|
||||
(concat "${cross_prefix}gnatmake -u -c -gnatc ${gnatmake_opt} ${full_current}"
|
||||
" -cargs ${comp_opt}")
|
||||
"*Default command to be used to compile a single file.
|
||||
"Default command to be used to compile a single file.
|
||||
Emacs will substitute the current filename for ${full_current}, or add
|
||||
the filename at the end. This is the same syntax as in the project file."
|
||||
:type 'string :group 'ada)
|
||||
|
|
@ -133,35 +133,35 @@ the filename at the end. This is the same syntax as in the project file."
|
|||
(defcustom ada-prj-default-comp-cmd
|
||||
(concat "${cross_prefix}gnatmake -u -c ${gnatmake_opt} ${full_current} -cargs"
|
||||
" ${comp_opt}")
|
||||
"*Default command to be used to compile a single file.
|
||||
"Default command to be used to compile a single file.
|
||||
Emacs will substitute the current filename for ${full_current}, or add
|
||||
the filename at the end. This is the same syntax as in the project file."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-prj-default-debugger "${cross_prefix}gdb"
|
||||
"*Default name of the debugger."
|
||||
"Default name of the debugger."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-prj-default-make-cmd
|
||||
(concat "${cross_prefix}gnatmake -o ${main} ${main} ${gnatmake_opt} "
|
||||
"-cargs ${comp_opt} -bargs ${bind_opt} -largs ${link_opt}")
|
||||
"*Default command to be used to compile the application.
|
||||
"Default command to be used to compile the application.
|
||||
This is the same syntax as in the project file."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-prj-default-project-file ""
|
||||
"*Name of the current project file.
|
||||
"Name of the current project file.
|
||||
Emacs will not try to use the search algorithm to find the project file if
|
||||
this string is not empty. It is set whenever a project file is found."
|
||||
:type '(file :must-match t) :group 'ada)
|
||||
|
||||
(defcustom ada-gnatstub-opts "-q -I${src_dir}"
|
||||
"*Options to pass to `gnatsub' to generate the body of a package.
|
||||
"Options to pass to `gnatsub' to generate the body of a package.
|
||||
This has the same syntax as in the project file (with variable substitution)."
|
||||
:type 'string :group 'ada)
|
||||
|
||||
(defcustom ada-always-ask-project nil
|
||||
"*If nil, use default values when no project file was found.
|
||||
"If nil, use default values when no project file was found.
|
||||
Otherwise, ask the user for the name of the project file to use."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
|
|
@ -169,12 +169,12 @@ Otherwise, ask the user for the name of the project file to use."
|
|||
"True if we are running on Windows.")
|
||||
|
||||
(defcustom ada-tight-gvd-integration nil
|
||||
"*If non-nil, a new Emacs frame will be swallowed in GVD when debugging.
|
||||
"If non-nil, a new Emacs frame will be swallowed in GVD when debugging.
|
||||
If GVD is not the debugger used, nothing happens."
|
||||
:type 'boolean :group 'ada)
|
||||
|
||||
(defcustom ada-xref-search-with-egrep t
|
||||
"*If non-nil, use egrep to find the possible declarations for an entity.
|
||||
"If non-nil, use egrep to find the possible declarations for an entity.
|
||||
This alternate method is used when the exact location was not found in the
|
||||
information provided by GNAT. However, it might be expensive if you have a lot
|
||||
of sources, since it will search in all the files in your project."
|
||||
|
|
|
|||
|
|
@ -269,7 +269,7 @@ greater than this number."
|
|||
(integer :tag "Hidden if longer than" :value 3)))
|
||||
|
||||
(defcustom antlr-indent-comment 'tab
|
||||
"*Non-nil, if the indentation should touch lines in block comments.
|
||||
"Non-nil, if the indentation should touch lines in block comments.
|
||||
If nil, no continuation line of a block comment is changed. If t, they
|
||||
are changed according to `c-indentation-line'. When not nil and not t,
|
||||
they are only changed by \\[antlr-indent-command]."
|
||||
|
|
@ -296,7 +296,7 @@ ANTLR's and Java's indentation styles. Used by `antlr-set-tabs'."
|
|||
(boolean :tag "Indent-tabs-mode"))))
|
||||
|
||||
(defcustom antlr-indent-style "java"
|
||||
"*If non-nil, cc-mode indentation style used for `antlr-mode'.
|
||||
"If non-nil, cc-mode indentation style used for `antlr-mode'.
|
||||
See `c-set-style' and for details, where the most interesting part in
|
||||
`c-style-alist' is the value of `c-basic-offset'."
|
||||
:group 'antlr
|
||||
|
|
@ -339,14 +339,14 @@ to the normal rules of `antlr-indent-line'."
|
|||
;;;===========================================================================
|
||||
|
||||
(defcustom antlr-options-use-submenus t
|
||||
"*Non-nil, if the major mode menu should include option submenus.
|
||||
"Non-nil, if the major mode menu should include option submenus.
|
||||
If nil, the menu just includes a command to insert options. Otherwise,
|
||||
it includes four submenus to insert file/grammar/rule/subrule options."
|
||||
:group 'antlr
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom antlr-tool-version 20701
|
||||
"*The version number of the Antlr tool.
|
||||
"The version number of the Antlr tool.
|
||||
The value is an integer of the form XYYZZ which stands for vX.YY.ZZ.
|
||||
This variable is used to warn about non-supported options and to supply
|
||||
version correct option values when using \\[antlr-insert-option].
|
||||
|
|
@ -358,7 +358,7 @@ can make this variable buffer-local."
|
|||
:type 'integer)
|
||||
|
||||
(defcustom antlr-options-auto-colon t
|
||||
"*Non-nil, if `:' is inserted with a rule or subrule options section.
|
||||
"Non-nil, if `:' is inserted with a rule or subrule options section.
|
||||
A `:' is only inserted if this value is non-nil, if a rule or subrule
|
||||
option is inserted with \\[antlr-insert-option], if there was no rule or
|
||||
subrule options section before, and if a `:' is not already present
|
||||
|
|
@ -378,7 +378,7 @@ is `language-as-string'. See also `antlr-read-value'."
|
|||
:type '(repeat (symbol :tag "Style symbol")))
|
||||
|
||||
(defcustom antlr-options-push-mark t
|
||||
"*Non-nil, if inserting an option should set & push mark.
|
||||
"Non-nil, if inserting an option should set & push mark.
|
||||
If nil, never set mark when inserting an option with command
|
||||
\\[antlr-insert-option]. If t, always set mark via `push-mark'. If a
|
||||
number, only set mark if point was outside the options area before and
|
||||
|
|
@ -392,7 +392,7 @@ options area before."
|
|||
(sexp :tag "If outside options" :format "%t" :value outside)))
|
||||
|
||||
(defcustom antlr-options-assign-string " = "
|
||||
"*String containing `=' to use between option name and value.
|
||||
"String containing `=' to use between option name and value.
|
||||
This string is only used if the option to insert did not exist before
|
||||
or if there was no `=' after it. In other words, the spacing around an
|
||||
existing `=' won't be changed when changing an option value."
|
||||
|
|
@ -578,21 +578,21 @@ AS-STRING is non-nil and is either t or a symbol which is a member of
|
|||
;;;===========================================================================
|
||||
|
||||
(defcustom antlr-tool-command "java antlr.Tool"
|
||||
"*Command used in \\[antlr-run-tool] to run the Antlr tool.
|
||||
"Command used in \\[antlr-run-tool] to run the Antlr tool.
|
||||
This variable should include all options passed to Antlr except the
|
||||
option \"-glib\" which is automatically suggested if necessary."
|
||||
:group 'antlr
|
||||
:type 'string)
|
||||
|
||||
(defcustom antlr-ask-about-save t
|
||||
"*If not nil, \\[antlr-run-tool] asks which buffers to save.
|
||||
"If not nil, \\[antlr-run-tool] asks which buffers to save.
|
||||
Otherwise, it saves all modified buffers before running without asking."
|
||||
:group 'antlr
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom antlr-makefile-specification
|
||||
'("\n" ("GENS" "GENS%d" " \\\n\t") "$(ANTLR)")
|
||||
"*Variable to specify the appearance of the generated makefile rules.
|
||||
"Variable to specify the appearance of the generated makefile rules.
|
||||
This variable influences the output of \\[antlr-show-makefile-rules].
|
||||
It looks like \(RULE-SEP GEN-VAR-SPEC COMMAND).
|
||||
|
||||
|
|
@ -650,7 +650,7 @@ See variable `antlr-file-formats-alist' for language dependent
|
|||
formats.")
|
||||
|
||||
(defvar antlr-unknown-file-formats '("?%s?.g" "?%s?")
|
||||
"*Formats which specify the names of unknown files.
|
||||
"Formats which specify the names of unknown files.
|
||||
The value looks like \(SUPER-GRAMMAR-FILE-FORMAT SUPER-EVOCAB-FORMAT).
|
||||
|
||||
SUPER-GRAMMAR-FORMAT is a format string, it specifies with substitution
|
||||
|
|
@ -685,7 +685,7 @@ DIRECTORY is the name of the current directory.")
|
|||
;;;===========================================================================
|
||||
|
||||
(defcustom antlr-imenu-name t ; (featurep 'xemacs) ; TODO: Emacs-21 bug?
|
||||
"*Non-nil, if a \"Index\" menu should be added to the menubar.
|
||||
"Non-nil, if a \"Index\" menu should be added to the menubar.
|
||||
If it is a string, it is used instead \"Index\". Requires package
|
||||
imenu."
|
||||
:group 'antlr
|
||||
|
|
@ -774,7 +774,7 @@ imenu."
|
|||
;;;===========================================================================
|
||||
|
||||
(defcustom antlr-font-lock-maximum-decoration 'inherit
|
||||
"*The maximum decoration level for fontifying actions.
|
||||
"The maximum decoration level for fontifying actions.
|
||||
Value `none' means, do not fontify actions, just normal grammar code
|
||||
according to `antlr-font-lock-additional-keywords'. Value `inherit'
|
||||
means, use value of `font-lock-maximum-decoration'. Any other value is
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue