Remove redundant :group args from textmodes/*.el
* lisp/textmodes/enriched.el: * lisp/textmodes/ispell.el: * lisp/textmodes/makeinfo.el: * lisp/textmodes/paragraphs.el: * lisp/textmodes/picture.el: * lisp/textmodes/refbib.el: * lisp/textmodes/refer.el: * lisp/textmodes/remember.el: * lisp/textmodes/texinfo.el: * lisp/textmodes/tildify.el: * lisp/textmodes/two-column.el: Remove redundant :group args.
This commit is contained in:
Stefan Kangas
parent
760910f491
commit
7f62faf206
11 changed files with 88 additions and 196 deletions
|
|
@ -50,8 +50,7 @@
|
|||
|
||||
(defcustom enriched-verbose t
|
||||
"If non-nil, give status messages when reading and writing files."
|
||||
:type 'boolean
|
||||
:group 'enriched)
|
||||
:type 'boolean)
|
||||
|
||||
;;;
|
||||
;;; Set up faces & display table
|
||||
|
|
@ -65,14 +64,12 @@
|
|||
"Face used for text that must be shown in fixed width.
|
||||
Currently, Emacs can only display fixed-width fonts, but this may change.
|
||||
This face is used for text specifically marked as fixed-width, for example
|
||||
in text/enriched files."
|
||||
:group 'enriched)
|
||||
in text/enriched files.")
|
||||
|
||||
(defface excerpt
|
||||
'((t (:slant italic)))
|
||||
"Face used for text that is an excerpt from another document.
|
||||
This is used in Enriched mode for text explicitly marked as an excerpt."
|
||||
:group 'enriched)
|
||||
This is used in Enriched mode for text explicitly marked as an excerpt.")
|
||||
|
||||
(defconst enriched-display-table (or (copy-sequence standard-display-table)
|
||||
(make-display-table)))
|
||||
|
|
@ -146,8 +143,7 @@ Any property that is neither on this list nor dealt with by
|
|||
If you set variables in this hook, you should arrange for them to be restored
|
||||
to their old values if you leave Enriched mode. One way to do this is to add
|
||||
them and their old values to `enriched-old-bindings'."
|
||||
:type 'hook
|
||||
:group 'enriched)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom enriched-allow-eval-in-display-props nil
|
||||
"If non-nil allow to evaluate arbitrary forms in display properties.
|
||||
|
|
@ -162,8 +158,7 @@ Note, however, that applying unsafe display properties could
|
|||
execute malicious Lisp code, if that code came from an external source."
|
||||
:risky t
|
||||
:type 'boolean
|
||||
:version "26.1"
|
||||
:group 'enriched)
|
||||
:version "26.1")
|
||||
|
||||
(defvar-local enriched-old-bindings nil
|
||||
"Store old variable values that we change when entering mode.
|
||||
|
|
|
|||
|
|
@ -131,8 +131,7 @@
|
|||
(defcustom ispell-highlight-p 'block
|
||||
"Highlight spelling errors when non-nil.
|
||||
When set to `block', assumes a block cursor with TTY displays."
|
||||
:type '(choice (const block) (const :tag "off" nil) (const :tag "on" t))
|
||||
:group 'ispell)
|
||||
:type '(choice (const block) (const :tag "off" nil) (const :tag "on" t)))
|
||||
|
||||
(defcustom ispell-lazy-highlight (boundp 'lazy-highlight-cleanup)
|
||||
"Controls the lazy-highlighting of spelling errors.
|
||||
|
|
@ -141,7 +140,6 @@ error is highlighted lazily using isearch lazy highlighting (see
|
|||
`lazy-highlight-initial-delay' and `lazy-highlight-interval')."
|
||||
:type 'boolean
|
||||
:group 'lazy-highlight
|
||||
:group 'ispell
|
||||
:version "22.1")
|
||||
|
||||
(defcustom ispell-highlight-face (if ispell-lazy-highlight 'isearch 'highlight)
|
||||
|
|
@ -149,16 +147,14 @@ error is highlighted lazily using isearch lazy highlighting (see
|
|||
This variable can be set by the user to whatever face they desire.
|
||||
It's most convenient if the cursor color and highlight color are
|
||||
slightly different."
|
||||
:type 'face
|
||||
:group 'ispell)
|
||||
:type 'face)
|
||||
|
||||
(defcustom ispell-check-comments t
|
||||
"Spelling of comments checked when non-nil.
|
||||
When set to `exclusive', ONLY comments are checked. (For code comments).
|
||||
Warning! Not checking comments, when a comment start is embedded in strings,
|
||||
may produce undesired results."
|
||||
:type '(choice (const exclusive) (const :tag "off" nil) (const :tag "on" t))
|
||||
:group 'ispell)
|
||||
:type '(choice (const exclusive) (const :tag "off" nil) (const :tag "on" t)))
|
||||
;;;###autoload
|
||||
(put 'ispell-check-comments 'safe-local-variable
|
||||
(lambda (a) (memq a '(nil t exclusive))))
|
||||
|
|
@ -166,8 +162,7 @@ may produce undesired results."
|
|||
(defcustom ispell-query-replace-choices nil
|
||||
"Corrections made throughout region when non-nil.
|
||||
Uses `query-replace' (\\[query-replace]) for corrections."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-skip-tib nil
|
||||
"Does not spell check `tib' bibliography references when non-nil.
|
||||
|
|
@ -177,8 +172,7 @@ Skips any text between strings matching regular expressions
|
|||
TeX users beware: Any text between [. and .] will be skipped -- even if
|
||||
that's your whole buffer -- unless you set `ispell-skip-tib' to nil.
|
||||
That includes the [.5mm] type of number..."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defvar ispell-tib-ref-beginning "[[<]\\."
|
||||
"Regexp matching the beginning of a Tib reference.")
|
||||
|
|
@ -189,14 +183,12 @@ That includes the [.5mm] type of number..."
|
|||
(defcustom ispell-keep-choices-win t
|
||||
"If non-nil, keep the `*Choices*' window for the entire spelling session.
|
||||
This minimizes redisplay thrashing."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-choices-win-default-height 2
|
||||
"The default size of the `*Choices*' window, including the mode line.
|
||||
Must be greater than 1."
|
||||
:type 'integer
|
||||
:group 'ispell)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom ispell-program-name
|
||||
(or (executable-find "aspell")
|
||||
|
|
@ -211,8 +203,7 @@ Must be greater than 1."
|
|||
:set (lambda (symbol value)
|
||||
(set-default symbol value)
|
||||
(if (featurep 'ispell)
|
||||
(ispell-set-spellchecker-params)))
|
||||
:group 'ispell)
|
||||
(ispell-set-spellchecker-params))))
|
||||
|
||||
(defcustom ispell-alternate-dictionary
|
||||
(cond ((file-readable-p "/usr/dict/web2") "/usr/dict/web2")
|
||||
|
|
@ -224,14 +215,12 @@ Must be greater than 1."
|
|||
"/usr/share/lib/dict/words")
|
||||
((file-readable-p "/sys/dict") "/sys/dict"))
|
||||
"Alternate plain word-list dictionary for spelling help."
|
||||
:type '(choice file (const :tag "None" nil))
|
||||
:group 'ispell)
|
||||
:type '(choice file (const :tag "None" nil)))
|
||||
|
||||
(defcustom ispell-complete-word-dict nil
|
||||
"Plain word-list dictionary used for word completion if
|
||||
different from `ispell-alternate-dictionary'."
|
||||
:type '(choice file (const :tag "None" nil))
|
||||
:group 'ispell)
|
||||
:type '(choice file (const :tag "None" nil)))
|
||||
|
||||
(defcustom ispell-message-dictionary-alist nil
|
||||
"List used by `ispell-message' to select a new dictionary.
|
||||
|
|
@ -241,29 +230,25 @@ DICTIONARY if `ispell-local-dictionary' is not buffer-local.
|
|||
E.g. you may use the following value:
|
||||
((\"^Newsgroups:[ \\t]*de\\\\.\" . \"deutsch8\")
|
||||
(\"^To:[^\\n,]+\\\\.de[ \\t\\n,>]\" . \"deutsch8\"))"
|
||||
:type '(repeat (cons regexp string))
|
||||
:group 'ispell)
|
||||
:type '(repeat (cons regexp string)))
|
||||
|
||||
|
||||
(defcustom ispell-message-fcc-skip 50000
|
||||
"Query before saving Fcc message copy if attachment larger than this value.
|
||||
Always stores Fcc copy of message when nil."
|
||||
:type '(choice integer (const :tag "off" nil))
|
||||
:group 'ispell)
|
||||
:type '(choice integer (const :tag "off" nil)))
|
||||
|
||||
|
||||
(defcustom ispell-grep-command
|
||||
"grep"
|
||||
"Name of the grep command for search processes."
|
||||
:type 'string
|
||||
:group 'ispell)
|
||||
:type 'string)
|
||||
|
||||
(defcustom ispell-grep-options
|
||||
"-Ei"
|
||||
"String of options to use when running the program in `ispell-grep-command'.
|
||||
Should probably be \"-Ei\"."
|
||||
:type 'string
|
||||
:group 'ispell)
|
||||
:type 'string)
|
||||
|
||||
(defcustom ispell-look-command
|
||||
(cond ((file-exists-p "/bin/look") "/bin/look")
|
||||
|
|
@ -272,36 +257,30 @@ Should probably be \"-Ei\"."
|
|||
(t "look"))
|
||||
"Name of the look command for search processes.
|
||||
This must be an absolute file name."
|
||||
:type 'file
|
||||
:group 'ispell)
|
||||
:type 'file)
|
||||
|
||||
(defcustom ispell-look-p (file-exists-p ispell-look-command)
|
||||
"Non-nil means use `look' rather than `grep'.
|
||||
Default is based on whether `look' seems to be available."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-have-new-look nil
|
||||
"Non-nil means use the `-r' option (regexp) when running `look'."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-look-options (if ispell-have-new-look "-dfr" "-df")
|
||||
"String of command options for `ispell-look-command'."
|
||||
:type 'string
|
||||
:group 'ispell)
|
||||
:type 'string)
|
||||
|
||||
(defcustom ispell-use-ptys-p nil
|
||||
"When non-nil, Emacs uses ptys to communicate with Ispell.
|
||||
When nil, Emacs uses pipes."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-following-word nil
|
||||
"Non-nil means `ispell-word' checks the word around or after point.
|
||||
Otherwise `ispell-word' checks the preceding word."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom ispell-help-in-bufferp nil
|
||||
"Non-nil means display interactive keymap help in a buffer.
|
||||
|
|
@ -312,21 +291,18 @@ The following values are supported:
|
|||
for a couple of seconds.
|
||||
electric Pop up a new buffer and display a long help message there.
|
||||
User can browse and then exit the help mode."
|
||||
:type '(choice (const electric) (const :tag "off" nil) (const :tag "on" t))
|
||||
:group 'ispell)
|
||||
:type '(choice (const electric) (const :tag "off" nil) (const :tag "on" t)))
|
||||
|
||||
(defcustom ispell-quietly nil
|
||||
"Non-nil means suppress messages in `ispell-word'."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defvaralias 'ispell-format-word 'ispell-format-word-function)
|
||||
|
||||
(defcustom ispell-format-word-function (function upcase)
|
||||
"Formatting function for displaying word being spell checked.
|
||||
The function must take one string argument and return a string."
|
||||
:type 'function
|
||||
:group 'ispell)
|
||||
:type 'function)
|
||||
|
||||
;; FIXME framepop.el last updated c 2003 (?),
|
||||
;; use posframe.
|
||||
|
|
@ -335,21 +311,18 @@ The function must take one string argument and return a string."
|
|||
You can set this variable to dynamically use framepop if you are in a
|
||||
window system by evaluating the following on startup to set this variable:
|
||||
(and (display-graphic-p) (require \\='framepop nil t))"
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom ispell-personal-dictionary nil
|
||||
"File name of your personal spelling dictionary, or nil.
|
||||
If nil, the default personal dictionary for your spelling checker is used."
|
||||
:type '(choice file
|
||||
(const :tag "default" nil))
|
||||
:group 'ispell)
|
||||
(const :tag "default" nil)))
|
||||
|
||||
(defcustom ispell-silently-savep nil
|
||||
"When non-nil, save personal dictionary without asking for confirmation."
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
:type 'boolean)
|
||||
|
||||
(defvar-local ispell-local-dictionary-overridden nil
|
||||
"Non-nil means the user has explicitly set this buffer's Ispell dictionary.")
|
||||
|
|
@ -366,8 +339,7 @@ calling \\[ispell-change-dictionary] with that value. This variable
|
|||
is automatically set when defined in the file with either
|
||||
`ispell-dictionary-keyword' or the Local Variable syntax."
|
||||
:type '(choice string
|
||||
(const :tag "default" nil))
|
||||
:group 'ispell)
|
||||
(const :tag "default" nil)))
|
||||
;;;###autoload
|
||||
(put 'ispell-local-dictionary 'safe-local-variable 'string-or-null-p)
|
||||
|
||||
|
|
@ -376,16 +348,14 @@ is automatically set when defined in the file with either
|
|||
(defcustom ispell-dictionary nil
|
||||
"Default dictionary to use if `ispell-local-dictionary' is nil."
|
||||
:type '(choice string
|
||||
(const :tag "default" nil))
|
||||
:group 'ispell)
|
||||
(const :tag "default" nil)))
|
||||
|
||||
(defcustom ispell-extra-args nil
|
||||
"If non-nil, a list of extra switches to pass to the Ispell program.
|
||||
For example, (\"-W\" \"3\") to cause it to accept all 1-3 character
|
||||
words as correct. See also `ispell-dictionary-alist', which may be used
|
||||
for language-specific arguments."
|
||||
:type '(repeat string)
|
||||
:group 'ispell)
|
||||
:type '(repeat string))
|
||||
|
||||
|
||||
|
||||
|
|
@ -400,8 +370,7 @@ such as \"&\". See `ispell-html-skip-alists' for more details.
|
|||
|
||||
This variable affects spell-checking of HTML, XML, and SGML files."
|
||||
:type '(choice (const :tag "always" t) (const :tag "never" nil)
|
||||
(const :tag "use-mode-name" use-mode-name))
|
||||
:group 'ispell)
|
||||
(const :tag "use-mode-name" use-mode-name)))
|
||||
|
||||
(make-variable-buffer-local 'ispell-skip-html)
|
||||
|
||||
|
|
@ -427,8 +396,7 @@ re-start Emacs."
|
|||
(const "~nroff") (const "~list")
|
||||
(const "~latin1") (const "~latin3")
|
||||
(const :tag "default" nil))
|
||||
(coding-system :tag "Coding System")))
|
||||
:group 'ispell)
|
||||
(coding-system :tag "Coding System"))))
|
||||
|
||||
|
||||
(defvar ispell-dictionary-base-alist
|
||||
|
|
|
|||
|
|
@ -59,16 +59,14 @@
|
|||
(defcustom makeinfo-run-command "makeinfo"
|
||||
"Command used to run `makeinfo' subjob.
|
||||
The name of the file is appended to this string, separated by a space."
|
||||
:type 'string
|
||||
:group 'makeinfo)
|
||||
:type 'string)
|
||||
|
||||
(defcustom makeinfo-options "--fill-column=70"
|
||||
"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'."
|
||||
:type 'string
|
||||
:group 'makeinfo)
|
||||
:type 'string)
|
||||
|
||||
(require 'texinfo)
|
||||
|
||||
|
|
|
|||
|
|
@ -96,7 +96,6 @@ lines that start paragraphs from lines that separate them.
|
|||
|
||||
If the variable `use-hard-newlines' is non-nil, then only lines following a
|
||||
hard newline are considered to match."
|
||||
:group 'paragraphs
|
||||
:type 'regexp)
|
||||
(put 'paragraph-start 'safe-local-variable 'stringp)
|
||||
|
||||
|
|
@ -114,7 +113,6 @@ This is matched against the text at the left margin, which is not necessarily
|
|||
the beginning of the line, so it should not use \"^\" as an anchor. This
|
||||
ensures that the paragraph functions will work equally within a region of
|
||||
text indented by a margin setting."
|
||||
:group 'paragraphs
|
||||
:type 'regexp)
|
||||
(put 'paragraph-separate 'safe-local-variable 'stringp)
|
||||
|
||||
|
|
@ -149,7 +147,6 @@ regexp describing the end of a sentence, when the value of the variable
|
|||
This value is used by the function `sentence-end' to construct the
|
||||
regexp describing the end of a sentence, when the value of the variable
|
||||
`sentence-end' is nil. See Info node `(elisp)Standard Regexps'."
|
||||
:group 'paragraphs
|
||||
:type 'string)
|
||||
(put 'sentence-end-without-space 'safe-local-variable 'stringp)
|
||||
|
||||
|
|
@ -161,13 +158,11 @@ All paragraph boundaries also end sentences, regardless.
|
|||
The value nil means to use the default value defined by the
|
||||
function `sentence-end'. You should always use this function
|
||||
to obtain the value of this variable."
|
||||
:group 'paragraphs
|
||||
:type '(choice regexp (const :tag "Use default value" nil)))
|
||||
(put 'sentence-end 'safe-local-variable 'string-or-null-p)
|
||||
|
||||
(defcustom sentence-end-base "[.?!…‽][]\"'”’)}»›]*"
|
||||
"Regexp matching the basic end of a sentence, not including following space."
|
||||
:group 'paragraphs
|
||||
:type 'regexp
|
||||
:version "25.1")
|
||||
(put 'sentence-end-base 'safe-local-variable 'stringp)
|
||||
|
|
@ -197,14 +192,12 @@ in between. See Info node `(elisp)Standard Regexps'."
|
|||
|
||||
(defcustom page-delimiter "^\014"
|
||||
"Regexp describing line-beginnings that separate pages."
|
||||
:group 'paragraphs
|
||||
:type 'regexp)
|
||||
(put 'page-delimiter 'safe-local-variable 'stringp)
|
||||
|
||||
(defcustom paragraph-ignore-fill-prefix nil
|
||||
"Non-nil means the paragraph commands are not affected by `fill-prefix'.
|
||||
This is desirable in modes where blank lines are the paragraph delimiters."
|
||||
:group 'paragraphs
|
||||
:type 'boolean)
|
||||
(put 'paragraph-ignore-fill-prefix 'safe-local-variable 'booleanp)
|
||||
|
||||
|
|
|
|||
|
|
@ -37,28 +37,22 @@
|
|||
|
||||
(defcustom picture-rectangle-ctl ?+
|
||||
"Character `picture-draw-rectangle' uses for top left corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
(defcustom picture-rectangle-ctr ?+
|
||||
"Character `picture-draw-rectangle' uses for top right corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
(defcustom picture-rectangle-cbr ?+
|
||||
"Character `picture-draw-rectangle' uses for bottom right corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
(defcustom picture-rectangle-cbl ?+
|
||||
"Character `picture-draw-rectangle' uses for bottom left corners."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
(defcustom picture-rectangle-v ?|
|
||||
"Character `picture-draw-rectangle' uses for vertical lines."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
(defcustom picture-rectangle-h ?-
|
||||
"Character `picture-draw-rectangle' uses for horizontal lines."
|
||||
:type 'character
|
||||
:group 'picture)
|
||||
:type 'character)
|
||||
|
||||
|
||||
;; Picture Movement Commands
|
||||
|
|
@ -409,8 +403,7 @@ character `\\' in the set it must be preceded by itself: \"\\\\\".
|
|||
|
||||
The command \\[picture-tab-search] is defined to move beneath (or to) a
|
||||
character belonging to this set independent of the tab stops list."
|
||||
:type 'string
|
||||
:group 'picture)
|
||||
:type 'string)
|
||||
|
||||
(defun picture-set-tab-stops (&optional arg)
|
||||
"Set value of `tab-stop-list' according to context of this line.
|
||||
|
|
@ -682,8 +675,7 @@ Leaves the region surrounding the rectangle."
|
|||
(defcustom picture-mode-hook nil
|
||||
"If non-nil, its value is called on entry to Picture mode.
|
||||
Picture mode is invoked by the command \\[picture-mode]."
|
||||
:type 'hook
|
||||
:group 'picture)
|
||||
:type 'hook)
|
||||
|
||||
(defvar picture-mode-old-local-map)
|
||||
(defvar picture-mode-old-mode-name)
|
||||
|
|
|
|||
|
|
@ -65,8 +65,7 @@
|
|||
|
||||
(defcustom r2b-trace-on nil
|
||||
"Non-nil means trace conversion."
|
||||
:type 'boolean
|
||||
:group 'refbib)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom r2b-journal-abbrevs
|
||||
'(
|
||||
|
|
@ -83,8 +82,7 @@ letter, even if it really doesn't.
|
|||
\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
|
||||
\"Artificial Intelligence\", but would replace Ijcai81 with the
|
||||
BibTeX macro \"ijcai7\"."
|
||||
:type '(repeat (list string string))
|
||||
:group 'refbib)
|
||||
:type '(repeat (list string string)))
|
||||
|
||||
(defcustom r2b-booktitle-abbrevs
|
||||
'(
|
||||
|
|
@ -101,8 +99,7 @@ should be listed as beginning with a capital letter, even if it doesn't.
|
|||
\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
|
||||
\"Artificial Intelligence\", but would replace Ijcai81 with the
|
||||
BibTeX macro \"ijcai7\"."
|
||||
:type '(repeat (list string string))
|
||||
:group 'refbib)
|
||||
:type '(repeat (list string string)))
|
||||
|
||||
(defcustom r2b-proceedings-list
|
||||
'()
|
||||
|
|
@ -119,8 +116,7 @@ a conference, and its expansion is the BibTeX macro \"ijcai7\". Then
|
|||
expansion were \"Proceedings of the Seventh International Conference
|
||||
on Artificial Intelligence\", then you would NOT need to include Ijcai81
|
||||
in `r2b-proceedings-list' (although it wouldn't cause an error)."
|
||||
:type '(repeat (list string string))
|
||||
:group 'refbib)
|
||||
:type '(repeat (list string string)))
|
||||
|
||||
(defvar r2b-additional-stop-words
|
||||
"Some\\|What"
|
||||
|
|
@ -129,8 +125,7 @@ This is in addition to the `r2b-capitalize-title-stop-words'.")
|
|||
|
||||
(defcustom r2b-delimit-with-quote t
|
||||
"If true, then use \" to delimit fields, otherwise use braces."
|
||||
:type 'boolean
|
||||
:group 'refbib)
|
||||
:type 'boolean)
|
||||
|
||||
;**********************************************************
|
||||
; Utility Functions
|
||||
|
|
@ -205,13 +200,11 @@ This is in addition to the `r2b-capitalize-title-stop-words'.")
|
|||
|
||||
(defcustom r2b-out-buf-name "*Out*"
|
||||
"Name of buffer for output from refer-to-bibtex."
|
||||
:type 'string
|
||||
:group 'refbib)
|
||||
:type 'string)
|
||||
|
||||
(defcustom r2b-log-name "*Log*"
|
||||
"Name of buffer for logs errors from refer-to-bibtex."
|
||||
:type 'string
|
||||
:group 'refbib)
|
||||
:type 'string)
|
||||
|
||||
(defvar r2b-in-buf nil)
|
||||
(defvar r2b-out-buf nil)
|
||||
|
|
|
|||
|
|
@ -91,8 +91,7 @@ the default search path. Since Refer does not know that default path,
|
|||
it cannot search it. Include that path explicitly in your BIBINPUTS
|
||||
environment if you really want it searched (which is not likely to
|
||||
happen anyway)."
|
||||
:type '(choice (repeat directory) (const bibinputs) (const texinputs))
|
||||
:group 'refer)
|
||||
:type '(choice (repeat directory) (const bibinputs) (const texinputs)))
|
||||
|
||||
(defcustom refer-bib-files 'dir
|
||||
"List of \\.bib files to search for references,
|
||||
|
|
@ -110,16 +109,14 @@ If `refer-bib-files' is nil, auto or dir, it is setq'd to the appropriate
|
|||
list of files when it is first used if `refer-cache-bib-files' is t. If
|
||||
`refer-cache-bib-files' is nil, the list of \\.bib files to use is re-read
|
||||
each time it is needed."
|
||||
:type '(choice (repeat file) (const nil) (const auto) (const dir))
|
||||
:group 'refer)
|
||||
:type '(choice (repeat file) (const nil) (const auto) (const dir)))
|
||||
|
||||
(defcustom refer-cache-bib-files t
|
||||
"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."
|
||||
:type 'boolean
|
||||
:group 'refer)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom refer-bib-files-regexp "\\\\bibliography"
|
||||
"Regexp matching a bibliography file declaration.
|
||||
|
|
@ -131,8 +128,7 @@ command is expected to specify a file name, or a list of comma-separated file
|
|||
names, within curly braces.
|
||||
If a specified file doesn't exist and has no extension, a \\.bib extension
|
||||
is automatically tried."
|
||||
:type 'regexp
|
||||
:group 'refer)
|
||||
:type 'regexp)
|
||||
|
||||
(make-variable-buffer-local 'refer-bib-files)
|
||||
(make-variable-buffer-local 'refer-cache-bib-files)
|
||||
|
|
|
|||
|
|
@ -193,24 +193,20 @@
|
|||
(defcustom remember-mode-hook nil
|
||||
"Functions run upon entering `remember-mode'."
|
||||
:type 'hook
|
||||
:options '(flyspell-mode turn-on-auto-fill org-remember-apply-template)
|
||||
:group 'remember)
|
||||
:options '(flyspell-mode turn-on-auto-fill org-remember-apply-template))
|
||||
|
||||
(defcustom remember-in-new-frame nil
|
||||
"Non-nil means use a separate frame for capturing remember data."
|
||||
:type 'boolean
|
||||
:group 'remember)
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom remember-register ?R
|
||||
"The register in which the window configuration is stored."
|
||||
:type 'character
|
||||
:group 'remember)
|
||||
:type 'character)
|
||||
|
||||
(defcustom remember-filter-functions nil
|
||||
"Functions run to filter remember data.
|
||||
All functions are run in the remember buffer."
|
||||
:type 'hook
|
||||
:group 'remember)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom remember-handler-functions '(remember-append-to-file)
|
||||
"Functions run to process remember data.
|
||||
|
|
@ -223,13 +219,11 @@ recorded somewhere by that function."
|
|||
remember-append-to-file
|
||||
remember-store-in-files
|
||||
remember-diary-extract-entries
|
||||
org-remember-handler)
|
||||
:group 'remember)
|
||||
org-remember-handler))
|
||||
|
||||
(defcustom remember-all-handler-functions nil
|
||||
"If non-nil every function in `remember-handler-functions' is called."
|
||||
:type 'boolean
|
||||
:group 'remember)
|
||||
:type 'boolean)
|
||||
|
||||
;; See below for more user variables.
|
||||
|
||||
|
|
@ -240,16 +234,14 @@ recorded somewhere by that function."
|
|||
|
||||
(defcustom remember-save-after-remembering t
|
||||
"Non-nil means automatically save after remembering."
|
||||
:type 'boolean
|
||||
:group 'remember)
|
||||
:type 'boolean)
|
||||
|
||||
;;; User Functions:
|
||||
|
||||
(defcustom remember-annotation-functions '(buffer-file-name)
|
||||
"Hook that returns an annotation to be inserted into the remember buffer."
|
||||
:type 'hook
|
||||
:options '(org-remember-annotation buffer-file-name)
|
||||
:group 'remember)
|
||||
:options '(org-remember-annotation buffer-file-name))
|
||||
|
||||
(defvar remember-annotation nil
|
||||
"Current annotation.")
|
||||
|
|
@ -258,13 +250,11 @@ recorded somewhere by that function."
|
|||
|
||||
(defcustom remember-before-remember-hook nil
|
||||
"Functions run before switching to the *Remember* buffer."
|
||||
:type 'hook
|
||||
:group 'remember)
|
||||
:type 'hook)
|
||||
|
||||
(defcustom remember-run-all-annotation-functions-flag nil
|
||||
"Non-nil means use all annotations returned by `remember-annotation-functions'."
|
||||
:type 'boolean
|
||||
:group 'remember)
|
||||
:type 'boolean)
|
||||
|
||||
;;;###autoload
|
||||
(defun remember (&optional initial)
|
||||
|
|
@ -337,13 +327,11 @@ With a prefix or a visible region, use the region as INITIAL."
|
|||
|
||||
(defcustom remember-mailbox "~/Mail/remember"
|
||||
"The file in which to store remember data as mail."
|
||||
:type 'file
|
||||
:group 'remember)
|
||||
:type 'file)
|
||||
|
||||
(defcustom remember-default-priority "medium"
|
||||
"The default priority for remembered mail messages."
|
||||
:type 'string
|
||||
:group 'remember)
|
||||
:type 'string)
|
||||
|
||||
(defun remember-store-in-mailbox ()
|
||||
"Store remember data as if it were incoming mail.
|
||||
|
|
@ -396,19 +384,16 @@ exists) might be changed."
|
|||
(with-current-buffer buf
|
||||
(set-visited-file-name
|
||||
(expand-file-name remember-data-file))))))
|
||||
:initialize 'custom-initialize-default
|
||||
:group 'remember)
|
||||
:initialize 'custom-initialize-default)
|
||||
|
||||
(defcustom remember-leader-text "** "
|
||||
"The text used to begin each remember item."
|
||||
:type 'string
|
||||
:group 'remember)
|
||||
:type 'string)
|
||||
|
||||
(defcustom remember-time-format "%a %b %d %H:%M:%S %Y"
|
||||
"The format for time stamp, passed to `format-time-string'.
|
||||
The default emulates `current-time-string' for backward compatibility."
|
||||
:type 'string
|
||||
:group 'remember
|
||||
:version "27.1")
|
||||
|
||||
(defcustom remember-text-format-function nil
|
||||
|
|
@ -416,7 +401,6 @@ The default emulates `current-time-string' for backward compatibility."
|
|||
The function receives the remembered text as argument and should
|
||||
return the text to be remembered."
|
||||
:type '(choice (const nil) function)
|
||||
:group 'remember
|
||||
:version "28.1")
|
||||
|
||||
(defun remember-append-to-file ()
|
||||
|
|
@ -465,16 +449,14 @@ If you want to remember a region, supply a universal prefix to
|
|||
"The directory in which to store remember data as files.
|
||||
Used by `remember-store-in-files'."
|
||||
:type 'directory
|
||||
:version "24.4"
|
||||
:group 'remember)
|
||||
:version "24.4")
|
||||
|
||||
(defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z"
|
||||
"Format string for the file name in which to store unprocessed data.
|
||||
This is passed to `format-time-string'.
|
||||
Used by `remember-store-in-files'."
|
||||
:type 'string
|
||||
:version "24.4"
|
||||
:group 'remember)
|
||||
:version "24.4")
|
||||
|
||||
(defun remember-store-in-files ()
|
||||
"Store remember data in a file in `remember-data-directory'.
|
||||
|
|
@ -511,8 +493,7 @@ Most useful for remembering things from other applications."
|
|||
(defcustom remember-diary-file nil
|
||||
"File for extracted diary entries.
|
||||
If this is nil, then `diary-file' will be used instead."
|
||||
:type '(choice (const :tag "diary-file" nil) file)
|
||||
:group 'remember)
|
||||
:type '(choice (const :tag "diary-file" nil) file))
|
||||
|
||||
(defvar calendar-date-style) ; calendar.el
|
||||
|
||||
|
|
|
|||
|
|
@ -54,20 +54,17 @@
|
|||
;;;###autoload
|
||||
(defcustom texinfo-open-quote (purecopy "``")
|
||||
"String inserted by typing \\[texinfo-insert-quote] to open a quotation."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom texinfo-close-quote (purecopy "''")
|
||||
"String inserted by typing \\[texinfo-insert-quote] to close a quotation."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
(defcustom texinfo-mode-hook nil
|
||||
"Normal hook run when entering Texinfo mode."
|
||||
:type 'hook
|
||||
:options '(turn-on-auto-fill flyspell-mode)
|
||||
:group 'texinfo)
|
||||
:options '(turn-on-auto-fill flyspell-mode))
|
||||
|
||||
|
||||
;;; Autoloads:
|
||||
|
|
@ -349,8 +346,7 @@ Subexpression 1 is what goes into the corresponding `@end' statement.")
|
|||
|
||||
(defface texinfo-heading
|
||||
'((t (:inherit font-lock-function-name-face)))
|
||||
"Face used for section headings in `texinfo-mode'."
|
||||
:group 'texinfo)
|
||||
"Face used for section headings in `texinfo-mode'.")
|
||||
|
||||
(defvar texinfo-font-lock-keywords
|
||||
`(;; All but the first had an OVERRIDE of t.
|
||||
|
|
@ -962,32 +958,27 @@ to jump to the corresponding spot in the Texinfo source file."
|
|||
|
||||
(defcustom texinfo-texi2dvi-command "texi2dvi"
|
||||
"Command used by `texinfo-tex-buffer' to run TeX and texindex on a buffer."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
(defcustom texinfo-texi2dvi-options ""
|
||||
"Command line options for `texinfo-texi2dvi-command'."
|
||||
:type 'string
|
||||
:group 'texinfo
|
||||
:version "28.1")
|
||||
|
||||
(defcustom texinfo-tex-command "tex"
|
||||
"Command used by `texinfo-tex-region' to run TeX on a region."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
(defcustom texinfo-texindex-command "texindex"
|
||||
"Command used by `texinfo-texindex' to sort unsorted index files."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
(defcustom texinfo-delete-from-print-queue-command "lprm"
|
||||
"Command string used to delete a job from the line printer queue.
|
||||
Command is used by \\[texinfo-delete-from-print-queue] based on
|
||||
number provided by a previous \\[tex-show-print-queue]
|
||||
command."
|
||||
:type 'string
|
||||
:group 'texinfo)
|
||||
:type 'string)
|
||||
|
||||
(defvar texinfo-tex-trailer "@bye"
|
||||
"String appended after a region sent to TeX by `texinfo-tex-region'.")
|
||||
|
|
|
|||
|
|
@ -66,7 +66,6 @@ non-capturing groups can be used for grouping prior to the part of the regexp
|
|||
matching the white space). The pattern is matched case-sensitive regardless of
|
||||
the value of `case-fold-search' setting."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'regexp
|
||||
:safe t)
|
||||
|
||||
|
|
@ -90,7 +89,6 @@ by the hard space character.
|
|||
|
||||
The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this
|
||||
mode, the item for the mode SYMBOL is looked up in the alist instead."
|
||||
:group 'tildify
|
||||
:type '(repeat (cons :tag "Entry for major mode"
|
||||
(choice (const :tag "Default" t)
|
||||
(symbol :tag "Major mode"))
|
||||
|
|
@ -110,7 +108,6 @@ might be used for other modes if compatible encoding is used.
|
|||
|
||||
If nil, current major mode has no way to represent a hard space."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type '(choice (const :tag "Space character (no hard-space representation)"
|
||||
" ")
|
||||
(const :tag "No-break space (U+00A0)" "\u00A0")
|
||||
|
|
@ -133,7 +130,6 @@ STRING defines the hard space, which is inserted at places defined by
|
|||
|
||||
The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this
|
||||
mode, the item for the mode SYMBOL is looked up in the alist instead."
|
||||
:group 'tildify
|
||||
:type '(repeat (cons :tag "Entry for major mode"
|
||||
(choice (const :tag "Default" t)
|
||||
(symbol :tag "Major mode"))
|
||||
|
|
@ -164,7 +160,6 @@ or better still:
|
|||
See `tildify-foreach-ignore-environments' function for other ways to use the
|
||||
variable."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'function)
|
||||
|
||||
(defcustom tildify-ignored-environments-alist ()
|
||||
|
|
@ -183,7 +178,6 @@ MAJOR-MODE defines major mode, for which the item applies. It can be either:
|
|||
|
||||
See `tildify-foreach-ignore-environments' function for description of BEG-REGEX
|
||||
and END-REGEX."
|
||||
:group 'tildify
|
||||
:type '(repeat
|
||||
(cons :tag "Entry for major mode"
|
||||
(choice (const :tag "Default" t)
|
||||
|
|
@ -416,19 +410,16 @@ If the pattern matches `looking-back', a hard space needs to be inserted instead
|
|||
of a space at point. The regexp is always case sensitive, regardless of the
|
||||
current `case-fold-search' setting."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom tildify-space-predicates '(tildify-space-region-predicate)
|
||||
"A list of predicate functions for `tildify-space' function."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type '(repeat function))
|
||||
|
||||
(defcustom tildify-double-space-undos t
|
||||
"Weather `tildify-space' should undo hard space when space is typed again."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'boolean)
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -133,26 +133,22 @@
|
|||
'("-%*- %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."
|
||||
:type 'sexp
|
||||
:group 'two-column)
|
||||
:type 'sexp)
|
||||
|
||||
(defcustom 2C-other-buffer-hook 'text-mode
|
||||
"Hook run in new buffer when it is associated with current one."
|
||||
:type 'function
|
||||
:group 'two-column)
|
||||
:type 'function)
|
||||
|
||||
(defcustom 2C-separator ""
|
||||
"A string inserted between the two columns when merging.
|
||||
This gets set locally by \\[2C-split]."
|
||||
:type 'string
|
||||
:group 'two-column)
|
||||
:type 'string)
|
||||
(put '2C-separator 'permanent-local t)
|
||||
|
||||
(defcustom 2C-window-width 40
|
||||
"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)
|
||||
:type 'integer)
|
||||
(make-variable-buffer-local '2C-window-width)
|
||||
(put '2C-window-width 'permanent-local t)
|
||||
|
||||
|
|
@ -160,13 +156,11 @@ This value is local for every buffer that sets it."
|
|||
"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
|
||||
:group 'two-column)
|
||||
:type 'integer)
|
||||
|
||||
(defcustom 2C-autoscroll t
|
||||
"If non-nil, Emacs attempts to keep the two column's buffers aligned."
|
||||
:type 'boolean
|
||||
:group 'two-column)
|
||||
:type 'boolean)
|
||||
|
||||
|
||||
(defvar 2C-mode-map
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue