mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 04:10:54 -08:00
Remove leading `*' from docs of some defcustoms etc.
* emulation/crisp.el, emulation/cua-base.el, emulation/edt.el: * emulation/pc-select.el, emulation/vip.el, international/iso-ascii.el: * international/kkc.el, international/ogonek.el, mail/feedmail.el: * net/browse-url.el, net/eudc-vars.el, net/net-utils.el: * net/rcompile.el, net/rlogin.el, textmodes/enriched.el: * textmodes/makeinfo.el, textmodes/page-ext.el, textmodes/picture.el: * textmodes/refer.el, textmodes/spell.el, textmodes/table.el: * textmodes/tex-mode.el, textmodes/two-column.el: Remove leading `*' from docs of defcustoms etc.
This commit is contained in:
Glenn Morris
parent
97161df81e
commit
1fc7dabfcf
24 changed files with 254 additions and 240 deletions
|
|
@ -1,3 +1,15 @@
|
|||
2010-09-23 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emulation/crisp.el, emulation/cua-base.el, emulation/edt.el:
|
||||
* emulation/pc-select.el, emulation/vip.el, international/iso-ascii.el:
|
||||
* international/kkc.el, international/ogonek.el, mail/feedmail.el:
|
||||
* net/browse-url.el, net/eudc-vars.el, net/net-utils.el:
|
||||
* net/rcompile.el, net/rlogin.el, textmodes/enriched.el:
|
||||
* textmodes/makeinfo.el, textmodes/page-ext.el, textmodes/picture.el:
|
||||
* textmodes/refer.el, textmodes/spell.el, textmodes/table.el:
|
||||
* textmodes/tex-mode.el, textmodes/two-column.el:
|
||||
Remove leading `*' from docs of defcustoms etc.
|
||||
|
||||
2010-09-23 Teodor Zlatanov <tzz@lifelogs.com>
|
||||
|
||||
* net/netrc.el (netrc-parse): Remove encrypt.el mentions.
|
||||
|
|
@ -444,7 +456,7 @@
|
|||
(tramp-find-inline-encoding, tramp-call-local-coding-command)
|
||||
(tramp-inline-compress-commands, tramp-find-inline-compress)
|
||||
(tramp-compute-multi-hops, tramp-maybe-open-connection)
|
||||
(tramp-send-command , tramp-wait-for-output)
|
||||
(tramp-send-command, tramp-wait-for-output)
|
||||
(tramp-send-command-and-check, tramp-barf-unless-okay)
|
||||
(tramp-send-command-and-read, tramp-mode-string-to-int)
|
||||
(tramp-convert-file-attributes, tramp-check-cached-permissions)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; crisp.el --- CRiSP/Brief Emacs emulator
|
||||
|
||||
;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM>
|
||||
;; Keywords: emulations brief crisp
|
||||
|
|
@ -175,7 +175,7 @@ All the bindings are done here instead of globally to try and be
|
|||
nice to the world.")
|
||||
|
||||
(defcustom crisp-mode-modeline-string " *CRiSP*"
|
||||
"*String to display in the modeline when CRiSP emulation mode is enabled."
|
||||
"String to display in the modeline when CRiSP emulation mode is enabled."
|
||||
:type 'string
|
||||
:group 'crisp)
|
||||
|
||||
|
|
@ -195,7 +195,7 @@ use either M-x customize or the function `crisp-mode'."
|
|||
:group 'crisp)
|
||||
|
||||
(defcustom crisp-override-meta-x t
|
||||
"*Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
|
||||
"Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
|
||||
Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and
|
||||
provides the usual M-x functionality on the F10 key. If this variable
|
||||
is non-nil, M-x will exit Emacs."
|
||||
|
|
|
|||
|
|
@ -270,7 +270,7 @@
|
|||
:link '(emacs-library-link :tag "Lisp File" "cua-base.el"))
|
||||
|
||||
(defcustom cua-enable-cua-keys t
|
||||
"*Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste.
|
||||
"Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste.
|
||||
If the value is t, these mappings are always enabled. If the value is
|
||||
`shift', these keys are only enabled if the last region was marked with
|
||||
a shifted movement key. If the value is nil, these keys are never
|
||||
|
|
@ -281,18 +281,18 @@ enabled."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-remap-control-v t
|
||||
"*If non-nil, C-v binding is used for paste (yank).
|
||||
"If non-nil, C-v binding is used for paste (yank).
|
||||
Also, M-v is mapped to `cua-repeat-replace-region'."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-remap-control-z t
|
||||
"*If non-nil, C-z binding is used for undo."
|
||||
"If non-nil, C-z binding is used for undo."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-highlight-region-shift-only nil
|
||||
"*If non-nil, only highlight region if marked with S-<move>.
|
||||
"If non-nil, only highlight region if marked with S-<move>.
|
||||
When this is non-nil, CUA toggles `transient-mark-mode' on when the region
|
||||
is marked using shifted movement keys, and off when the mark is cleared.
|
||||
But when the mark was set using \\[cua-set-mark], Transient Mark mode
|
||||
|
|
@ -302,7 +302,7 @@ is not turned on."
|
|||
|
||||
(defcustom cua-prefix-override-inhibit-delay
|
||||
(if (featurep 'lisp-float-type) (/ (float 1) (float 5)) nil)
|
||||
"*If non-nil, time in seconds to delay before overriding prefix key.
|
||||
"If non-nil, time in seconds to delay before overriding prefix key.
|
||||
If there is additional input within this time, the prefix key is
|
||||
used as a normal prefix key. So typing a key sequence quickly will
|
||||
inhibit overriding the prefix key.
|
||||
|
|
@ -315,7 +315,7 @@ If the value is nil, use a shifted prefix key to inhibit the override."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-delete-selection t
|
||||
"*If non-nil, typed text replaces text in the active selection."
|
||||
"If non-nil, typed text replaces text in the active selection."
|
||||
:type '(choice (const :tag "Disabled" nil)
|
||||
(other :tag "Enabled" t))
|
||||
:group 'cua)
|
||||
|
|
@ -326,13 +326,13 @@ If the value is nil, use a shifted prefix key to inhibit the override."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-toggle-set-mark t
|
||||
"*If non-nil, the `cua-set-mark' command toggles the mark."
|
||||
"If non-nil, the `cua-set-mark' command toggles the mark."
|
||||
:type '(choice (const :tag "Disabled" nil)
|
||||
(other :tag "Enabled" t))
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-auto-mark-last-change nil
|
||||
"*If non-nil, set implicit mark at position of last buffer change.
|
||||
"If non-nil, set implicit mark at position of last buffer change.
|
||||
This means that \\[universal-argument] \\[cua-set-mark] will jump to the position
|
||||
of the last buffer change before jumping to the explicit marks on the mark ring.
|
||||
See `cua-set-mark' for details."
|
||||
|
|
@ -340,7 +340,7 @@ See `cua-set-mark' for details."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-enable-register-prefix 'not-ctrl-u
|
||||
"*If non-nil, registers are supported via numeric prefix arg.
|
||||
"If non-nil, registers are supported via numeric prefix arg.
|
||||
If the value is t, any numeric prefix arg in the range 0 to 9 will be
|
||||
interpreted as a register number.
|
||||
If the value is `not-ctrl-u', using C-u to enter a numeric prefix is not
|
||||
|
|
@ -354,29 +354,29 @@ interpreted as a register number."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-delete-copy-to-register-0 t
|
||||
"*If non-nil, save last deleted region or rectangle to register 0."
|
||||
"If non-nil, save last deleted region or rectangle to register 0."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-enable-region-auto-help nil
|
||||
"*If non-nil, automatically show help for active region."
|
||||
"If non-nil, automatically show help for active region."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-enable-modeline-indications nil
|
||||
"*If non-nil, use minor-mode hook to show status in mode line."
|
||||
"If non-nil, use minor-mode hook to show status in mode line."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-check-pending-input t
|
||||
"*If non-nil, don't override prefix key if input pending.
|
||||
"If non-nil, don't override prefix key if input pending.
|
||||
It is rumoured that `input-pending-p' is unreliable under some window
|
||||
managers, so try setting this to nil, if prefix override doesn't work."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-paste-pop-rotate-temporarily nil
|
||||
"*If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily.
|
||||
"If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily.
|
||||
This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert
|
||||
the most recently killed text. Each immediately following \\[cua-paste-pop] replaces
|
||||
the previous text with the next older element on the `kill-ring'.
|
||||
|
|
@ -388,7 +388,7 @@ recent \\[yank-pop] (or \\[yank]) command."
|
|||
;;; Rectangle Customization
|
||||
|
||||
(defcustom cua-virtual-rectangle-edges t
|
||||
"*If non-nil, rectangles have virtual straight edges.
|
||||
"If non-nil, rectangles have virtual straight edges.
|
||||
Note that although rectangles are always DISPLAYED with straight edges, the
|
||||
buffer is NOT modified, until you execute a command that actually modifies it.
|
||||
M-p toggles this feature when a rectangle is active."
|
||||
|
|
@ -396,7 +396,7 @@ M-p toggles this feature when a rectangle is active."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-auto-tabify-rectangles 1000
|
||||
"*If non-nil, automatically tabify after rectangle commands.
|
||||
"If non-nil, automatically tabify after rectangle commands.
|
||||
This basically means that `tabify' is applied to all lines that
|
||||
are modified by inserting or deleting a rectangle. If value is
|
||||
an integer, CUA will look for existing tabs in a region around
|
||||
|
|
@ -428,7 +428,7 @@ and after the region marked by the rectangle to search."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-rectangle-modifier-key 'meta
|
||||
"*Modifier key used for rectangle commands bindings.
|
||||
"Modifier key used for rectangle commands bindings.
|
||||
On non-window systems, always use the meta modifier.
|
||||
Must be set prior to enabling CUA."
|
||||
:type '(choice (const :tag "Meta key" meta)
|
||||
|
|
@ -438,27 +438,27 @@ Must be set prior to enabling CUA."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-enable-rectangle-auto-help t
|
||||
"*If non-nil, automatically show help for region, rectangle and global mark."
|
||||
"If non-nil, automatically show help for region, rectangle and global mark."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
(defface cua-rectangle
|
||||
'((default :inherit region)
|
||||
(((class color)) :foreground "white" :background "maroon"))
|
||||
"*Font used by CUA for highlighting the rectangle."
|
||||
"Font used by CUA for highlighting the rectangle."
|
||||
:group 'cua)
|
||||
|
||||
(defface cua-rectangle-noselect
|
||||
'((default :inherit region)
|
||||
(((class color)) :foreground "white" :background "dimgray"))
|
||||
"*Font used by CUA for highlighting the non-selected rectangle lines."
|
||||
"Font used by CUA for highlighting the non-selected rectangle lines."
|
||||
:group 'cua)
|
||||
|
||||
|
||||
;;; Global Mark Customization
|
||||
|
||||
(defcustom cua-global-mark-keep-visible t
|
||||
"*If non-nil, always keep global mark visible in other window."
|
||||
"If non-nil, always keep global mark visible in other window."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
|
|
@ -466,11 +466,11 @@ Must be set prior to enabling CUA."
|
|||
'((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
|
||||
(((class color)) :foreground "black" :background "yellow")
|
||||
(t :bold t))
|
||||
"*Font used by CUA for highlighting the global mark."
|
||||
"Font used by CUA for highlighting the global mark."
|
||||
:group 'cua)
|
||||
|
||||
(defcustom cua-global-mark-blink-cursor-interval 0.20
|
||||
"*Blink cursor at this interval when global mark is active."
|
||||
"Blink cursor at this interval when global mark is active."
|
||||
:type '(choice (number :tag "Blink interval")
|
||||
(const :tag "No blink" nil))
|
||||
:group 'cua)
|
||||
|
|
@ -479,7 +479,7 @@ Must be set prior to enabling CUA."
|
|||
;;; Cursor Indication Customization
|
||||
|
||||
(defcustom cua-enable-cursor-indications nil
|
||||
"*If non-nil, use different cursor colors for indications."
|
||||
"If non-nil, use different cursor colors for indications."
|
||||
:type 'boolean
|
||||
:group 'cua)
|
||||
|
||||
|
|
@ -517,7 +517,7 @@ a cons (TYPE . COLOR), then both properties are affected."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-read-only-cursor-color "darkgreen"
|
||||
"*Cursor color used in read-only buffers, if non-nil.
|
||||
"Cursor color used in read-only buffers, if non-nil.
|
||||
Only used when `cua-enable-cursor-indications' is non-nil.
|
||||
|
||||
If the value is a COLOR name, then only the `cursor-color' attribute will be
|
||||
|
|
@ -541,7 +541,7 @@ a cons (TYPE . COLOR), then both properties are affected."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-overwrite-cursor-color "yellow"
|
||||
"*Cursor color used when overwrite mode is set, if non-nil.
|
||||
"Cursor color used when overwrite mode is set, if non-nil.
|
||||
Only used when `cua-enable-cursor-indications' is non-nil.
|
||||
|
||||
If the value is a COLOR name, then only the `cursor-color' attribute will be
|
||||
|
|
@ -565,7 +565,7 @@ a cons (TYPE . COLOR), then both properties are affected."
|
|||
:group 'cua)
|
||||
|
||||
(defcustom cua-global-mark-cursor-color "cyan"
|
||||
"*Indication for active global mark.
|
||||
"Indication for active global mark.
|
||||
Will change cursor color to specified color if string.
|
||||
Only used when `cua-enable-cursor-indications' is non-nil.
|
||||
|
||||
|
|
|
|||
|
|
@ -194,7 +194,7 @@
|
|||
;;;
|
||||
|
||||
(defcustom edt-keep-current-page-delimiter nil
|
||||
"*Emacs MUST be restarted for a change in value to take effect!
|
||||
"Emacs MUST be restarted for a change in value to take effect!
|
||||
Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT
|
||||
Emulation. If set to nil (the default), the `page-delimiter' variable
|
||||
is set to \"\\f\" when edt-emulation-on is first invoked. This
|
||||
|
|
@ -204,7 +204,7 @@ is restored when edt-emulation-off is called."
|
|||
:group 'edt)
|
||||
|
||||
(defcustom edt-use-EDT-control-key-bindings nil
|
||||
"*Emacs MUST be restarted for a change in value to take effect!
|
||||
"Emacs MUST be restarted for a change in value to take effect!
|
||||
Non-nil causes the control key bindings to be replaced with EDT
|
||||
bindings. If set to nil (the default), EDT control key bindings are
|
||||
not used and the current Emacs control key bindings are retained for
|
||||
|
|
@ -213,7 +213,7 @@ use within the EDT emulation."
|
|||
:group 'edt)
|
||||
|
||||
(defcustom edt-word-entities '(?\t)
|
||||
"*Specifies the list of EDT word entity characters.
|
||||
"Specifies the list of EDT word entity characters.
|
||||
The default list, (\?\\t), contains just the TAB character, which
|
||||
emulates EDT. Characters are specified in the list using their
|
||||
decimal ASCII values. A question mark, followed by the actual
|
||||
|
|
@ -238,14 +238,14 @@ will be treated as if it were a separate word."
|
|||
:group 'edt)
|
||||
|
||||
(defcustom edt-top-scroll-margin 10
|
||||
"*Scroll margin at the top of the screen.
|
||||
"Scroll margin at the top of the screen.
|
||||
Interpreted as a percent of the current window size with a default
|
||||
setting of 10%. If set to 0, top scroll margin is disabled."
|
||||
:type 'integer
|
||||
:group 'edt)
|
||||
|
||||
(defcustom edt-bottom-scroll-margin 15
|
||||
"*Scroll margin at the bottom of the screen.
|
||||
"Scroll margin at the bottom of the screen.
|
||||
Interpreted as a percent of the current window size with a default
|
||||
setting of 15%. If set to 0, bottom scroll margin is disabled."
|
||||
:type 'integer
|
||||
|
|
|
|||
|
|
@ -85,7 +85,7 @@
|
|||
:group 'emulations)
|
||||
|
||||
(defcustom pc-select-override-scroll-error t
|
||||
"*Non-nil means don't generate error on scrolling past edge of buffer.
|
||||
"Non-nil means don't generate error on scrolling past edge of buffer.
|
||||
This variable applies in PC Selection mode only.
|
||||
The scroll commands normally generate an error if you try to scroll
|
||||
past the top or bottom of the buffer. This is annoying when selecting
|
||||
|
|
@ -98,14 +98,14 @@ errors are suppressed."
|
|||
"24.1")
|
||||
|
||||
(defcustom pc-select-selection-keys-only nil
|
||||
"*Non-nil means only bind the basic selection keys when started.
|
||||
"Non-nil means only bind the basic selection keys when started.
|
||||
Other keys that emulate pc-behavior will be untouched.
|
||||
This gives mostly Emacs-like behavior with only the selection keys enabled."
|
||||
:type 'boolean
|
||||
:group 'pc-select)
|
||||
|
||||
(defcustom pc-select-meta-moves-sexps nil
|
||||
"*Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
|
||||
"Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
|
||||
:type 'boolean
|
||||
:group 'pc-select)
|
||||
|
||||
|
|
|
|||
|
|
@ -91,12 +91,12 @@
|
|||
"How to reexecute last destructive command. Value is list (M-COM VAL COM).")
|
||||
|
||||
(defcustom vip-shift-width 8
|
||||
"*The number of columns shifted by > and < command."
|
||||
"The number of columns shifted by > and < command."
|
||||
:type 'integer
|
||||
:group 'vip)
|
||||
|
||||
(defcustom vip-re-replace nil
|
||||
"*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
|
||||
:group 'vip)
|
||||
|
||||
|
|
@ -116,12 +116,12 @@
|
|||
"For use by \";\" command.")
|
||||
|
||||
(defcustom vip-search-wrap-around t
|
||||
"*If t, search wraps around."
|
||||
"If t, search wraps around."
|
||||
:type 'boolean
|
||||
:group 'vip)
|
||||
|
||||
(defcustom vip-re-search nil
|
||||
"*If t, search is reg-exp search, otherwise vanilla search."
|
||||
"If t, search is reg-exp search, otherwise vanilla search."
|
||||
:type 'boolean
|
||||
:group 'vip)
|
||||
|
||||
|
|
@ -132,22 +132,22 @@
|
|||
"If t, search is forward.")
|
||||
|
||||
(defcustom vip-case-fold-search nil
|
||||
"*If t, search ignores cases."
|
||||
"If t, search ignores cases."
|
||||
:type 'boolean
|
||||
:group 'vip)
|
||||
|
||||
(defcustom vip-re-query-replace nil
|
||||
"*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
|
||||
:group 'vip)
|
||||
|
||||
(defcustom vip-open-with-indent nil
|
||||
"*If t, indent when open a new line."
|
||||
"If t, indent when open a new line."
|
||||
:type 'boolean
|
||||
:group 'vip)
|
||||
|
||||
(defcustom vip-help-in-insert-mode nil
|
||||
"*If t then C-h is bound to help-command in insert mode.
|
||||
"If t then C-h is bound to help-command in insert mode.
|
||||
If nil then it is bound to `delete-backward-char'."
|
||||
:type 'boolean
|
||||
:group 'vip)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
|
||||
|
||||
;; Copyright (C) 1987, 1995, 1998, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1987, 1995, 1998, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Howard Gayle
|
||||
;; Maintainer: FSF
|
||||
|
|
@ -41,7 +41,7 @@
|
|||
:group 'i18n)
|
||||
|
||||
(defcustom iso-ascii-convenient nil
|
||||
"*Non-nil means `iso-ascii' should aim for convenience, not precision."
|
||||
"Non-nil means `iso-ascii' should aim for convenience, not precision."
|
||||
:type 'boolean
|
||||
:group 'iso-ascii)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010
|
||||
;; National Institute of Advanced Industrial Science and Technology (AIST)
|
||||
|
|
@ -135,7 +135,7 @@ This string is shown at mode line when users are in KKC mode.")
|
|||
(defvar kkc-current-conversions-width nil)
|
||||
|
||||
(defcustom kkc-show-conversion-list-count 4
|
||||
"*Count of successive `kkc-next' or `kkc-prev' to show conversion list.
|
||||
"Count of successive `kkc-next' or `kkc-prev' to show conversion list.
|
||||
When you type SPC or C-p successively this count while using the input
|
||||
method `japanese', the conversion candidates are shown in the echo
|
||||
area while indicating the current selection by `<N>'."
|
||||
|
|
|
|||
|
|
@ -273,23 +273,23 @@ The functions come in the following groups.
|
|||
ogonek-name-encoding-alist))
|
||||
"List of ogonek encodings. Used only for customization.")
|
||||
(defcustom ogonek-from-encoding "iso8859-2"
|
||||
"*Encoding in the source file of recoding."
|
||||
"Encoding in the source file of recoding."
|
||||
:type ogonek-encoding-choices
|
||||
:group 'ogonek)
|
||||
(defcustom ogonek-to-encoding "ascii"
|
||||
"*Encoding in the target file of recoding."
|
||||
"Encoding in the target file of recoding."
|
||||
:type ogonek-encoding-choices
|
||||
:group 'ogonek)
|
||||
(defcustom ogonek-prefix-char ?/
|
||||
"*Prefix character for prefix encodings."
|
||||
"Prefix character for prefix encodings."
|
||||
:type 'character
|
||||
:group 'ogonek)
|
||||
(defcustom ogonek-prefix-from-encoding "iso8859-2"
|
||||
"*Encoding in the source file subject to prefixifation."
|
||||
"Encoding in the source file subject to prefixifation."
|
||||
:type ogonek-encoding-choices
|
||||
:group 'ogonek)
|
||||
(defcustom ogonek-prefix-to-encoding "iso8859-2"
|
||||
"*Encoding in the target file subject to deprefixifation."
|
||||
"Encoding in the target file subject to deprefixifation."
|
||||
:type ogonek-encoding-choices
|
||||
:group 'ogonek)
|
||||
|
||||
|
|
|
|||
|
|
@ -314,7 +314,7 @@
|
|||
|
||||
|
||||
(defcustom feedmail-confirm-outgoing nil
|
||||
"*If non-nil, give a y-or-n confirmation prompt before sending mail.
|
||||
"If non-nil, give a y-or-n confirmation prompt before sending mail.
|
||||
This is done after the message is completely prepped, and you'll be
|
||||
looking at the top of the message in a buffer when you get the prompt.
|
||||
If set to the symbol 'queued, give the confirmation prompt only while
|
||||
|
|
@ -330,7 +330,7 @@ cases. You can give a timeout for the prompt; see variable
|
|||
|
||||
|
||||
(defcustom feedmail-confirm-outgoing-timeout nil
|
||||
"*If non-nil, a timeout in seconds at the send confirmation prompt.
|
||||
"If non-nil, a timeout in seconds at the send confirmation prompt.
|
||||
If a positive number, it's a timeout before sending. If a negative
|
||||
number, it's a timeout before not sending. This will not work if your
|
||||
version of Emacs doesn't include the function `y-or-n-p-with-timeout'
|
||||
|
|
@ -341,7 +341,7 @@ version of Emacs doesn't include the function `y-or-n-p-with-timeout'
|
|||
|
||||
|
||||
(defcustom feedmail-nuke-bcc t
|
||||
"*If non-nil remove Bcc: lines from the message headers.
|
||||
"If non-nil remove Bcc: lines from the message headers.
|
||||
In any case, the Bcc: lines do participate in the composed address
|
||||
list. You may want to leave them in if you're using sendmail
|
||||
\(see `feedmail-buffer-eating-function'\)."
|
||||
|
|
@ -351,7 +351,7 @@ list. You may want to leave them in if you're using sendmail
|
|||
|
||||
|
||||
(defcustom feedmail-nuke-resent-bcc t
|
||||
"*If non-nil remove Resent-Bcc: lines from the message headers.
|
||||
"If non-nil remove Resent-Bcc: lines from the message headers.
|
||||
In any case, the Resent-Bcc: lines do participate in the composed
|
||||
address list. You may want to leave them in if you're using sendmail
|
||||
\(see `feedmail-buffer-eating-function'\)."
|
||||
|
|
@ -361,7 +361,7 @@ address list. You may want to leave them in if you're using sendmail
|
|||
|
||||
|
||||
(defcustom feedmail-deduce-bcc-where nil
|
||||
"*Where Bcc:/Resent-Bcc: addresses should appear in the envelope list.
|
||||
"Where Bcc:/Resent-Bcc: addresses should appear in the envelope list.
|
||||
Addresses for the message envelope are deduced by examining
|
||||
appropriate address headers in the message. Generally, they will show
|
||||
up in the list of deduced addresses in the order that the headers
|
||||
|
|
@ -387,7 +387,7 @@ delivery agent that processes the addresses backwards."
|
|||
|
||||
|
||||
(defcustom feedmail-fill-to-cc t
|
||||
"*If non-nil do smart filling of addressee header lines.
|
||||
"If non-nil do smart filling of addressee header lines.
|
||||
Smart filling means breaking long lines at appropriate points and
|
||||
making continuation lines. Despite the function name, it includes
|
||||
To:, Cc:, Bcc: (and their Resent-* forms), as well as From: and
|
||||
|
|
@ -399,14 +399,14 @@ as-is. The filling is done after mail address alias expansion."
|
|||
|
||||
|
||||
(defcustom feedmail-fill-to-cc-fill-column default-fill-column
|
||||
"*Fill column used by `feedmail-fill-to-cc'."
|
||||
"Fill column used by `feedmail-fill-to-cc'."
|
||||
:group 'feedmail-headers
|
||||
:type 'integer
|
||||
)
|
||||
|
||||
|
||||
(defcustom feedmail-nuke-bcc-in-fcc nil
|
||||
"*If non-nil remove [Resent-]Bcc: lines in message copies saved via Fcc:.
|
||||
"If non-nil remove [Resent-]Bcc: lines in message copies saved via Fcc:.
|
||||
This is independent of whether the Bcc: header lines are actually sent
|
||||
with the message (see feedmail-nuke-bcc). Though not implied in the name,
|
||||
the same Fcc: treatment applies to both Bcc: and Resent-Bcc: lines."
|
||||
|
|
@ -416,7 +416,7 @@ the same Fcc: treatment applies to both Bcc: and Resent-Bcc: lines."
|
|||
|
||||
|
||||
(defcustom feedmail-nuke-body-in-fcc nil
|
||||
"*If non-nil remove body of message in copies saved via Fcc:.
|
||||
"If non-nil remove body of message in copies saved via Fcc:.
|
||||
If a positive integer value, leave (up to) that many lines of the
|
||||
beginning of the body intact. The result is that the Fcc: copy will
|
||||
consist only of the message headers, serving as a sort of an outgoing
|
||||
|
|
@ -427,7 +427,7 @@ message log."
|
|||
|
||||
|
||||
(defcustom feedmail-force-expand-mail-aliases nil
|
||||
"*If non-nil, force the calling of `expand-mail-aliases'.
|
||||
"If non-nil, force the calling of `expand-mail-aliases'.
|
||||
Normally, feedmail tries to figure out if you're using mailalias or
|
||||
mailabbrevs and only calls `expand-mail-aliases' if it thinks you're
|
||||
using the mailalias package. This user option can be used to force
|
||||
|
|
@ -439,7 +439,7 @@ out."
|
|||
|
||||
|
||||
(defcustom feedmail-nuke-empty-headers t
|
||||
"*If non-nil, remove header lines which have no contents.
|
||||
"If non-nil, remove header lines which have no contents.
|
||||
A completely empty Subject: header is always removed, regardless of
|
||||
the setting of this variable. The only time you would want them left
|
||||
in would be if you used some headers whose presence indicated
|
||||
|
|
@ -457,7 +457,7 @@ but common in some proprietary systems."
|
|||
;; RFC-822 and RFC-1123, but are you *really* one of those cases
|
||||
;; they're talking about? I doubt it.)
|
||||
(defcustom feedmail-sender-line nil
|
||||
"*If non-nil and the email has no Sender: header, use this value.
|
||||
"If non-nil and the email has no Sender: header, use this value.
|
||||
May be nil, in which case nothing in particular is done with respect
|
||||
to Sender: lines. By design, will not replace an existing Sender:
|
||||
line, but you can achieve that with a fiddle-plex 'replace action.
|
||||
|
|
@ -484,7 +484,7 @@ header is fiddled after the From: header is fiddled."
|
|||
|
||||
|
||||
(defcustom feedmail-force-binary-write t
|
||||
"*If non-nil, force writing file as binary (this applies to queues and Fcc:).
|
||||
"If non-nil, force writing file as binary (this applies to queues and Fcc:).
|
||||
On systems where there is a difference between binary and text files,
|
||||
feedmail will temporarily manipulate the value of `buffer-file-type'
|
||||
to make the writing as binary. If nil, writing will be in text mode.
|
||||
|
|
@ -496,7 +496,7 @@ variables or other means, this option has no effect."
|
|||
|
||||
|
||||
(defcustom feedmail-from-line t
|
||||
"*If non-nil and the email has no From: header, use this value.
|
||||
"If non-nil and the email has no From: header, use this value.
|
||||
May be t, in which case a default is computed (and you probably won't
|
||||
be happy with it). May be nil, in which case nothing in particular is
|
||||
done with respect to From: lines. By design, will not replace an
|
||||
|
|
@ -526,7 +526,7 @@ to arrange for the message to get a From: line."
|
|||
|
||||
|
||||
(defcustom feedmail-deduce-envelope-from t
|
||||
"*If non-nil, deduce message envelope \"from\" from header From: or Sender:.
|
||||
"If non-nil, deduce message envelope \"from\" from header From: or Sender:.
|
||||
In other words, if there is a Sender: header in the message, temporarily
|
||||
change the value of `user-mail-address' to be the same while the message
|
||||
is being sent. If there is no Sender: header, use the From: header,
|
||||
|
|
@ -555,14 +555,14 @@ influence what they will use as the envelope."
|
|||
|
||||
|
||||
(defcustom feedmail-x-mailer-line-user-appendage nil
|
||||
"*See feedmail-x-mailer-line."
|
||||
"See feedmail-x-mailer-line."
|
||||
:group 'feedmail-headers
|
||||
:type '(choice (const nil) (const t) string)
|
||||
)
|
||||
|
||||
|
||||
(defcustom feedmail-x-mailer-line t
|
||||
"*Control the form of an X-Mailer: header in an outgoing message.
|
||||
"Control the form of an X-Mailer: header in an outgoing message.
|
||||
Moderately useful for debugging, keeping track of your correspondents'
|
||||
mailer preferences, or just wearing your MUA on your sleeve. You
|
||||
should probably know that some people are fairly emotional about the
|
||||
|
|
@ -592,7 +592,7 @@ by feedmail to either \"X-Mailer\" or \"X-Resent-Mailer\"."
|
|||
|
||||
|
||||
(defcustom feedmail-message-id-generator t
|
||||
"*Specifies the creation of a Message-Id: header field.
|
||||
"Specifies the creation of a Message-Id: header field.
|
||||
|
||||
If nil, nothing is done about Message-Id:.
|
||||
|
||||
|
|
@ -622,7 +622,7 @@ in the saved message if you use Fcc:."
|
|||
|
||||
|
||||
(defcustom feedmail-message-id-suffix nil
|
||||
"*If non-nil, used as a suffix for generating unique Message-Id: headers.
|
||||
"If non-nil, used as a suffix for generating unique Message-Id: headers.
|
||||
The function `feedmail-default-message-id-generator' creates its work based
|
||||
on a formatted date-time string, a random number, and a domain-looking suffix.
|
||||
You can control the suffix used by assigning a string value to this variable.
|
||||
|
|
@ -637,7 +637,7 @@ automatically."
|
|||
;; this was suggested in various forms by several people; first was
|
||||
;; Tony DeSimone in Oct 1992; sorry to be so tardy
|
||||
(defcustom feedmail-date-generator t
|
||||
"*Specifies the creation of a Date: header field.
|
||||
"Specifies the creation of a Date: header field.
|
||||
|
||||
If nil, nothing is done about Date:.
|
||||
|
||||
|
|
@ -671,7 +671,7 @@ in the saved message if you use Fcc:."
|
|||
|
||||
|
||||
(defcustom feedmail-fiddle-headers-upwardly t
|
||||
"*Non-nil means fiddled header fields should go at the top of the header.
|
||||
"Non-nil means fiddled header fields should go at the top of the header.
|
||||
nil means insert them at the bottom. This is mostly a novelty issue since
|
||||
the standards define the ordering of header fields to be immaterial and it's
|
||||
fairly likely that some MTA along the way will have its own idea of what the
|
||||
|
|
@ -777,7 +777,7 @@ you are at accomplishing inherently inefficient things."
|
|||
|
||||
|
||||
(defcustom feedmail-enable-queue nil
|
||||
"*If non-nil, provide for stashing outgoing messages in a queue.
|
||||
"If non-nil, provide for stashing outgoing messages in a queue.
|
||||
This is the master on/off switch for feedmail message queuing.
|
||||
Queuing is quite handy for laptop-based users. It's also handy if you
|
||||
get a lot of mail and process it more or less sequentially. For
|
||||
|
|
@ -804,7 +804,7 @@ To transmit all the messages in the queue, invoke the command
|
|||
|
||||
|
||||
(defcustom feedmail-queue-runner-confirm-global nil
|
||||
"*If non-nil, give a y-or-n confirmation prompt before running the queue.
|
||||
"If non-nil, give a y-or-n confirmation prompt before running the queue.
|
||||
Prompt even if the queue is about to be processed as a result of a call to
|
||||
`feedmail-run-the-queue-no-prompts'. This gives you a way to bail out
|
||||
without having to answer no to the individual message prompts."
|
||||
|
|
@ -814,7 +814,7 @@ without having to answer no to the individual message prompts."
|
|||
|
||||
(defcustom feedmail-queue-directory
|
||||
(concat (getenv "HOME") "/mail/q")
|
||||
"*Name of a directory where messages will be queued.
|
||||
"Name of a directory where messages will be queued.
|
||||
Directory will be created if necessary. Should be a string that
|
||||
doesn't end with a slash. Default is \"$HOME/mail/q\"."
|
||||
:group 'feedmail-queue
|
||||
|
|
@ -824,7 +824,7 @@ doesn't end with a slash. Default is \"$HOME/mail/q\"."
|
|||
|
||||
(defcustom feedmail-queue-draft-directory
|
||||
(concat (getenv "HOME") "/mail/draft")
|
||||
"*Name of a directory where draft messages will be queued.
|
||||
"Name of a directory where draft messages will be queued.
|
||||
Directory will be created if necessary. Should be a string that
|
||||
doesn't end with a slash. Default is \"$HOME/mail/draft\"."
|
||||
:group 'feedmail-queue
|
||||
|
|
@ -833,7 +833,7 @@ doesn't end with a slash. Default is \"$HOME/mail/draft\"."
|
|||
|
||||
|
||||
(defcustom feedmail-ask-before-queue t
|
||||
"*If non-nil, feedmail will ask what you want to do with the message.
|
||||
"If non-nil, feedmail will ask what you want to do with the message.
|
||||
Default choices for the message action prompt will include sending it
|
||||
immediately, putting it in the main queue, putting it in the draft
|
||||
queue, or returning to the buffer to continue editing. Only matters if
|
||||
|
|
@ -845,7 +845,7 @@ without a prompt."
|
|||
|
||||
|
||||
(defcustom feedmail-ask-before-queue-prompt "FQM: Message action (q, i, d, e, ?)? [%s]: "
|
||||
"*A string which will be used for the message action prompt.
|
||||
"A string which will be used for the message action prompt.
|
||||
If it contains a \"%s\", that will be replaced with the value of
|
||||
`feedmail-ask-before-queue-default'."
|
||||
:group 'feedmail-queue
|
||||
|
|
@ -854,7 +854,7 @@ If it contains a \"%s\", that will be replaced with the value of
|
|||
|
||||
|
||||
(defcustom feedmail-ask-before-queue-reprompt "FQM: Please type q, i, d, or e; or ? for help [%s]: "
|
||||
"*A string which will be used for repompting after invalid input.
|
||||
"A string which will be used for repompting after invalid input.
|
||||
If it contains a \"%s\", that will be replaced with the value of
|
||||
`feedmail-ask-before-queue-default'."
|
||||
:group 'feedmail-queue
|
||||
|
|
@ -863,7 +863,7 @@ If it contains a \"%s\", that will be replaced with the value of
|
|||
|
||||
|
||||
(defcustom feedmail-ask-before-queue-default "queue"
|
||||
"*Meaning if user hits return in response to the message action prompt.
|
||||
"Meaning if user hits return in response to the message action prompt.
|
||||
Should be a character or a string; if a string, only the first
|
||||
character is significant. Useful values are those described in
|
||||
the help for the message action prompt."
|
||||
|
|
@ -947,7 +947,7 @@ It may contain embedded line breaks. It will be printed via `princ'."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-chatty t
|
||||
"*If non-nil, blat a few status messages and such in the mini-buffer.
|
||||
"If non-nil, blat a few status messages and such in the mini-buffer.
|
||||
If nil, just do the work and don't pester people about what's going on.
|
||||
In some cases, though, specific options inspire mini-buffer prompting.
|
||||
That's not affected by this variable setting. Also does not control
|
||||
|
|
@ -958,7 +958,7 @@ reporting of error/abnormal conditions."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-chatty-sit-for 2
|
||||
"*Duration of pause after most queue-related messages.
|
||||
"Duration of pause after most queue-related messages.
|
||||
After some messages are divulged, it is prudent to pause before
|
||||
something else obliterates them. This value controls the duration of
|
||||
the pause."
|
||||
|
|
@ -968,7 +968,7 @@ the pause."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-run-orderer nil
|
||||
"*If non-nil, name a function which will sort the queued messages.
|
||||
"If non-nil, name a function which will sort the queued messages.
|
||||
The function is called during a running of the queue for sending, and
|
||||
takes one argument, a list of the files in the queue directory. It
|
||||
may contain the names of non-message files, and it's okay to leave
|
||||
|
|
@ -982,7 +982,7 @@ they were placed in the queue."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-use-send-time-for-date nil
|
||||
"*If non-nil, use send time for the Date: header value.
|
||||
"If non-nil, use send time for the Date: header value.
|
||||
This variable is used by the default date generating function,
|
||||
feedmail-default-date-generator. If nil, the default, the
|
||||
last-modified timestamp of the queue file is used to create the
|
||||
|
|
@ -994,7 +994,7 @@ used."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-use-send-time-for-message-id nil
|
||||
"*If non-nil, use send time for the Message-Id: header value.
|
||||
"If non-nil, use send time for the Message-Id: header value.
|
||||
This variable is used by the default Message-Id: generating function,
|
||||
`feedmail-default-message-id-generator'. If nil, the default, the
|
||||
last-modified timestamp of the queue file is used to create the
|
||||
|
|
@ -1006,7 +1006,7 @@ used."
|
|||
|
||||
|
||||
(defcustom feedmail-ask-for-queue-slug nil
|
||||
"*If non-nil, prompt user for part of the queue file name.
|
||||
"If non-nil, prompt user for part of the queue file name.
|
||||
The file will automatically get the FQM suffix and an embedded
|
||||
sequence number for uniqueness, so don't specify that. feedmail will
|
||||
get rid of all characters other than alphanumeric and hyphen in the
|
||||
|
|
@ -1023,7 +1023,7 @@ based on the subjects of the messages."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-slug-maker 'feedmail-queue-subject-slug-maker
|
||||
"*If non-nil, a function which creates part of the queued file name.
|
||||
"If non-nil, a function which creates part of the queued file name.
|
||||
Takes a single argument giving the name of the directory into
|
||||
which the message will be queued. The returned string should be just
|
||||
the non-directory filename part, without FQM suffix or uniquifying
|
||||
|
|
@ -1036,7 +1036,7 @@ any."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-default-file-slug t
|
||||
"*Indicates what to use for subject-less messages when forming a file name.
|
||||
"Indicates what to use for subject-less messages when forming a file name.
|
||||
When feedmail queues a message, it creates a unique file name. By default,
|
||||
the file name is based in part on the subject of the message being queued.
|
||||
If there is no subject, consult this variable. See documentation for the
|
||||
|
|
@ -1059,7 +1059,7 @@ it's not expected to be a complete filename."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-fqm-suffix ".fqm"
|
||||
"*The FQM suffix used to distinguish feedmail queued message files.
|
||||
"The FQM suffix used to distinguish feedmail queued message files.
|
||||
You probably want this to be a period followed by some letters and/or
|
||||
digits. The distinction is to be able to tell them from other random
|
||||
files that happen to be in the `feedmail-queue-directory' or
|
||||
|
|
@ -1071,7 +1071,7 @@ queued message."
|
|||
|
||||
|
||||
(defcustom feedmail-nuke-buffer-after-queue nil
|
||||
"*If non-nil, silently kill the buffer after a message is queued.
|
||||
"If non-nil, silently kill the buffer after a message is queued.
|
||||
You might like that since a side-effect of queueing the message is
|
||||
that its buffer name gets changed to the filename. That means that
|
||||
the buffer won't be reused for the next message you compose. If you
|
||||
|
|
@ -1084,7 +1084,7 @@ message buffers."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-auto-file-nuke nil
|
||||
"*If non-nil, automatically delete queue files when a message is sent.
|
||||
"If non-nil, automatically delete queue files when a message is sent.
|
||||
Normally, feedmail will notice such files when you send a message in
|
||||
immediate mode (i.e., not when you're running the queue) and will ask if
|
||||
you want to delete them. Since the answer is usually yes, setting this
|
||||
|
|
@ -1154,7 +1154,7 @@ It shows the simple addresses and gets a confirmation. Use as:
|
|||
|
||||
|
||||
(defcustom feedmail-last-chance-hook nil
|
||||
"*User's last opportunity to modify the message on its way out.
|
||||
"User's last opportunity to modify the message on its way out.
|
||||
It has already had all the header prepping from the standard package.
|
||||
The next step after running the hook will be to push the buffer into a
|
||||
subprocess that mails the mail. The hook might be interested in
|
||||
|
|
@ -1172,7 +1172,7 @@ reused and things will get confused."
|
|||
|
||||
|
||||
(defcustom feedmail-before-fcc-hook nil
|
||||
"*User's last opportunity to modify the message before Fcc action.
|
||||
"User's last opportunity to modify the message before Fcc action.
|
||||
It has already had all the header prepping from the standard package.
|
||||
The next step after running the hook will be to save the message via
|
||||
Fcc: processing. The hook might be interested in these: (1)
|
||||
|
|
@ -1189,7 +1189,7 @@ internal buffers will be reused and things will get confused."
|
|||
|
||||
(defcustom feedmail-queue-runner-mode-setter
|
||||
'(lambda (&optional arg) (mail-mode))
|
||||
"*A function to set the proper mode of a message file.
|
||||
"A function to set the proper mode of a message file.
|
||||
Called when the message is read back out of the queue directory with a single
|
||||
argument, the optional argument used in the call to
|
||||
`feedmail-run-the-queue' or `feedmail-run-the-queue-no-prompts'.
|
||||
|
|
@ -1204,7 +1204,7 @@ Called with funcall, not `call-interactively'."
|
|||
|
||||
|
||||
(defcustom feedmail-queue-alternative-mail-header-separator nil
|
||||
"*Alternative header demarcation for queued messages.
|
||||
"Alternative header demarcation for queued messages.
|
||||
If you sometimes get alternative values for `mail-header-separator' in
|
||||
queued messages, set the value of this variable to whatever it is.
|
||||
For example, `rmail-resend' uses a `mail-header-separator' value of empty
|
||||
|
|
@ -1221,7 +1221,7 @@ set `mail-header-separator' to the value of
|
|||
|
||||
|
||||
(defcustom feedmail-queue-runner-message-sender 'mail-send-and-exit
|
||||
"*Function to initiate sending a message file.
|
||||
"Function to initiate sending a message file.
|
||||
Called for each message read back out of the queue directory with a
|
||||
single argument, the optional argument used in the call to
|
||||
`feedmail-run-the-queue' or `feedmail-run-the-queue-no-prompts'.
|
||||
|
|
@ -1238,7 +1238,7 @@ your chance to have something different. Called with `funcall', not
|
|||
'(lambda (fqm-file &optional arg)
|
||||
(delete-file fqm-file)
|
||||
(if (and arg feedmail-queue-chatty) (message "FQM: Nuked %s" fqm-file)))
|
||||
"*Function that will be called after a message has been sent.
|
||||
"Function that will be called after a message has been sent.
|
||||
Not called in the case of errors. This function is called with two
|
||||
arguments: the name of the message queue file for the message just sent,
|
||||
and the optional argument used in the call to `feedmail-run-the-queue'
|
||||
|
|
@ -1265,7 +1265,7 @@ variable, but may depend on its value as described here.")
|
|||
|
||||
|
||||
(defcustom feedmail-buffer-eating-function 'feedmail-buffer-to-binmail
|
||||
"*Function used to send the prepped buffer to a subprocess.
|
||||
"Function used to send the prepped buffer to a subprocess.
|
||||
The function's three (mandatory) arguments are: (1) the buffer
|
||||
containing the prepped message; (2) a buffer where errors should be
|
||||
directed; and (3) a list containing the addresses individually as
|
||||
|
|
@ -1281,7 +1281,7 @@ to nil. If you use the binmail form, check the value of
|
|||
|
||||
|
||||
(defcustom feedmail-binmail-template (if mail-interactive "/bin/mail %s" "/bin/rmail %s")
|
||||
"*Command template for the subprocess which will get rid of the mail.
|
||||
"Command template for the subprocess which will get rid of the mail.
|
||||
It can result in any command understandable by /bin/sh. Might not
|
||||
work at all in non-Unix environments. The single '%s', if present,
|
||||
gets replaced by the space-separated, simplified list of addressees.
|
||||
|
|
@ -1446,7 +1446,7 @@ with various lower-level mechanisms to provide features such as queueing."
|
|||
|
||||
;; From a VM mailing list discussion and some suggestions from Samuel Mikes <smikes@alumni.hmc.edu>
|
||||
(defun feedmail-queue-express-to-queue ()
|
||||
"*Send message directly to the queue, with a minimum of fuss and bother."
|
||||
"Send message directly to the queue, with a minimum of fuss and bother."
|
||||
(interactive)
|
||||
(let ((feedmail-enable-queue t)
|
||||
(feedmail-ask-before-queue nil)
|
||||
|
|
@ -1458,7 +1458,7 @@ with various lower-level mechanisms to provide features such as queueing."
|
|||
|
||||
|
||||
(defun feedmail-queue-express-to-draft ()
|
||||
"*Send message directly to the draft queue, with a minimum of fuss and bother."
|
||||
"Send message directly to the draft queue, with a minimum of fuss and bother."
|
||||
(interactive)
|
||||
(let ((feedmail-queue-directory feedmail-queue-draft-directory))
|
||||
(feedmail-queue-express-to-queue)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,8 @@
|
|||
;;; browse-url.el --- pass a URL to a WWW browser
|
||||
|
||||
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
||||
;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
|
||||
;; 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Denis Howe <dbh@doc.ic.ac.uk>
|
||||
;; Maintainer: FSF
|
||||
|
|
@ -607,7 +608,7 @@ down (this *won't* always work)."
|
|||
:group 'browse-url)
|
||||
|
||||
(defcustom browse-url-elinks-wrapper '("xterm" "-e")
|
||||
"*Wrapper command prepended to the Elinks command-line."
|
||||
"Wrapper command prepended to the Elinks command-line."
|
||||
:type '(repeat (string :tag "Wrapper"))
|
||||
:group 'browse-url)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; eudc-vars.el --- Emacs Unified Directory Client
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
@ -39,7 +39,7 @@
|
|||
:group 'comm)
|
||||
|
||||
(defcustom eudc-server nil
|
||||
"*The name or IP address of the directory server.
|
||||
"The name or IP address of the directory server.
|
||||
A port number may be specified by appending a colon and a
|
||||
number to the name of the server. Use `localhost' if the directory
|
||||
server resides on your computer (BBDB backend)."
|
||||
|
|
@ -56,7 +56,7 @@ This variable is updated when protocol-specific libraries
|
|||
are loaded, *do not change manually*.")
|
||||
|
||||
(defcustom eudc-protocol nil
|
||||
"*The directory protocol to use to query the server.
|
||||
"The directory protocol to use to query the server.
|
||||
Supported protocols are specified by `eudc-supported-protocols'."
|
||||
:type `(choice :menu-tag "Protocol"
|
||||
,@(mapcar (lambda (s)
|
||||
|
|
@ -67,13 +67,13 @@ Supported protocols are specified by `eudc-supported-protocols'."
|
|||
|
||||
|
||||
(defcustom eudc-strict-return-matches t
|
||||
"*Ignore or allow entries not containing all requested return attributes.
|
||||
"Ignore or allow entries not containing all requested return attributes.
|
||||
If non-nil, such entries are ignored."
|
||||
:type 'boolean
|
||||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-default-return-attributes nil
|
||||
"*A list of default attributes to extract from directory entries.
|
||||
"A list of default attributes to extract from directory entries.
|
||||
If set to the symbol `all', return all attributes.
|
||||
A value of nil means return the default attributes as configured in the
|
||||
server."
|
||||
|
|
@ -87,7 +87,7 @@ server."
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-multiple-match-handling-method 'select
|
||||
"*What to do when multiple entries match an inline expansion query.
|
||||
"What to do when multiple entries match an inline expansion query.
|
||||
Possible values are:
|
||||
`first' (equivalent to nil) which means keep the first match only,
|
||||
`select' pop-up a selection buffer,
|
||||
|
|
@ -107,7 +107,7 @@ Possible values are:
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-duplicate-attribute-handling-method '((email . duplicate))
|
||||
"*A method to handle entries containing duplicate attributes.
|
||||
"A method to handle entries containing duplicate attributes.
|
||||
This is either an alist (ATTR . METHOD) or a symbol METHOD.
|
||||
The alist form of the variable associates a method to an individual attribute,
|
||||
the second form specifies a method applicable to all attributes.
|
||||
|
|
@ -136,7 +136,7 @@ different values."
|
|||
|
||||
(defcustom eudc-inline-query-format '((name)
|
||||
(firstname name))
|
||||
"*Format of an inline expansion query.
|
||||
"Format of an inline expansion query.
|
||||
This is a list of FORMATs. A FORMAT is itself a list of one or more
|
||||
EUDC attribute names. A FORMAT applies if it contains as many attributes as
|
||||
there are individual words in the inline query string.
|
||||
|
|
@ -164,12 +164,12 @@ must be set in a protocol/server-local fashion, see `eudc-server-set' and
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-expansion-overwrites-query t
|
||||
"*If non-nil, expanding a query overwrites the query string."
|
||||
"If non-nil, expanding a query overwrites the query string."
|
||||
:type 'boolean
|
||||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-inline-expansion-format '("%s" email)
|
||||
"*A list specifying the format of the expansion of inline queries.
|
||||
"A list specifying the format of the expansion of inline queries.
|
||||
This variable controls what `eudc-expand-inline' actually inserts in
|
||||
the buffer. First element is a string passed to `format'. Remaining
|
||||
elements are symbols indicating attribute names; the corresponding values
|
||||
|
|
@ -189,7 +189,7 @@ are passed as additional arguments to `format'."
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-inline-expansion-servers 'server-then-hotlist
|
||||
"*Which servers to contact for the expansion of inline queries.
|
||||
"Which servers to contact for the expansion of inline queries.
|
||||
Possible values are:
|
||||
`current-server': the EUDC current server.
|
||||
`hotlist': the servers of the hotlist in the order they appear,
|
||||
|
|
@ -203,7 +203,7 @@ Possible values are:
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-max-servers-to-query nil
|
||||
"*Maximum number of servers to query for an inline expansion.
|
||||
"Maximum number of servers to query for an inline expansion.
|
||||
If nil, query all servers available from `eudc-inline-expansion-servers'."
|
||||
:tag "Max Number of Servers to Query"
|
||||
:type '(choice :tag "Max. Servers"
|
||||
|
|
@ -218,7 +218,7 @@ If nil, query all servers available from `eudc-inline-expansion-servers'."
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-query-form-attributes '(name firstname email phone)
|
||||
"*A list of attributes presented in the query form."
|
||||
"A list of attributes presented in the query form."
|
||||
:tag "Attributes in Query Forms"
|
||||
:type '(repeat
|
||||
(choice
|
||||
|
|
@ -249,7 +249,7 @@ If nil, query all servers available from `eudc-inline-expansion-servers'."
|
|||
(telephonenumber . "Phone")
|
||||
(uniqueidentifier . "ID")
|
||||
(objectclass . "Object Class"))
|
||||
"*Alist of user-defined names for directory attributes.
|
||||
"Alist of user-defined names for directory attributes.
|
||||
These names are used as prompt strings in query/response forms
|
||||
instead of the raw directory attribute names.
|
||||
Prompt strings for attributes that are not listed here
|
||||
|
|
@ -262,14 +262,14 @@ at `_' characters and capitalizing the individual words."
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-use-raw-directory-names nil
|
||||
"*If non-nil, use attributes names as defined in the directory.
|
||||
"If non-nil, use attributes names as defined in the directory.
|
||||
Otherwise, directory query/response forms display the user attribute
|
||||
names defined in `eudc-user-attribute-names-alist'."
|
||||
:type 'boolean
|
||||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-attribute-display-method-alist nil
|
||||
"*An alist specifying methods to display attribute values.
|
||||
"An alist specifying methods to display attribute values.
|
||||
Each member of the list is of the form (NAME . FUNC) where NAME is a lowercased
|
||||
string naming a directory attribute (translated according to
|
||||
`eudc-user-attribute-names-alist' if `eudc-use-raw-directory-names' is
|
||||
|
|
@ -283,7 +283,7 @@ attribute values for display."
|
|||
|
||||
(defcustom eudc-external-viewers '(("ImageMagick" "display" "-")
|
||||
("ShowAudio" "showaudio"))
|
||||
"*A list of viewer program specifications.
|
||||
"A list of viewer program specifications.
|
||||
Viewers are programs which can be piped a directory attribute value for
|
||||
display or arbitrary processing. Each specification is a list whose
|
||||
first element is a string naming the viewer. The second element is the
|
||||
|
|
@ -300,12 +300,12 @@ arguments that should be passed to the program."
|
|||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-options-file "~/.eudc-options"
|
||||
"*A file where the `servers' hotlist is stored."
|
||||
"A file where the `servers' hotlist is stored."
|
||||
:type '(file :Tag "File Name:")
|
||||
:group 'eudc)
|
||||
|
||||
(defcustom eudc-mode-hook nil
|
||||
"*Normal hook run on entry to EUDC mode."
|
||||
"Normal hook run on entry to EUDC mode."
|
||||
:type '(repeat (sexp :tag "Hook definition"))
|
||||
:group 'eudc)
|
||||
|
||||
|
|
@ -323,7 +323,7 @@ arguments that should be passed to the program."
|
|||
(address . (eudc-bbdbify-address address "Address"))
|
||||
(phone . ((eudc-bbdbify-phone phone "Phone")
|
||||
(eudc-bbdbify-phone office_phone "Office Phone"))))
|
||||
"*A mapping from BBDB to PH/QI fields.
|
||||
"A mapping from BBDB to PH/QI fields.
|
||||
This is a list of cons cells (BBDB-FIELD . SPEC-OR-LIST) where
|
||||
BBDB-FIELD is the name of a field that must be defined in your BBDB
|
||||
environment (standard field names are `name', `company', `net', `phone',
|
||||
|
|
@ -358,7 +358,7 @@ BBDB fields. SPECs are sexps which are evaluated:
|
|||
(net . mail)
|
||||
(address . (eudc-bbdbify-address postaladdress "Address"))
|
||||
(phone . ((eudc-bbdbify-phone telephonenumber "Phone"))))
|
||||
"*A mapping from BBDB to LDAP attributes.
|
||||
"A mapping from BBDB to LDAP attributes.
|
||||
This is a list of cons cells (BBDB-FIELD . SPEC-OR-LIST) where
|
||||
BBDB-FIELD is the name of a field that must be defined in your BBDB
|
||||
environment (standard field names are `name', `company', `net', `phone',
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; ldap.el --- client interface to LDAP for Emacs
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: FSF
|
||||
|
|
@ -43,7 +43,7 @@
|
|||
:group 'comm)
|
||||
|
||||
(defcustom ldap-default-host nil
|
||||
"*Default LDAP server.
|
||||
"Default LDAP server.
|
||||
A TCP port number can be appended to that name using a colon as
|
||||
a separator."
|
||||
:type '(choice (string :tag "Host name")
|
||||
|
|
@ -51,14 +51,14 @@ a separator."
|
|||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-default-port nil
|
||||
"*Default TCP port for LDAP connections.
|
||||
"Default TCP port for LDAP connections.
|
||||
Initialized from the LDAP library at build time. Default value is 389."
|
||||
:type '(choice (const :tag "Use library default" nil)
|
||||
(integer :tag "Port number"))
|
||||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-default-base nil
|
||||
"*Default base for LDAP searches.
|
||||
"Default base for LDAP searches.
|
||||
This is a string using the syntax of RFC 1779.
|
||||
For instance, \"o=ACME, c=US\" limits the search to the
|
||||
Acme organization in the United States."
|
||||
|
|
@ -68,7 +68,7 @@ Acme organization in the United States."
|
|||
|
||||
|
||||
(defcustom ldap-host-parameters-alist nil
|
||||
"*Alist of host-specific options for LDAP transactions.
|
||||
"Alist of host-specific options for LDAP transactions.
|
||||
The format of each list element is (HOST PROP1 VAL1 PROP2 VAL2 ...).
|
||||
HOST is the hostname of an LDAP server (with an optional TCP port number
|
||||
appended to it using a colon as a separator).
|
||||
|
|
@ -148,28 +148,28 @@ Valid properties include:
|
|||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-ldapsearch-prog "ldapsearch"
|
||||
"*The name of the ldapsearch command line program."
|
||||
"The name of the ldapsearch command line program."
|
||||
:type '(string :tag "`ldapsearch' Program")
|
||||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-ldapsearch-args '("-LL" "-tt")
|
||||
"*A list of additional arguments to pass to `ldapsearch'."
|
||||
"A list of additional arguments to pass to `ldapsearch'."
|
||||
:type '(repeat :tag "`ldapsearch' Arguments"
|
||||
(string :tag "Argument"))
|
||||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-ignore-attribute-codings nil
|
||||
"*If non-nil, do not encode/decode LDAP attribute values."
|
||||
"If non-nil, do not encode/decode LDAP attribute values."
|
||||
:type 'boolean
|
||||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-default-attribute-decoder nil
|
||||
"*Decoder function to use for attributes whose syntax is unknown."
|
||||
"Decoder function to use for attributes whose syntax is unknown."
|
||||
:type 'symbol
|
||||
:group 'ldap)
|
||||
|
||||
(defcustom ldap-coding-system 'utf-8
|
||||
"*Coding system of LDAP string values.
|
||||
"Coding system of LDAP string values.
|
||||
LDAP v3 specifies the coding system of strings to be UTF-8."
|
||||
:type 'symbol
|
||||
:group 'ldap)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; rcompile.el --- run a compilation on a remote machine
|
||||
|
||||
;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Albert <alon@milcse.rtsg.mot.com>
|
||||
;; Maintainer: FSF
|
||||
|
|
@ -75,7 +75,7 @@
|
|||
|
||||
|
||||
(defcustom remote-compile-host nil
|
||||
"*Host for remote compilations."
|
||||
"Host for remote compilations."
|
||||
:type '(choice string (const nil))
|
||||
:group 'remote-compile)
|
||||
|
||||
|
|
@ -86,7 +86,7 @@ nil means use the value returned by \\[user-login-name]."
|
|||
:group 'remote-compile)
|
||||
|
||||
(defcustom remote-compile-run-before nil
|
||||
"*Command to run before compilation.
|
||||
"Command to run before compilation.
|
||||
This can be used for setting up environment variables,
|
||||
since rsh does not invoke the shell as a login shell and files like .login
|
||||
\(tcsh\) and .bash_profile \(bash\) are not run.
|
||||
|
|
@ -95,12 +95,12 @@ nil means run no commands."
|
|||
:group 'remote-compile)
|
||||
|
||||
(defcustom remote-compile-prompt-for-host nil
|
||||
"*Non-nil means prompt for host if not available from filename."
|
||||
"Non-nil means prompt for host if not available from filename."
|
||||
:type 'boolean
|
||||
:group 'remote-compile)
|
||||
|
||||
(defcustom remote-compile-prompt-for-user nil
|
||||
"*Non-nil means prompt for user if not available from filename."
|
||||
"Non-nil means prompt for user if not available from filename."
|
||||
:type 'boolean
|
||||
:group 'remote-compile)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,8 @@
|
|||
;;; rlogin.el --- remote login interface
|
||||
|
||||
;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2001, 2002, 2003,
|
||||
;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Noah Friedman
|
||||
;; Maintainer: Noah Friedman <friedman@splode.com>
|
||||
|
|
@ -45,17 +46,17 @@
|
|||
:group 'unix)
|
||||
|
||||
(defcustom rlogin-program "rlogin"
|
||||
"*Name of program to invoke rlogin"
|
||||
"Name of program to invoke rlogin"
|
||||
:type 'string
|
||||
:group 'rlogin)
|
||||
|
||||
(defcustom rlogin-explicit-args nil
|
||||
"*List of arguments to pass to rlogin on the command line."
|
||||
"List of arguments to pass to rlogin on the command line."
|
||||
:type '(repeat (string :tag "Argument"))
|
||||
:group 'rlogin)
|
||||
|
||||
(defcustom rlogin-mode-hook nil
|
||||
"*Hooks to run after setting current buffer to rlogin-mode."
|
||||
"Hooks to run after setting current buffer to rlogin-mode."
|
||||
:type 'hook
|
||||
:group 'rlogin)
|
||||
|
||||
|
|
@ -68,7 +69,7 @@
|
|||
(string-match "-solaris2" system-configuration))
|
||||
t)
|
||||
(t nil)))
|
||||
"*If non-nil, use a pty for the local rlogin process.
|
||||
"If non-nil, use a pty for the local rlogin process.
|
||||
If nil, use a pipe (if pipes are supported on the local system).
|
||||
|
||||
Generally it is better not to waste ptys on systems which have a static
|
||||
|
|
@ -79,7 +80,7 @@ a pty is being used, and errors will result from using a pipe instead."
|
|||
:group 'rlogin)
|
||||
|
||||
(defcustom rlogin-directory-tracking-mode 'local
|
||||
"*Control whether and how to do directory tracking in an rlogin buffer.
|
||||
"Control whether and how to do directory tracking in an rlogin buffer.
|
||||
|
||||
nil means don't do directory tracking.
|
||||
|
||||
|
|
@ -103,12 +104,12 @@ re-synching of directories."
|
|||
(make-variable-buffer-local 'rlogin-directory-tracking-mode)
|
||||
|
||||
(defcustom rlogin-host nil
|
||||
"*The name of the remote host. This variable is buffer-local."
|
||||
"The name of the remote host. This variable is buffer-local."
|
||||
:type '(choice (const nil) string)
|
||||
:group 'rlogin)
|
||||
|
||||
(defcustom rlogin-remote-user nil
|
||||
"*The username used on the remote host.
|
||||
"The username used on the remote host.
|
||||
This variable is buffer-local and defaults to your local user name.
|
||||
If rlogin is invoked with the `-l' option to specify the remote username,
|
||||
this variable is set from that."
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; enriched.el --- read and save files in text/enriched format
|
||||
|
||||
;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Boris Goldowsky <boris@gnu.org>
|
||||
;; Keywords: wp, faces
|
||||
|
|
@ -50,7 +50,7 @@
|
|||
:group 'wp)
|
||||
|
||||
(defcustom enriched-verbose t
|
||||
"*If non-nil, give status messages when reading and writing files."
|
||||
"If non-nil, give status messages when reading and writing files."
|
||||
:type 'boolean
|
||||
:group 'enriched)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; makeinfo.el --- run makeinfo conveniently
|
||||
|
||||
;; Copyright (C) 1991, 1993, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1991, 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Robert J. Chassell
|
||||
;; Maintainer: FSF
|
||||
|
|
@ -58,13 +58,13 @@
|
|||
|
||||
|
||||
(defcustom makeinfo-run-command "makeinfo"
|
||||
"*Command used to run `makeinfo' subjob.
|
||||
"Command used to run `makeinfo' subjob.
|
||||
The name of the file is appended to this string, separated by a space."
|
||||
:type 'string
|
||||
:group 'makeinfo)
|
||||
|
||||
(defcustom makeinfo-options "--fill-column=70"
|
||||
"*String containing options for running `makeinfo'.
|
||||
"String containing options for running `makeinfo'.
|
||||
Do not include `--footnote-style' or `--paragraph-indent';
|
||||
the proper way to specify those is with the Texinfo commands
|
||||
`@footnotestyle` and `@paragraphindent'."
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; page-ext.el --- extended page handling commands
|
||||
|
||||
;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Robert J. Chassell <bob@gnu.org>
|
||||
;; (according to ack.texi)
|
||||
|
|
@ -242,17 +242,17 @@
|
|||
|
||||
|
||||
(defcustom pages-directory-buffer-narrowing-p t
|
||||
"*If non-nil, `pages-directory-goto' narrows pages buffer to entry."
|
||||
"If non-nil, `pages-directory-goto' narrows pages buffer to entry."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
(defcustom pages-directory-for-adding-page-narrowing-p t
|
||||
"*If non-nil, `add-new-page' narrows page buffer to new entry."
|
||||
"If non-nil, `add-new-page' narrows page buffer to new entry."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
(defcustom pages-directory-for-adding-new-page-before-current-page-p t
|
||||
"*If non-nil, `add-new-page' inserts new page before current page."
|
||||
"If non-nil, `add-new-page' inserts new page before current page."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
|
|
@ -260,23 +260,23 @@
|
|||
;;; Addresses related variables
|
||||
|
||||
(defcustom pages-addresses-file-name "~/addresses"
|
||||
"*Standard name for file of addresses. Entries separated by page-delimiter.
|
||||
"Standard name for file of addresses. Entries separated by page-delimiter.
|
||||
Used by `pages-directory-for-addresses' function."
|
||||
:type 'file
|
||||
:group 'pages)
|
||||
|
||||
(defcustom pages-directory-for-addresses-goto-narrowing-p t
|
||||
"*If non-nil, `pages-directory-goto' narrows addresses buffer to entry."
|
||||
"If non-nil, `pages-directory-goto' narrows addresses buffer to entry."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
(defcustom pages-directory-for-addresses-buffer-keep-windows-p t
|
||||
"*If nil, `pages-directory-for-addresses' deletes other windows."
|
||||
"If nil, `pages-directory-for-addresses' deletes other windows."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
(defcustom pages-directory-for-adding-addresses-narrowing-p t
|
||||
"*If non-nil, `add-new-page' narrows addresses buffer to new entry."
|
||||
"If non-nil, `add-new-page' narrows addresses buffer to new entry."
|
||||
:type 'boolean
|
||||
:group 'pages)
|
||||
|
||||
|
|
|
|||
|
|
@ -37,27 +37,27 @@
|
|||
:group 'wp)
|
||||
|
||||
(defcustom picture-rectangle-ctl ?+
|
||||
"*Character `picture-draw-rectangle' uses for top left corners."
|
||||
"Character `picture-draw-rectangle' uses for top left corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
(defcustom picture-rectangle-ctr ?+
|
||||
"*Character `picture-draw-rectangle' uses for top right corners."
|
||||
"Character `picture-draw-rectangle' uses for top right corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
(defcustom picture-rectangle-cbr ?+
|
||||
"*Character `picture-draw-rectangle' uses for bottom right corners."
|
||||
"Character `picture-draw-rectangle' uses for bottom right corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
(defcustom picture-rectangle-cbl ?+
|
||||
"*Character `picture-draw-rectangle' uses for bottom left corners."
|
||||
"Character `picture-draw-rectangle' uses for bottom left corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
(defcustom picture-rectangle-v ?|
|
||||
"*Character `picture-draw-rectangle' uses for vertical lines."
|
||||
"Character `picture-draw-rectangle' uses for vertical lines."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
(defcustom picture-rectangle-h ?-
|
||||
"*Character `picture-draw-rectangle' uses for horizontal lines."
|
||||
"Character `picture-draw-rectangle' uses for horizontal lines."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
|
||||
|
|
@ -363,7 +363,7 @@ With positive argument insert that many lines."
|
|||
;; Picture Tabs
|
||||
|
||||
(defcustom picture-tab-chars "!-~"
|
||||
"*A character set which controls behavior of commands.
|
||||
"A character set which controls behavior of commands.
|
||||
\\[picture-set-tab-stops] and \\[picture-tab-search]. It is NOT a
|
||||
regular expression, any regexp special characters will be quoted.
|
||||
It defines a set of \"interesting characters\" to look for when setting
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; refer.el --- look up references in bibliography files
|
||||
|
||||
;; Copyright (C) 1992, 1996, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1992, 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Ashwin Ram <ashwin@cc.gatech.edu>
|
||||
;; Maintainer: Gernot Heiser <gernot@acm.org>
|
||||
|
|
@ -96,7 +96,7 @@ happen anyway)."
|
|||
:group 'refer)
|
||||
|
||||
(defcustom refer-bib-files 'dir
|
||||
"*List of \\.bib files to search for references,
|
||||
"List of \\.bib files to search for references,
|
||||
or one of the following special values:
|
||||
nil = prompt for \\.bib file (if visiting a \\.bib file, use it as default)
|
||||
auto = read \\.bib file names from appropriate command in buffer (see
|
||||
|
|
@ -115,7 +115,7 @@ each time it is needed."
|
|||
:group 'refer)
|
||||
|
||||
(defcustom refer-cache-bib-files t
|
||||
"*Variable determining whether the value of `refer-bib-files' should be cached.
|
||||
"Variable determining whether the value of `refer-bib-files' should be cached.
|
||||
If t, initialize the value of refer-bib-files the first time it is used. If
|
||||
nil, re-read the list of \\.bib files depending on the value of `refer-bib-files'
|
||||
each time it is needed."
|
||||
|
|
@ -123,7 +123,7 @@ each time it is needed."
|
|||
:group 'refer)
|
||||
|
||||
(defcustom refer-bib-files-regexp "\\\\bibliography"
|
||||
"*Regexp matching a bibliography file declaration.
|
||||
"Regexp matching a bibliography file declaration.
|
||||
The current buffer is expected to contain a line such as
|
||||
\\bibliography{file1,file2,file3}
|
||||
which is read to set up `refer-bib-files'. The regexp must specify the command
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; spell.el --- spelling correction interface for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
|
||||
;; 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: wp, unix
|
||||
|
|
@ -37,12 +37,12 @@
|
|||
:group 'applications)
|
||||
|
||||
(defcustom spell-command "spell"
|
||||
"*Command to run the spell program."
|
||||
"Command to run the spell program."
|
||||
:type 'string
|
||||
:group 'spell)
|
||||
|
||||
(defcustom spell-filter nil
|
||||
"*Filter function to process text before passing it to spell program.
|
||||
"Filter function to process text before passing it to spell program.
|
||||
This function might remove text-processor commands.
|
||||
nil means don't alter the text before checking it."
|
||||
:type '(choice (const nil) function)
|
||||
|
|
|
|||
|
|
@ -6,7 +6,7 @@
|
|||
;; Keywords: wp, convenience
|
||||
;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
|
||||
;; Created: Sat Jul 08 2000 13:28:45 (PST)
|
||||
;; Revised: Fri Aug 21 2009 00:16:58 (PDT)
|
||||
;; Revised: Tue Sep 21 2010 12:42:03 (PDT)
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
@ -651,7 +651,7 @@
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-time-before-update 0.2
|
||||
"*Time in seconds before updating the cell contents after typing.
|
||||
"Time in seconds before updating the cell contents after typing.
|
||||
Updating the cell contents on the screen takes place only after this
|
||||
specified amount of time has passed after the last modification to the
|
||||
cell contents. When the contents of a table cell changes repetitively
|
||||
|
|
@ -665,7 +665,7 @@ annoying delay before the typed result start appearing on the screen."
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-time-before-reformat 0.2
|
||||
"*Time in seconds before reformatting the table.
|
||||
"Time in seconds before reformatting the table.
|
||||
This many seconds must pass in addition to `table-time-before-update'
|
||||
before the table is updated with newly widened width or heightened
|
||||
height."
|
||||
|
|
@ -674,7 +674,7 @@ height."
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-command-prefix [(control c) (control c)]
|
||||
"*Key sequence to be used as prefix for table command key bindings."
|
||||
"Key sequence to be used as prefix for table command key bindings."
|
||||
:type '(vector (repeat :inline t sexp))
|
||||
:tag "Table Command Prefix"
|
||||
:group 'table)
|
||||
|
|
@ -685,30 +685,30 @@ height."
|
|||
(((class color))
|
||||
(:foreground "gray90" :background "blue"))
|
||||
(t (:bold t)))
|
||||
"*Face used for table cell contents."
|
||||
"Face used for table cell contents."
|
||||
:tag "Cell Face"
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-cell-horizontal-chars "-="
|
||||
"*Characters that may be used for table cell's horizontal border line."
|
||||
"Characters that may be used for table cell's horizontal border line."
|
||||
:tag "Cell Horizontal Boundary Characters"
|
||||
:type 'string
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-cell-vertical-char ?\|
|
||||
"*Character that forms table cell's vertical border line."
|
||||
"Character that forms table cell's vertical border line."
|
||||
:tag "Cell Vertical Boundary Character"
|
||||
:type 'character
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-cell-intersection-char ?\+
|
||||
"*Character that forms table cell's corner."
|
||||
"Character that forms table cell's corner."
|
||||
:tag "Cell Intersection Character"
|
||||
:type 'character
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-word-continuation-char ?\\
|
||||
"*Character that indicates word continuation into the next line.
|
||||
"Character that indicates word continuation into the next line.
|
||||
This character has a special meaning only in the fixed width mode,
|
||||
that is when `table-fixed-width-mode' is non-nil . In the fixed width
|
||||
mode this character indicates that the location is continuing into the
|
||||
|
|
@ -727,7 +727,7 @@ select a character that is unlikely to appear in your document."
|
|||
(set variable value))
|
||||
|
||||
(defcustom table-fixed-width-mode nil
|
||||
"*Cell width is fixed when this is non-nil.
|
||||
"Cell width is fixed when this is non-nil.
|
||||
Normally it should be nil for allowing automatic cell width expansion
|
||||
that widens a cell when it is necessary. When non-nil, typing in a
|
||||
cell does not automatically expand the cell width. A word that is too
|
||||
|
|
@ -742,7 +742,7 @@ run-time."
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-detect-cell-alignment t
|
||||
"*Detect cell contents alignment automatically.
|
||||
"Detect cell contents alignment automatically.
|
||||
When non-nil cell alignment is automatically determined by the
|
||||
appearance of the current cell contents when recognizing tables as a
|
||||
whole. This applies to `table-recognize', `table-recognize-region'
|
||||
|
|
@ -752,38 +752,38 @@ and `table-recognize-table' but not to `table-recognize-cell'."
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-dest-buffer-name "table"
|
||||
"*Default buffer name (without a suffix) for source generation."
|
||||
"Default buffer name (without a suffix) for source generation."
|
||||
:tag "Source Buffer Name"
|
||||
:type 'string
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-html-delegate-spacing-to-user-agent nil
|
||||
"*Non-nil delegates cell contents spacing entirely to user agent.
|
||||
"Non-nil delegates cell contents spacing entirely to user agent.
|
||||
Otherwise, when nil, it preserves the original spacing and line breaks."
|
||||
:tag "HTML delegate spacing"
|
||||
:type 'boolean
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-html-th-rows 0
|
||||
"*Number of top rows to become header cells automatically in HTML generation."
|
||||
"Number of top rows to become header cells automatically in HTML generation."
|
||||
:tag "HTML Header Rows"
|
||||
:type 'integer
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-html-th-columns 0
|
||||
"*Number of left columns to become header cells automatically in HTML generation."
|
||||
"Number of left columns to become header cells automatically in HTML generation."
|
||||
:tag "HTML Header Columns"
|
||||
:type 'integer
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-html-table-attribute "border=\"1\""
|
||||
"*Table attribute that applies to the table in HTML generation."
|
||||
"Table attribute that applies to the table in HTML generation."
|
||||
:tag "HTML table attribute"
|
||||
:type 'string
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-html-cell-attribute ""
|
||||
"*Cell attribute that applies to all cells in HTML generation.
|
||||
"Cell attribute that applies to all cells in HTML generation.
|
||||
Do not specify \"align\" and \"valign\" because they are determined by
|
||||
the cell contents dynamically."
|
||||
:tag "HTML cell attribute"
|
||||
|
|
@ -791,28 +791,28 @@ the cell contents dynamically."
|
|||
:group 'table)
|
||||
|
||||
(defcustom table-cals-thead-rows 1
|
||||
"*Number of top rows to become header rows in CALS table."
|
||||
"Number of top rows to become header rows in CALS table."
|
||||
:tag "CALS Header Rows"
|
||||
:type 'integer
|
||||
:group 'table)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom table-cell-map-hook nil
|
||||
"*Normal hooks run when finishing construction of `table-cell-map'.
|
||||
"Normal hooks run when finishing construction of `table-cell-map'.
|
||||
User can modify `table-cell-map' by adding custom functions here."
|
||||
:tag "Cell Keymap Hooks"
|
||||
:type 'hook
|
||||
:group 'table-hooks)
|
||||
|
||||
(defcustom table-disable-incompatibility-warning nil
|
||||
"*Disable compatibility warning notice.
|
||||
"Disable compatibility warning notice.
|
||||
When nil user is reminded of known incompatible issues."
|
||||
:tag "Disable Incompatibility Warning"
|
||||
:type 'boolean
|
||||
:group 'table)
|
||||
|
||||
(defcustom table-abort-recognition-when-input-pending t
|
||||
"*Abort current recognition process when input pending.
|
||||
"Abort current recognition process when input pending.
|
||||
Abort current recognition process when we are not sure that no input
|
||||
is available. When non-nil lengthy recognition process is aborted
|
||||
simply by any key input."
|
||||
|
|
@ -822,19 +822,19 @@ simply by any key input."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom table-load-hook nil
|
||||
"*List of functions to be called after the table is first loaded."
|
||||
"List of functions to be called after the table is first loaded."
|
||||
:type 'hook
|
||||
:group 'table-hooks)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom table-point-entered-cell-hook nil
|
||||
"*List of functions to be called after point entered a table cell."
|
||||
"List of functions to be called after point entered a table cell."
|
||||
:type 'hook
|
||||
:group 'table-hooks)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom table-point-left-cell-hook nil
|
||||
"*List of functions to be called after point left a table cell."
|
||||
"List of functions to be called after point left a table cell."
|
||||
:type 'hook
|
||||
:group 'table-hooks)
|
||||
|
||||
|
|
@ -860,7 +860,7 @@ time.")
|
|||
;;; No need of user configuration
|
||||
|
||||
(defconst table-paragraph-start "[ \t\n\f]"
|
||||
"*Regexp for beginning of a line that starts OR separates paragraphs.")
|
||||
"Regexp for beginning of a line that starts OR separates paragraphs.")
|
||||
(defconst table-cache-buffer-name " *table cell cache*"
|
||||
"Cell cache buffer name.")
|
||||
(defvar table-cell-info-lu-coordinate nil
|
||||
|
|
|
|||
|
|
@ -58,14 +58,14 @@
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-shell-file-name nil
|
||||
"*If non-nil, the shell file name to run in the subshell used to run TeX."
|
||||
"If non-nil, the shell file name to run in the subshell used to run TeX."
|
||||
:type '(choice (const :tag "None" nil)
|
||||
string)
|
||||
:group 'tex-run)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom tex-directory (purecopy ".")
|
||||
"*Directory in which temporary files are written.
|
||||
"Directory in which temporary files are written.
|
||||
You can make this `/tmp' if your TEXINPUTS has no relative directories in it
|
||||
and you don't try to apply \\[tex-region] or \\[tex-buffer] when there are
|
||||
`\\input' commands with relative directories."
|
||||
|
|
@ -84,7 +84,7 @@ if it matches the first line of the file,
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-main-file nil
|
||||
"*The main TeX source file which includes this buffer's file.
|
||||
"The main TeX source file which includes this buffer's file.
|
||||
The command `tex-file' runs TeX on the file specified by `tex-main-file'
|
||||
if the variable is non-nil."
|
||||
:type '(choice (const :tag "None" nil)
|
||||
|
|
@ -93,13 +93,13 @@ if the variable is non-nil."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-offer-save t
|
||||
"*If non-nil, ask about saving modified buffers before \\[tex-file] is run."
|
||||
"If non-nil, ask about saving modified buffers before \\[tex-file] is run."
|
||||
:type 'boolean
|
||||
:group 'tex-file)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom tex-run-command (purecopy "tex")
|
||||
"*Command used to run TeX subjob.
|
||||
"Command used to run TeX subjob.
|
||||
TeX Mode sets `tex-command' to this string.
|
||||
See the documentation of that variable."
|
||||
:type 'string
|
||||
|
|
@ -107,7 +107,7 @@ See the documentation of that variable."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom latex-run-command (purecopy "latex")
|
||||
"*Command used to run LaTeX subjob.
|
||||
"Command used to run LaTeX subjob.
|
||||
LaTeX Mode sets `tex-command' to this string.
|
||||
See the documentation of that variable."
|
||||
:type 'string
|
||||
|
|
@ -115,7 +115,7 @@ See the documentation of that variable."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom slitex-run-command (purecopy "slitex")
|
||||
"*Command used to run SliTeX subjob.
|
||||
"Command used to run SliTeX subjob.
|
||||
SliTeX Mode sets `tex-command' to this string.
|
||||
See the documentation of that variable."
|
||||
:type 'string
|
||||
|
|
@ -123,7 +123,7 @@ See the documentation of that variable."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-start-options (purecopy "")
|
||||
"*TeX options to use when starting TeX.
|
||||
"TeX options to use when starting TeX.
|
||||
These immediately precede the commands in `tex-start-commands'
|
||||
and the input file name, with no separating space and are not shell-quoted.
|
||||
If nil, TeX runs with no options. See the documentation of `tex-command'."
|
||||
|
|
@ -133,7 +133,7 @@ If nil, TeX runs with no options. See the documentation of `tex-command'."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-start-commands (purecopy "\\nonstopmode\\input")
|
||||
"*TeX commands to use when starting TeX.
|
||||
"TeX commands to use when starting TeX.
|
||||
They are shell-quoted and precede the input file name, with a separating space.
|
||||
If nil, no commands are used. See the documentation of `tex-command'."
|
||||
:type '(radio (const :tag "Interactive \(nil\)" nil)
|
||||
|
|
@ -157,14 +157,14 @@ If nil, no commands are used. See the documentation of `tex-command'."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom latex-block-names nil
|
||||
"*User defined LaTeX block names.
|
||||
"User defined LaTeX block names.
|
||||
Combined with `latex-standard-block-names' for minibuffer completion."
|
||||
:type '(repeat string)
|
||||
:group 'tex-run)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom tex-bibtex-command (purecopy "bibtex")
|
||||
"*Command used by `tex-bibtex-file' to gather bibliographic data.
|
||||
"Command used by `tex-bibtex-file' to gather bibliographic data.
|
||||
If this string contains an asterisk (`*'), that is replaced by the file name;
|
||||
otherwise, the file name, preceded by blank, is added at the end."
|
||||
:type 'string
|
||||
|
|
@ -172,7 +172,7 @@ otherwise, the file name, preceded by blank, is added at the end."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-dvi-print-command (purecopy "lpr -d")
|
||||
"*Command used by \\[tex-print] to print a .dvi file.
|
||||
"Command used by \\[tex-print] to print a .dvi file.
|
||||
If this string contains an asterisk (`*'), that is replaced by the file name;
|
||||
otherwise, the file name, preceded by blank, is added at the end."
|
||||
:type 'string
|
||||
|
|
@ -180,7 +180,7 @@ otherwise, the file name, preceded by blank, is added at the end."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-alt-dvi-print-command (purecopy "lpr -d")
|
||||
"*Command used by \\[tex-print] with a prefix arg to print a .dvi file.
|
||||
"Command used by \\[tex-print] with a prefix arg to print a .dvi file.
|
||||
If this string contains an asterisk (`*'), that is replaced by the file name;
|
||||
otherwise, the file name, preceded by blank, is added at the end.
|
||||
|
||||
|
|
@ -203,7 +203,7 @@ use."
|
|||
((eq window-system 'x) ,(purecopy "xdvi"))
|
||||
((eq window-system 'w32) ,(purecopy "yap"))
|
||||
(t ,(purecopy "dvi2tty * | cat -s")))
|
||||
"*Command used by \\[tex-view] to display a `.dvi' file.
|
||||
"Command used by \\[tex-view] to display a `.dvi' file.
|
||||
If it is a string, that specifies the command directly.
|
||||
If this string contains an asterisk (`*'), that is replaced by the file name;
|
||||
otherwise, the file name, preceded by a space, is added at the end.
|
||||
|
|
@ -214,14 +214,14 @@ If the value is a form, it is evaluated to get the command to use."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-show-queue-command (purecopy "lpq")
|
||||
"*Command used by \\[tex-show-print-queue] to show the print queue.
|
||||
"Command used by \\[tex-show-print-queue] to show the print queue.
|
||||
Should show the queue(s) that \\[tex-print] puts jobs on."
|
||||
:type 'string
|
||||
:group 'tex-view)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom tex-default-mode 'latex-mode
|
||||
"*Mode to enter for a new file that might be either TeX or LaTeX.
|
||||
"Mode to enter for a new file that might be either TeX or LaTeX.
|
||||
This variable is used when it can't be determined whether the file
|
||||
is plain TeX or LaTeX or what because the file contains no commands.
|
||||
Normally set to either `plain-tex-mode' or `latex-mode'."
|
||||
|
|
@ -230,14 +230,14 @@ Normally set to either `plain-tex-mode' or `latex-mode'."
|
|||
|
||||
;;;###autoload
|
||||
(defcustom tex-open-quote (purecopy "``")
|
||||
"*String inserted by typing \\[tex-insert-quote] to open a quotation."
|
||||
"String inserted by typing \\[tex-insert-quote] to open a quotation."
|
||||
:type 'string
|
||||
:options '("``" "\"<" "\"`" "<<" "«")
|
||||
:group 'tex)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom tex-close-quote (purecopy "''")
|
||||
"*String inserted by typing \\[tex-insert-quote] to close a quotation."
|
||||
"String inserted by typing \\[tex-insert-quote] to close a quotation."
|
||||
:type 'string
|
||||
:options '("''" "\">" "\"'" ">>" "»")
|
||||
:group 'tex)
|
||||
|
|
@ -327,7 +327,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
|
|||
;;;;
|
||||
|
||||
(defcustom latex-imenu-indent-string ". "
|
||||
"*String to add repeated in front of nested sectional units for Imenu.
|
||||
"String to add repeated in front of nested sectional units for Imenu.
|
||||
An alternative value is \" . \", if you use a font with a narrow period."
|
||||
:type 'string
|
||||
:group 'tex)
|
||||
|
|
|
|||
|
|
@ -209,19 +209,19 @@
|
|||
(defcustom 2C-mode-line-format
|
||||
'("-%*- %15b --" (-3 . "%p") "--%[(" mode-name
|
||||
minor-mode-alist "%n" mode-line-process ")%]%-")
|
||||
"*Value of `mode-line-format' for a buffer in two-column minor mode."
|
||||
"Value of `mode-line-format' for a buffer in two-column minor mode."
|
||||
:type 'sexp
|
||||
:group 'two-column)
|
||||
|
||||
|
||||
(defcustom 2C-other-buffer-hook 'text-mode
|
||||
"*Hook run in new buffer when it is associated with current one."
|
||||
"Hook run in new buffer when it is associated with current one."
|
||||
:type 'function
|
||||
:group 'two-column)
|
||||
|
||||
|
||||
(defcustom 2C-separator ""
|
||||
"*A string inserted between the two columns when merging.
|
||||
"A string inserted between the two columns when merging.
|
||||
This gets set locally by \\[2C-split]."
|
||||
:type 'string
|
||||
:group 'two-column)
|
||||
|
|
@ -230,7 +230,7 @@ This gets set locally by \\[2C-split]."
|
|||
|
||||
|
||||
(defcustom 2C-window-width 40
|
||||
"*The width of the first column. (Must be at least `window-min-width')
|
||||
"The width of the first column. (Must be at least `window-min-width')
|
||||
This value is local for every buffer that sets it."
|
||||
:type 'integer
|
||||
:group 'two-column)
|
||||
|
|
@ -240,7 +240,7 @@ This value is local for every buffer that sets it."
|
|||
|
||||
|
||||
(defcustom 2C-beyond-fill-column 4
|
||||
"*Base for calculating `fill-column' for a buffer in two-column minor mode.
|
||||
"Base for calculating `fill-column' for a buffer in two-column minor mode.
|
||||
The value of `fill-column' becomes `2C-window-width' for this buffer
|
||||
minus this value."
|
||||
:type 'integer
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue