mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-21 06:55:39 +00:00
Backslash cleanup in Elisp source files
This patch should not change behavior. It typically omits backslashes where they are redundant (e.g., in the string literal "^\$"). In a few places, insert backslashes where they make regular expressions clearer: e.g., replace "^\*" (equivalent to "^*") with "^\\*", which has the same effect as a regular expression. Also, use ‘\ %’ instead of ‘\%’ when avoiding confusion with SCCS IDs, and similarly use ‘\ $’ instead of ‘\$’ when avoiding confusion with RCS IDs, as that makes it clearer that the backslash is intended.
This commit is contained in:
Paul Eggert
parent
d149ff5233
commit
284c470ef7
@ -917,7 +917,7 @@ has been customized to enable this behavior), `allout-mode' will be
|
||||
automatically activated. The layout dictated by the value will be used to
|
||||
set the initial exposure when `allout-mode' is activated.
|
||||
|
||||
\*You should not setq-default this variable non-nil unless you want every
|
||||
*You should not setq-default this variable non-nil unless you want every
|
||||
visited file to be treated as an allout file.*
|
||||
|
||||
The value would typically be set by a file local variable. For
|
||||
@ -1512,7 +1512,7 @@ already associated with a file.
|
||||
|
||||
It consists of an encrypted random string useful only to verify that a
|
||||
passphrase entered by the user is effective for decryption. The passphrase
|
||||
itself is \*not* recorded in the file anywhere, and the encrypted contents
|
||||
itself is *not* recorded in the file anywhere, and the encrypted contents
|
||||
are random binary characters to avoid exposing greater susceptibility to
|
||||
search attacks.
|
||||
|
||||
@ -3721,7 +3721,7 @@ Nuances:
|
||||
(save-match-data
|
||||
(let* ((inhibit-field-text-motion t)
|
||||
(depth (+ (allout-current-depth) relative-depth))
|
||||
(opening-on-blank (if (looking-at "^\$")
|
||||
(opening-on-blank (if (looking-at "^$")
|
||||
(not (setq before nil))))
|
||||
;; bunch o vars set while computing ref-topic
|
||||
opening-numbered
|
||||
@ -5909,7 +5909,7 @@ file with topics pending encryption is saved, topics pending
|
||||
encryption are encrypted. See `allout-encrypt-unencrypted-on-saves'
|
||||
for auto-encryption specifics.
|
||||
|
||||
\*NOTE WELL* that automatic encryption that happens during saves will
|
||||
*NOTE WELL* that automatic encryption that happens during saves will
|
||||
default to symmetric encryption -- you must deliberately (re)encrypt key-pair
|
||||
encrypted topics if you want them to continue to use the key-pair cipher.
|
||||
|
||||
|
||||
@ -1265,9 +1265,9 @@ if `inhibit-field-text-motion' is non-nil."
|
||||
(define-key abbrev-map "e" 'expand-abbrev)
|
||||
(define-key abbrev-map "'" 'expand-abbrev)
|
||||
;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev)
|
||||
;; (define-key ctl-x-map "\+" 'add-global-abbrev)
|
||||
;; (define-key ctl-x-map "+" 'add-global-abbrev)
|
||||
;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev)
|
||||
;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev)
|
||||
;; (define-key ctl-x-map "-" 'inverse-add-global-abbrev)
|
||||
(define-key esc-map "'" 'abbrev-prefix-mark)
|
||||
(define-key ctl-x-map "'" 'expand-abbrev)
|
||||
(define-key ctl-x-map "\C-b" 'list-buffers)
|
||||
|
||||
@ -138,7 +138,7 @@ This is as opposed to inline text at the top of the buffer."
|
||||
|
||||
(defconst bookmark-bmenu-inline-header-height 2
|
||||
"Number of lines used for the *Bookmark List* header
|
||||
\(only significant when `bookmark-bmenu-use-header-line' is nil\).")
|
||||
\(only significant when `bookmark-bmenu-use-header-line' is nil).")
|
||||
|
||||
(defconst bookmark-bmenu-marks-width 2
|
||||
"Number of columns (chars) used for the *Bookmark List* marks column,
|
||||
|
||||
@ -386,7 +386,7 @@ C-w Describe how there is no warranty for Calc."
|
||||
(interactive)
|
||||
(calc-quit)
|
||||
(view-emacs-news)
|
||||
(re-search-forward "^\*+ .*\\<Calc\\>" nil t))
|
||||
(re-search-forward "^\\*+ .*\\<Calc\\>" nil t))
|
||||
|
||||
(defvar calc-help-long-names '((?b . "binary/business")
|
||||
(?g . "graphics")
|
||||
|
||||
@ -4892,7 +4892,7 @@ With nil or omitted CATEGORY, default to the current category."
|
||||
(widen)
|
||||
(goto-char (point-min))
|
||||
(setq todo-categories
|
||||
(if (looking-at "\(\(\"")
|
||||
(if (looking-at "((\"")
|
||||
(read (buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(line-end-position)))
|
||||
|
||||
@ -126,7 +126,7 @@ file.")
|
||||
(defvar ede-source-c++
|
||||
(ede-sourcecode "ede-source-c++"
|
||||
:name "C++"
|
||||
:sourcepattern "\\.\\(c\\(pp?\\|c\\|xx\\|++\\)\\|C\\\(PP\\)?\\)$"
|
||||
:sourcepattern "\\.\\(c\\(pp?\\|c\\|xx\\|++\\)\\|C\\(PP\\)?\\)$"
|
||||
:auxsourcepattern "\\.\\(hpp?\\|hh?\\|hxx\\|H\\)$"
|
||||
:garbagepattern '("*.o" "*.obj" ".deps/*.P" ".lo"))
|
||||
"C++ source code definition.")
|
||||
|
||||
@ -604,7 +604,7 @@ PROMPT, INITIAL, HIST, and DEFAULT are the same as for `completing-read'."
|
||||
;;
|
||||
(defun overload-docstring-extension (overload)
|
||||
"Return the doc string that augments the description of OVERLOAD."
|
||||
(let ((doc "\n\This function can be overloaded\
|
||||
(let ((doc "\nThis function can be overloaded\
|
||||
with `define-mode-local-override'.")
|
||||
(sym (overload-obsoleted-by overload)))
|
||||
(when sym
|
||||
|
||||
@ -1212,7 +1212,7 @@ Returns a list of cooked tags.
|
||||
The parser returns raw tags with positional data START END at the
|
||||
end of the tag data structure (a list for now). We convert it from
|
||||
that to a cooked state that uses an overlay proxy, that is, a vector
|
||||
\[START END].
|
||||
[START END].
|
||||
|
||||
The raw tag is changed with side effects and maybe expanded in
|
||||
several derived tags when the variable `semantic-tag-expand-function'
|
||||
|
||||
@ -915,7 +915,7 @@ An NVARS by NRULES matrix of bits indicating which rules can help
|
||||
derive the beginning of the data for each nonterminal. For example,
|
||||
if symbol 5 can be derived as the sequence of symbols 8 3 20, and one
|
||||
of the rules for deriving symbol 8 is rule 4, then the
|
||||
\[5 - NTOKENS, 4] bit in FDERIVES is set."
|
||||
[5 - NTOKENS, 4] bit in FDERIVES is set."
|
||||
(let (i j k)
|
||||
(setq fderives (make-vector nvars nil))
|
||||
(setq i 0)
|
||||
|
||||
@ -364,7 +364,7 @@ automaton has only one entry point."
|
||||
|
||||
- START specify the start symbol (nonterminal) used by the parser as
|
||||
its goal. It defaults to the start symbol defined in the grammar
|
||||
\(see also `wisent-compile-grammar')."
|
||||
(see also `wisent-compile-grammar')."
|
||||
(run-hooks 'wisent-pre-parse-hook)
|
||||
(let* ((actions (aref automaton 0))
|
||||
(gotos (aref automaton 1))
|
||||
|
||||
@ -430,7 +430,7 @@ in the next one.")
|
||||
(file-name-nondirectory file-name)))
|
||||
(comint-send-string (scheme-proc) (concat "(load \""
|
||||
file-name
|
||||
"\"\)\n")))
|
||||
"\")\n")))
|
||||
|
||||
(defun scheme-compile-file (file-name)
|
||||
"Compile a Scheme file FILE-NAME in the inferior Scheme process."
|
||||
@ -444,7 +444,7 @@ in the next one.")
|
||||
(file-name-nondirectory file-name)))
|
||||
(comint-send-string (scheme-proc) (concat "(compile-file \""
|
||||
file-name
|
||||
"\"\)\n")))
|
||||
"\")\n")))
|
||||
|
||||
|
||||
(defvar scheme-buffer nil "The current scheme process buffer.
|
||||
|
||||
@ -1581,7 +1581,7 @@ Go to the history element by the absolute history position HIST-POS."
|
||||
(defun comint-within-quotes (beg end)
|
||||
"Return t if the number of quotes between BEG and END is odd.
|
||||
Quotes are single and double."
|
||||
(let ((countsq (comint-how-many-region "\\(^\\|[^\\\\]\\)\'" beg end))
|
||||
(let ((countsq (comint-how-many-region "\\(^\\|[^\\\\]\\)'" beg end))
|
||||
(countdq (comint-how-many-region "\\(^\\|[^\\\\]\\)\"" beg end)))
|
||||
(or (= (mod countsq 2) 1) (= (mod countdq 2) 1))))
|
||||
|
||||
|
||||
@ -120,7 +120,7 @@
|
||||
|
||||
Example: Set this to \"\\\\$\" for programming languages
|
||||
in which variable names may appear with or without a leading `$'.
|
||||
\(For example, in Makefiles.\)
|
||||
\(For example, in Makefiles.)
|
||||
|
||||
Set this to nil if no characters should be skipped."
|
||||
:type '(choice regexp
|
||||
|
||||
@ -3107,7 +3107,7 @@ deactivation, which might run hooks and get into other trouble."
|
||||
"Define a piece of advice for FUNCTION (a symbol).
|
||||
The syntax of `defadvice' is as follows:
|
||||
|
||||
\(defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
|
||||
(defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
|
||||
[DOCSTRING] [INTERACTIVE-FORM]
|
||||
BODY...)
|
||||
|
||||
|
||||
@ -615,7 +615,7 @@ is more efficient."
|
||||
of all elements of TREE.
|
||||
|
||||
If REVERSE is non-nil, the stack is sorted in reverse order.
|
||||
\(See also `avl-tree-stack-pop'\).
|
||||
\(See also `avl-tree-stack-pop').
|
||||
|
||||
Note that any modification to TREE *immediately* invalidates all
|
||||
avl-tree-stacks created before the modification (in particular,
|
||||
|
||||
@ -397,7 +397,7 @@ invoked interactively are excluded from this list."
|
||||
"Alist of functions and their call tree.
|
||||
Each element looks like
|
||||
|
||||
\(FUNCTION CALLERS CALLS\)
|
||||
(FUNCTION CALLERS CALLS)
|
||||
|
||||
where CALLERS is a list of functions that call FUNCTION, and CALLS
|
||||
is a list of functions for which calls were generated while compiling
|
||||
@ -4529,11 +4529,11 @@ whose definitions have been compiled in this Emacs session, as well as
|
||||
all functions called by those functions.
|
||||
|
||||
The call graph does not include macros, inline functions, or
|
||||
primitives that the byte-code interpreter knows about directly \(eq,
|
||||
cons, etc.\).
|
||||
primitives that the byte-code interpreter knows about directly
|
||||
\(`eq', `cons', etc.).
|
||||
|
||||
The call tree also lists those functions which are not known to be called
|
||||
\(that is, to which no calls have been compiled\), and which cannot be
|
||||
\(that is, to which no calls have been compiled), and which cannot be
|
||||
invoked interactively."
|
||||
(interactive)
|
||||
(message "Generating call tree...")
|
||||
|
||||
@ -162,7 +162,7 @@ def\\(?:un\\|subst\\|foo\\|method\\|class\\|\
|
||||
ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\
|
||||
\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\
|
||||
ine-overloadable-function\\)\\)\
|
||||
\[ \t]*%s\\([ \t;]+\\|$\\)")
|
||||
[ \t]*%s\\([ \t;]+\\|$\\)")
|
||||
(regexp-opt (mapcar 'cadr fnlist) t)))
|
||||
(while (re-search-forward re nil t)
|
||||
(skip-chars-forward " \t\n")
|
||||
|
||||
@ -136,7 +136,7 @@ BODY contains code to execute each time the mode is enabled or disabled.
|
||||
:variable PLACE The location to use instead of the variable MODE to store
|
||||
the state of the mode. This can be simply a different
|
||||
named variable, or a generalized variable.
|
||||
PLACE can also be of the form \(GET . SET), where GET is
|
||||
PLACE can also be of the form (GET . SET), where GET is
|
||||
an expression that returns the current state, and SET is
|
||||
a function that takes one argument, the new state, and
|
||||
sets it. If you specify a :variable, this function does
|
||||
|
||||
@ -3162,12 +3162,12 @@ Do this when stopped before the form or it will be too late.
|
||||
One side effect of using this command is that the next time the
|
||||
function or macro is called, Edebug will be called there as well."
|
||||
(interactive)
|
||||
(if (not (looking-at "\("))
|
||||
(if (not (looking-at "("))
|
||||
(error "You must be before a list form")
|
||||
(let ((func
|
||||
(save-excursion
|
||||
(down-list 1)
|
||||
(if (looking-at "\(")
|
||||
(if (looking-at "(")
|
||||
(edebug--form-data-name
|
||||
(edebug-get-form-data-entry (point)))
|
||||
(read (current-buffer))))))
|
||||
@ -3790,10 +3790,10 @@ Otherwise call `debug' normally."
|
||||
(if t (progn
|
||||
|
||||
;; Delete interspersed edebug internals.
|
||||
(while (re-search-forward "^ \(?edebug" nil t)
|
||||
(while (re-search-forward "^ (?edebug" nil t)
|
||||
(beginning-of-line)
|
||||
(cond
|
||||
((looking-at "^ \(edebug-after")
|
||||
((looking-at "^ (edebug-after")
|
||||
;; Previous lines may contain code, so just delete this line.
|
||||
(setq last-ok-point (point))
|
||||
(forward-line 1)
|
||||
|
||||
@ -137,7 +137,7 @@ the name of the test and the result of NAME-FORM."
|
||||
|
||||
This effectively executes
|
||||
|
||||
\(apply (car COMMAND) (cdr COMMAND)\)
|
||||
(apply (car COMMAND) (cdr COMMAND))
|
||||
|
||||
and returns the same value, but additionally runs hooks like
|
||||
`pre-command-hook' and `post-command-hook', and sets variables
|
||||
@ -189,7 +189,7 @@ test for `called-interactively' in the command will fail."
|
||||
"Return a copy of S with all matches of REGEXPS removed.
|
||||
|
||||
Elements of REGEXPS may also be two-element lists \(REGEXP
|
||||
SUBEXP\), where SUBEXP is the number of a subexpression in
|
||||
SUBEXP), where SUBEXP is the number of a subexpression in
|
||||
REGEXP. In that case, only that subexpression will be removed
|
||||
rather than the entire match."
|
||||
;; Use a temporary buffer since replace-match copies strings, which
|
||||
@ -215,7 +215,7 @@ property list, or no properties if there is no plist before it.
|
||||
As a simple example,
|
||||
|
||||
\(ert-propertized-string \"foo \" \\='(face italic) \"bar\" \" baz\" nil \
|
||||
\" quux\"\)
|
||||
\" quux\")
|
||||
|
||||
would return the string \"foo bar baz quux\" where the substring
|
||||
\"bar baz\" has a `face' property with the value `italic'.
|
||||
|
||||
@ -187,7 +187,7 @@ using :expected-result. See `ert-test-result-type-p' for a
|
||||
description of valid values for RESULT-TYPE.
|
||||
|
||||
\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] \
|
||||
\[:tags '(TAG...)] BODY...)"
|
||||
[:tags '(TAG...)] BODY...)"
|
||||
(declare (debug (&define :name test
|
||||
name sexp [&optional stringp]
|
||||
[&rest keywordp sexp] def-body))
|
||||
@ -887,10 +887,10 @@ Valid result types:
|
||||
nil -- Never matches.
|
||||
t -- Always matches.
|
||||
:failed, :passed, :skipped -- Matches corresponding results.
|
||||
\(and TYPES...\) -- Matches if all TYPES match.
|
||||
\(or TYPES...\) -- Matches if some TYPES match.
|
||||
\(not TYPE\) -- Matches if TYPE does not match.
|
||||
\(satisfies PREDICATE\) -- Matches if PREDICATE returns true when called with
|
||||
\(and TYPES...) -- Matches if all TYPES match.
|
||||
\(or TYPES...) -- Matches if some TYPES match.
|
||||
\(not TYPE) -- Matches if TYPE does not match.
|
||||
\(satisfies PREDICATE) -- Matches if PREDICATE returns true when called with
|
||||
RESULT."
|
||||
;; It would be easy to add `member' and `eql' types etc., but I
|
||||
;; haven't bothered yet.
|
||||
@ -946,7 +946,7 @@ a test -- (i.e., an object of the ert-test data-type) Selects that test.
|
||||
a symbol -- Selects the test that the symbol names, errors if none.
|
||||
\(member TESTS...) -- Selects the elements of TESTS, a list of tests
|
||||
or symbols naming tests.
|
||||
\(eql TEST\) -- Selects TEST, a test or a symbol naming a test.
|
||||
\(eql TEST) -- Selects TEST, a test or a symbol naming a test.
|
||||
\(and SELECTORS...) -- Selects the tests that match all SELECTORS.
|
||||
\(or SELECTORS...) -- Selects the tests that match any of the SELECTORS.
|
||||
\(not SELECTOR) -- Selects all tests that do not match SELECTOR.
|
||||
|
||||
@ -62,7 +62,7 @@ ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\
|
||||
foo\\|\\(?:[^icfgv]\\|g[^r]\\)\\(\\w\\|\\s_\\)+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\
|
||||
menu-bar-make-toggle\\)"
|
||||
find-function-space-re
|
||||
"\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)")
|
||||
"\\('\\|(quote \\)?%s\\(\\s-\\|$\\|[()]\\)")
|
||||
"The regexp used by `find-function' to search for a function definition.
|
||||
Note it must contain a `%s' at the place where `format'
|
||||
should insert the function name. The default value avoids `defconst',
|
||||
|
||||
@ -233,7 +233,7 @@ turned into calls of the form (SETTER ARGS... VAL).
|
||||
|
||||
If FIX-RETURN is non-nil, then SETTER is not assumed to return VAL and
|
||||
instead the assignment is turned into something equivalent to
|
||||
\(let ((temp VAL))
|
||||
(let ((temp VAL))
|
||||
(SETTER ARGS... temp)
|
||||
temp)
|
||||
so as to preserve the semantics of `setf'."
|
||||
|
||||
@ -889,7 +889,7 @@ property `lisp-indent-function' (or the deprecated `lisp-indent-hook'),
|
||||
it specifies how to indent. The property value can be:
|
||||
|
||||
* `defun', meaning indent `defun'-style
|
||||
\(this is also the case if there is no property and the function
|
||||
(this is also the case if there is no property and the function
|
||||
has a name that begins with \"def\", and three or more arguments);
|
||||
|
||||
* an integer N, meaning indent the first N arguments specially
|
||||
|
||||
@ -44,7 +44,7 @@ Takes args PROMPTER ACTOR LIST, and optional args HELP and ACTION-ALIST.
|
||||
LIST is a list of objects, or a function of no arguments to return the next
|
||||
object or nil.
|
||||
|
||||
If PROMPTER is a string, the prompt is \(format PROMPTER OBJECT\). If not
|
||||
If PROMPTER is a string, the prompt is \(format PROMPTER OBJECT). If not
|
||||
a string, PROMPTER is a function of one arg (an object from LIST), which
|
||||
returns a string to be used as the prompt for that object. If the return
|
||||
value is not a string, it may be nil to ignore the object or non-nil to act
|
||||
@ -56,7 +56,7 @@ which gets called with each object that the user answers `yes' for.
|
||||
If HELP is given, it is a list (OBJECT OBJECTS ACTION),
|
||||
where OBJECT is a string giving the singular noun for an elt of LIST;
|
||||
OBJECTS is the plural noun for elts of LIST, and ACTION is a transitive
|
||||
verb describing ACTOR. The default is \(\"object\" \"objects\" \"act on\"\).
|
||||
verb describing ACTOR. The default is \(\"object\" \"objects\" \"act on\").
|
||||
|
||||
At the prompts, the user may enter y, Y, or SPC to act on that object;
|
||||
n, N, or DEL to skip that object; ! to act on all following objects;
|
||||
|
||||
@ -143,7 +143,7 @@ If LAX non-nil, don't output parentheses if it doesn't require them.
|
||||
Merges keywords to avoid backtracking in Emacs's regexp matcher."
|
||||
;; The basic idea is to find the shortest common prefix or suffix, remove it
|
||||
;; and recurse. If there is no prefix, we divide the list into two so that
|
||||
;; \(at least) one half will have at least a one-character common prefix.
|
||||
;; (at least) one half will have at least a one-character common prefix.
|
||||
|
||||
;; Also we delay the addition of grouping parenthesis as long as possible
|
||||
;; until we're sure we need them, and try to remove one-character sequences
|
||||
|
||||
@ -768,8 +768,8 @@ of all atomic regexps."
|
||||
((= l 3) (string-match "\\`\\(?:\\\\[cCsS_]\\|\\[[^^]\\]\\)" r))
|
||||
((null lax)
|
||||
(cond
|
||||
((string-match "\\`\\[^?\]?\\(?:\\[:[a-z]+:]\\|[^\]]\\)*\\]\\'" r))
|
||||
((string-match "\\`\\\\(\\(?:[^\\]\\|\\\\[^\)]\\)*\\\\)\\'" r)))))))
|
||||
((string-match "\\`\\[^?\]?\\(?:\\[:[a-z]+:]\\|[^]]\\)*\\]\\'" r))
|
||||
((string-match "\\`\\\\(\\(?:[^\\]\\|\\\\[^)]\\)*\\\\)\\'" r)))))))
|
||||
|
||||
|
||||
(defun rx-syntax (form)
|
||||
|
||||
@ -68,9 +68,9 @@ This is slower, but filters out some innocuous shadowing."
|
||||
"Return a list of Emacs Lisp files that create shadows.
|
||||
This function does the work for `list-load-path-shadows'.
|
||||
|
||||
We traverse PATH looking for shadows, and return a \(possibly empty\)
|
||||
We traverse PATH looking for shadows, and return a \(possibly empty)
|
||||
even-length list of files. A file in this list at position 2i shadows
|
||||
the file in position 2i+1. Emacs Lisp file suffixes \(.el and .elc\)
|
||||
the file in position 2i+1. Emacs Lisp file suffixes \(.el and .elc)
|
||||
are stripped from the file names in the list.
|
||||
|
||||
See the documentation for `list-load-path-shadows' for further information."
|
||||
|
||||
@ -213,7 +213,7 @@ one of those elements share the same precedence level and associativity."
|
||||
(defun smie-bnf->prec2 (bnf &rest resolvers)
|
||||
"Convert the BNF grammar into a prec2 table.
|
||||
BNF is a list of nonterminal definitions of the form:
|
||||
\(NONTERM RHS1 RHS2 ...)
|
||||
(NONTERM RHS1 RHS2 ...)
|
||||
where each RHS is a (non-empty) list of terminals (aka tokens) or non-terminals.
|
||||
Not all grammars are accepted:
|
||||
- an RHS cannot be an empty list (this is not needed, since SMIE allows all
|
||||
|
||||
@ -205,7 +205,7 @@ timers). If nil, allocate a new cell."
|
||||
"Insert TIMER into `timer-idle-list'.
|
||||
This arranges to activate TIMER whenever Emacs is next idle.
|
||||
If optional argument DONT-WAIT is non-nil, set TIMER to activate
|
||||
immediately \(see below\), or at the right time, if Emacs is
|
||||
immediately \(see below), or at the right time, if Emacs is
|
||||
already idle.
|
||||
|
||||
REUSE-CELL, if non-nil, is a cons cell to reuse when inserting
|
||||
|
||||
@ -105,7 +105,7 @@
|
||||
;;; Determine Window System, and X Server Vendor (if appropriate).
|
||||
;;;
|
||||
(defconst edt-window-system (if (featurep 'xemacs) (console-type) window-system)
|
||||
"Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
|
||||
"Indicates window system (in GNU Emacs) or console type (in XEmacs).")
|
||||
|
||||
(declare-function x-server-vendor "xfns.c" (&optional terminal))
|
||||
|
||||
|
||||
@ -213,23 +213,23 @@ use within the EDT emulation."
|
||||
|
||||
(defcustom edt-word-entities '(?\t)
|
||||
"Specifies the list of EDT word entity characters.
|
||||
The default list, (\?\\t), contains just the TAB character, which
|
||||
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
|
||||
character, can be used to indicate the numerical value of the
|
||||
character, instead of the actual decimal value. So, ?A means the
|
||||
numerical value for the letter A, \?/ means the numerical value for /,
|
||||
numerical value for the letter A, ?/ means the numerical value for /,
|
||||
etc. Several unprintable and special characters have special
|
||||
representations, which you can also use:
|
||||
|
||||
\?\\b specifies BS, C-h
|
||||
\?\\t specifies TAB, C-i
|
||||
\?\\n specifies LFD, C-j
|
||||
\?\\v specifies VTAB, C-k
|
||||
\?\\f specifies FF, C-l
|
||||
\?\\r specifies CR, C-m
|
||||
\?\\e specifies ESC, C-[
|
||||
\?\\\\ specifies \\
|
||||
?\\b specifies BS, C-h
|
||||
?\\t specifies TAB, C-i
|
||||
?\\n specifies LFD, C-j
|
||||
?\\v specifies VTAB, C-k
|
||||
?\\f specifies FF, C-l
|
||||
?\\r specifies CR, C-m
|
||||
?\\e specifies ESC, C-[
|
||||
?\\\\ specifies \\
|
||||
|
||||
In EDT Emulation movement-by-word commands, each character in the list
|
||||
will be treated as if it were a separate word."
|
||||
@ -311,10 +311,10 @@ This means that an edt-user.el file was found in the user's `load-path'.")
|
||||
;;; o edt-emulation-on o edt-load-keys
|
||||
;;;
|
||||
(defconst edt-emacs-variant (if (featurep 'emacs) "gnu" "xemacs")
|
||||
"Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).")
|
||||
"Indicates Emacs variant: GNU Emacs or XEmacs (aka Lucid Emacs).")
|
||||
|
||||
(defconst edt-window-system (if (featurep 'emacs) window-system (console-type))
|
||||
"Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
|
||||
"Indicates window system (in GNU Emacs) or console type (in XEmacs).")
|
||||
|
||||
(declare-function x-server-vendor "xfns.c" (&optional terminal))
|
||||
|
||||
|
||||
@ -1536,7 +1536,7 @@ as a Meta key and any number of multiple escapes are allowed."
|
||||
(defun viper-repeat (arg)
|
||||
"Re-execute last destructive command.
|
||||
Use the info in viper-d-com, which has the form
|
||||
\(com val ch reg inserted-text command-keys\),
|
||||
\(com val ch reg inserted-text command-keys),
|
||||
where `com' is the command to be re-executed, `val' is the
|
||||
argument to `com', `ch' is a flag for repeat, and `reg' is optional;
|
||||
if it exists, it is the name of the register for `com'.
|
||||
@ -3424,7 +3424,7 @@ controlled by the sign of prefix numeric value."
|
||||
((re-search-backward "[][(){}]" beg-lim t))
|
||||
(t
|
||||
(error "No matching character on line"))))
|
||||
(cond ((looking-at "[\(\[{]")
|
||||
(cond ((looking-at "[([{]")
|
||||
(if com (viper-move-marker-locally 'viper-com-point (point)))
|
||||
(forward-sexp 1)
|
||||
(if com
|
||||
@ -3733,7 +3733,7 @@ With a prefix argument, this function unsets the macros.
|
||||
If the optional prefix argument is non-nil and specifies a valid major mode,
|
||||
this sets the macros only in the macros in that major mode. Otherwise,
|
||||
the macros are set in the current major mode.
|
||||
\(When unsetting the macros, the second argument has no effect.\)"
|
||||
\(When unsetting the macros, the second argument has no effect.)"
|
||||
(interactive "P")
|
||||
(or noninteractive
|
||||
(if (not unset)
|
||||
@ -3980,7 +3980,7 @@ Null string will repeat previous search."
|
||||
(let (buffer buffer-name)
|
||||
(setq buffer-name
|
||||
(funcall viper-read-buffer-function
|
||||
(format "Kill buffer \(%s\): "
|
||||
(format "Kill buffer (%s): "
|
||||
(buffer-name (current-buffer)))))
|
||||
(setq buffer
|
||||
(if (null buffer-name)
|
||||
@ -4588,7 +4588,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back."
|
||||
;; Viewing registers
|
||||
|
||||
(defun viper-ket-function (arg)
|
||||
"Function called by \], the ket. View registers and call \]\]."
|
||||
"Function called by ], the ket. View registers and call ]]."
|
||||
(interactive "P")
|
||||
(let ((reg (read-char)))
|
||||
(cond ((viper-valid-register reg '(letter Letter))
|
||||
@ -4605,7 +4605,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back."
|
||||
viper-InvalidRegister reg)))))
|
||||
|
||||
(defun viper-brac-function (arg)
|
||||
"Function called by \[, the brac. View textmarkers and call \[\[."
|
||||
"Function called by [, the brac. View textmarkers and call [[."
|
||||
(interactive "P")
|
||||
(let ((reg (read-char)))
|
||||
(cond ((viper= ?\[ reg)
|
||||
@ -4981,7 +4981,7 @@ back trace of the execution that leads to the error. Please include this
|
||||
trace in your bug report.
|
||||
|
||||
If you believe that one of Viper's commands goes into an infinite loop
|
||||
\(e.g., Emacs freezes\), type:
|
||||
\(e.g., Emacs freezes), type:
|
||||
|
||||
M-x set-variable <Return> debug-on-quit <Return> t <Return>
|
||||
|
||||
|
||||
@ -396,7 +396,7 @@ reversed."
|
||||
))
|
||||
|
||||
;; Get an ex-token which is either an address or a command.
|
||||
;; A token has a type, \(command, address, end-mark\), and a value
|
||||
;; A token has a type, (command, address, end-mark), and a value
|
||||
(defun viper-get-ex-token ()
|
||||
(save-window-excursion
|
||||
(setq viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name))
|
||||
@ -1658,7 +1658,7 @@ reversed."
|
||||
(if (and (not (string= ex-file (buffer-file-name)))
|
||||
(buffer-modified-p)
|
||||
(not ex-variant))
|
||||
(error "No write since last change \(:rec! overrides\)"))
|
||||
(error "No write since last change (:rec! overrides)"))
|
||||
(recover-file ex-file))
|
||||
|
||||
;; Tell that `rewind' is obsolete and to use `:next count' instead
|
||||
|
||||
@ -102,7 +102,7 @@ docstring. The variable becomes buffer-local whenever set."
|
||||
(declare (indent defun))
|
||||
`(progn
|
||||
(defvar ,var ,default-value
|
||||
,(format "%s\n\(buffer local\)" documentation))
|
||||
,(format "%s\n(buffer local)" documentation))
|
||||
(make-variable-buffer-local ',var)))
|
||||
|
||||
;; (viper-loop COUNT BODY) Execute BODY COUNT times.
|
||||
@ -778,7 +778,7 @@ Related buffers can be cycled through via :R and :P commands."
|
||||
"^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex
|
||||
"^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo
|
||||
"^.+:-") ; prolog
|
||||
"Regexps for Headings. Used by \[\[ and \]\].")
|
||||
"Regexps for Headings. Used by [[ and ]].")
|
||||
|
||||
(defvar viper-heading-end
|
||||
(concat "^}\\|" ; C/C++
|
||||
@ -786,7 +786,7 @@ Related buffers can be cycled through via :R and :P commands."
|
||||
"^@end \\|" ; texinfo
|
||||
")\n\n[ \t\n]*\\|" ; lisp
|
||||
"\\.\\s-*$") ; prolog
|
||||
"*Regexps to end Headings/Sections. Used by \[\].")
|
||||
"*Regexps to end Headings/Sections. Used by [].")
|
||||
|
||||
|
||||
;; These two vars control the interaction of jumps performed by ' and `.
|
||||
|
||||
@ -327,8 +327,8 @@ Can be used in `viper-custom-file-name' to define permanent macros.
|
||||
MACRO-NAME is a string of characters or a vector of keys. STATE is
|
||||
either `vi-state' or `insert-state'. It specifies the Viper state in which to
|
||||
define the macro. MACRO-BODY is a string that represents the keyboard macro.
|
||||
Optional SCOPE says whether the macro should be global \(t\), mode-specific
|
||||
\(a major-mode symbol\), or buffer-specific \(buffer name, a string\).
|
||||
Optional SCOPE says whether the macro should be global \(t), mode-specific
|
||||
\(a major-mode symbol), or buffer-specific \(buffer name, a string).
|
||||
If SCOPE is nil, the user is asked to specify the scope."
|
||||
(let* (state-name keymap
|
||||
(macro-alist-var
|
||||
@ -894,7 +894,7 @@ mistakes in macro names to be passed to this function is to use
|
||||
(set-register reg last-kbd-macro))
|
||||
|
||||
(defun viper-register-macro (count)
|
||||
"Keyboard macros in registers - a modified \@ command."
|
||||
"Keyboard macros in registers - a modified @ command."
|
||||
(interactive "P")
|
||||
(let ((reg (downcase (read-char))))
|
||||
(cond ((or (and (<= ?a reg) (<= reg ?z)))
|
||||
|
||||
@ -145,7 +145,7 @@ If CLICK-COUNT is 2,then `word' is a Word in Vi sense.
|
||||
If the character clicked on is a non-separator and is non-alphanumeric but
|
||||
is adjacent to an alphanumeric symbol, then it is considered alphanumeric
|
||||
for the purpose of this command. If this character has a matching
|
||||
character, such as `\(' is a match for `\)', then the matching character is
|
||||
character, such as `(' is a match for `)', then the matching character is
|
||||
also considered alphanumeric.
|
||||
For convenience, in Lisp modes, `-' is considered alphanumeric.
|
||||
|
||||
@ -250,7 +250,7 @@ On single or double click, returns the word as determined by
|
||||
With prefix argument, N, insert that many words.
|
||||
This command must be bound to a mouse click.
|
||||
The double-click action of the same mouse button must not be bound
|
||||
\(or it must be bound to the same function\).
|
||||
\(or it must be bound to the same function).
|
||||
See `viper-surrounding-word' for the definition of a word in this case."
|
||||
(interactive "e\nP")
|
||||
(if viper-frame-of-focus ;; to handle clicks in another frame
|
||||
@ -339,7 +339,7 @@ See `viper-surrounding-word' for the definition of a word in this case."
|
||||
"Find the word clicked or double-clicked on. Word may be in another window.
|
||||
With prefix argument, N, search for N-th occurrence.
|
||||
This command must be bound to a mouse click. The double-click action of the
|
||||
same button must not be bound \(or it must be bound to the same function\).
|
||||
same button must not be bound \(or it must be bound to the same function).
|
||||
See `viper-surrounding-word' for the details on what constitutes a word for
|
||||
this command."
|
||||
(interactive "e\nP")
|
||||
|
||||
@ -379,7 +379,7 @@ Otherwise return the normal value."
|
||||
|
||||
;; Append LIS2 to LIS1, both alists, by side-effect and returns LIS1
|
||||
;; LIS2 is modified by filtering it: deleting its members of the form
|
||||
;; \(car elt\) such that (car elt') is in LIS1.
|
||||
;; (car elt) such that (car elt') is in LIS1.
|
||||
(defun viper-append-filter-alist (lis1 lis2)
|
||||
(let ((temp lis1)
|
||||
elt)
|
||||
@ -859,7 +859,7 @@ Otherwise return the normal value."
|
||||
|
||||
(defsubst viper-is-in-minibuffer ()
|
||||
(save-match-data
|
||||
(string-match "\*Minibuf-" (buffer-name))))
|
||||
(string-match "\\*Minibuf-" (buffer-name))))
|
||||
|
||||
|
||||
|
||||
@ -1330,7 +1330,7 @@ Works best when set in the hooks to various major modes.
|
||||
`strict-vi' means Viper words are (hopefully) exactly as in Vi.
|
||||
|
||||
`reformed-vi' means Viper words are like Emacs words \(as determined using
|
||||
Emacs syntax tables, which are different for different major modes\) with two
|
||||
Emacs syntax tables, which are different for different major modes) with two
|
||||
exceptions: the symbol `_' is always part of a word and typical Vi non-word
|
||||
symbols, such as `,',:,\",),{, etc., are excluded.
|
||||
This behaves very close to `strict-vi', but also works well with non-ASCII
|
||||
|
||||
@ -819,7 +819,7 @@ It also can't undo some Viper settings."
|
||||
;; fundamental
|
||||
(defun viper-major-mode-change-sentinel ()
|
||||
(save-match-data
|
||||
(or (string-match "\*Minibuf-" (buffer-name))
|
||||
(or (string-match "\\*Minibuf-" (buffer-name))
|
||||
(setq viper-new-major-mode-buffer-list
|
||||
(cons (current-buffer) viper-new-major-mode-buffer-list))))
|
||||
;; change the global value of hook
|
||||
|
||||
@ -2199,7 +2199,7 @@ The return value is an alist mapping from types to values."
|
||||
(if (eq index (string-match "[ \t\n\r]*" string index))
|
||||
(setq index (match-end 0)))
|
||||
(if (eq index (string-match
|
||||
"\\([0-9]+\\(\\.[0-9]+\\)*\\)\[ \t\n\r]*=[ \t\n\r]*"
|
||||
"\\([0-9]+\\(\\.[0-9]+\\)*\\)[ \t\n\r]*=[ \t\n\r]*"
|
||||
string index))
|
||||
(setq type (match-string 1 string)
|
||||
index (match-end 0))
|
||||
|
||||
@ -1541,7 +1541,7 @@ A server may send more than one 005 message."
|
||||
(while (erc-response.command-args parsed)
|
||||
(let ((section (pop (erc-response.command-args parsed))))
|
||||
;; fill erc-server-parameters
|
||||
(when (string-match "^\\([A-Z]+\\)\=\\(.*\\)$\\|^\\([A-Z]+\\)$"
|
||||
(when (string-match "^\\([A-Z]+\\)=\\(.*\\)$\\|^\\([A-Z]+\\)$"
|
||||
section)
|
||||
(add-to-list 'erc-server-parameters
|
||||
`(,(or (match-string 1 section)
|
||||
|
||||
@ -84,7 +84,7 @@ Useful to mark nicks from dangerous hosts."
|
||||
|
||||
(defcustom erc-current-nick-highlight-type 'keyword
|
||||
"Determines how to highlight text in which your current nickname appears
|
||||
\(does not apply to text sent by you\).
|
||||
\(does not apply to text sent by you).
|
||||
|
||||
The following values are allowed:
|
||||
|
||||
|
||||
@ -280,7 +280,7 @@ Example of use:
|
||||
"IDENTIFY" nil nil nil))
|
||||
"Alist of NickServer details, sorted by network.
|
||||
Every element in the list has the form
|
||||
\(SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)
|
||||
(SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)
|
||||
|
||||
SYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.
|
||||
NICKSERV is the description of the nickserv in the form nick!user@host.
|
||||
|
||||
@ -2973,7 +2973,7 @@ VERSION and so on. It is called with ARGS."
|
||||
If FUNC contains a valid function or variable, help about that
|
||||
will be displayed. If FUNC is empty, display an apropos about
|
||||
ERC commands. Otherwise, do `apropos' in the ERC namespace
|
||||
\(\"erc-.*LINE\"\).
|
||||
\(\"erc-.*LINE\").
|
||||
|
||||
Examples:
|
||||
To find out about erc and bbdb, do
|
||||
|
||||
@ -639,7 +639,7 @@ matched."
|
||||
;; `!'
|
||||
;; Start a history substitution, except when followed by a
|
||||
;; space, tab, the end of the line, = or (.
|
||||
(if (not (string-match "^![^ \t\n=\(]" reference))
|
||||
(if (not (string-match "^![^ \t\n=(]" reference))
|
||||
reference
|
||||
(setq eshell-history-index nil)
|
||||
(let ((event (eshell-hist-parse-event-designator reference)))
|
||||
|
||||
@ -47,7 +47,7 @@ properties to colorize its output based on the setting of
|
||||
(defcustom eshell-ls-date-format "%Y-%m-%d"
|
||||
"How to display time information in `eshell-ls-file'.
|
||||
This is passed to `format-time-string' as a format string.
|
||||
To display the date using the current locale, use \"%b \%e\"."
|
||||
To display the date using the current locale, use \"%b \ %e\"."
|
||||
:version "24.1"
|
||||
:type 'string)
|
||||
|
||||
|
||||
@ -517,7 +517,7 @@ Remove the DIRECTORY(ies), if they are empty.")
|
||||
:usage "[OPTION]... SOURCE DEST
|
||||
or: mv [OPTION]... SOURCE... DIRECTORY
|
||||
Rename SOURCE to DEST, or move SOURCE(s) to DIRECTORY.
|
||||
\[OPTION] DIRECTORY...")
|
||||
[OPTION] DIRECTORY...")
|
||||
(let ((no-dereference t))
|
||||
(eshell-mvcpln-template "mv" "moving" 'rename-file
|
||||
eshell-mv-interactive-query
|
||||
|
||||
@ -228,7 +228,7 @@ If N or M is nil, it means the end of the list."
|
||||
|
||||
(defvar eshell-path-env (getenv "PATH")
|
||||
"Content of $PATH.
|
||||
It might be different from \(getenv \"PATH\"\), when
|
||||
It might be different from \(getenv \"PATH\"), when
|
||||
`default-directory' points to a remote host.")
|
||||
(make-variable-buffer-local 'eshell-path-env)
|
||||
|
||||
|
||||
@ -213,7 +213,7 @@
|
||||
"for" ; foreach
|
||||
(concat
|
||||
"for ( )\n"
|
||||
"{\n\n\}"
|
||||
"{\n\n}"
|
||||
)
|
||||
(list 7 12))
|
||||
|
||||
@ -221,7 +221,7 @@
|
||||
"whi" ; foreach
|
||||
(concat
|
||||
"while ( )\n"
|
||||
"{\n\n\}"
|
||||
"{\n\n}"
|
||||
)
|
||||
(list 9 15))
|
||||
|
||||
@ -233,7 +233,7 @@
|
||||
"iff"
|
||||
(concat
|
||||
"if ( )\n"
|
||||
"{\n\n\}"
|
||||
"{\n\n}"
|
||||
)
|
||||
(list 6 12))
|
||||
|
||||
|
||||
@ -433,7 +433,7 @@ completely specified)."
|
||||
(defun face-attribute-merged-with (attribute value faces &optional frame)
|
||||
"Merges ATTRIBUTE, initially VALUE, with faces from FACES until absolute.
|
||||
FACES may be either a single face or a list of faces.
|
||||
\[This is an internal function.]"
|
||||
[This is an internal function.]"
|
||||
(cond ((not (face-attribute-relative-p attribute value))
|
||||
value)
|
||||
((null faces)
|
||||
|
||||
@ -43,7 +43,7 @@ A key in this hash table is the descriptor as returned from
|
||||
`gfilenotify', `inotify', `w32notify' or a file name handler.
|
||||
The value in the hash table is a list
|
||||
|
||||
\(DIR (FILE . CALLBACK) (FILE . CALLBACK) ...)
|
||||
(DIR (FILE . CALLBACK) (FILE . CALLBACK) ...)
|
||||
|
||||
Several values for a given DIR happen only for `inotify', when
|
||||
different files from the same directory are watched.")
|
||||
@ -54,7 +54,7 @@ different files from the same directory are watched.")
|
||||
"Handle file system monitoring event.
|
||||
If EVENT is a filewatch event, call its callback. It has the format
|
||||
|
||||
\(file-notify (DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]) CALLBACK)
|
||||
(file-notify (DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]) CALLBACK)
|
||||
|
||||
Otherwise, signal a `file-notify-error'."
|
||||
(interactive "e")
|
||||
|
||||
@ -1057,7 +1057,7 @@ Tip: You can use this expansion of remote identifier components
|
||||
to derive a new remote file name from an existing one. For
|
||||
example, if FILE is \"/sudo::/path/to/file\" then
|
||||
|
||||
\(concat \(file-remote-p FILE) \"/bin/sh\")
|
||||
(concat (file-remote-p FILE) \"/bin/sh\")
|
||||
|
||||
returns a remote file name for file \"/bin/sh\" that has the
|
||||
same remote identifier as FILE but expanded; a name such as
|
||||
@ -3863,7 +3863,7 @@ directories."
|
||||
However, the mode will not be changed if
|
||||
\(1) a local variables list or the `-*-' line specifies a major mode, or
|
||||
\(2) the current major mode is a \"special\" mode,
|
||||
\ not suitable for ordinary files, or
|
||||
not suitable for ordinary files, or
|
||||
\(3) the new file name does not particularly specify any mode."
|
||||
:type 'boolean
|
||||
:group 'editing-basics)
|
||||
|
||||
@ -415,10 +415,10 @@ at the last position.
|
||||
Possible uses: If you don't want to save `filesets-data' in your normal
|
||||
configuration file, you can add a something like this
|
||||
|
||||
\(lambda ()
|
||||
\(insert (format \"(setq-default filesets-data \\='%S)\"
|
||||
(lambda ()
|
||||
(insert (format \"(setq-default filesets-data \\='%S)\"
|
||||
filesets-data))
|
||||
\(newline 2))
|
||||
(newline 2))
|
||||
|
||||
to this hook.
|
||||
|
||||
@ -550,14 +550,14 @@ will be recursively added to the menu. `filesets-tree-max-level' tells up
|
||||
to which level the directory structure should be scanned/listed,
|
||||
i.e. how deep the menu should be. Try something like
|
||||
|
||||
\(\"HOME -- only one level\"
|
||||
\(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
\(:tree-max-level 1)
|
||||
\(:filter-dirs-flag t))
|
||||
\(\"HOME -- up to 3 levels\"
|
||||
\(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
\(:tree-max-level 3)
|
||||
\(:filter-dirs-flag t))
|
||||
(\"HOME -- only one level\"
|
||||
(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
(:tree-max-level 1)
|
||||
(:filter-dirs-flag t))
|
||||
(\"HOME -- up to 3 levels\"
|
||||
(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
(:tree-max-level 3)
|
||||
(:filter-dirs-flag t))
|
||||
|
||||
and it should become clear what this option is about. In any case,
|
||||
including directory trees to the menu can take a lot of memory."
|
||||
@ -679,20 +679,20 @@ variables my-ps-viewer, my-pdf-viewer, my-dvi-viewer, my-pic-viewer.
|
||||
In order to view pdf or rtf files in an Emacs buffer, you could use these:
|
||||
|
||||
|
||||
\(\"^.+\\\\.pdf\\\\\\='\" \"pdftotext\"
|
||||
\((:capture-output t)
|
||||
\(:args (\"%S - | fmt -w \" window-width))
|
||||
\(:ignore-on-read-text t)
|
||||
\(:constraintp (lambda ()
|
||||
\(and \(filesets-which-command-p \"pdftotext\")
|
||||
\(filesets-which-command-p \"fmt\"))))))
|
||||
\(\"^.+\\\\.rtf\\\\\\='\" \"rtf2htm\"
|
||||
\((:capture-output t)
|
||||
\(:args (\"%S 2> /dev/null | w3m -dump -T text/html\"))
|
||||
\(:ignore-on-read-text t)
|
||||
\(:constraintp (lambda ()
|
||||
\(and (filesets-which-command-p \"rtf2htm\")
|
||||
\(filesets-which-command-p \"w3m\"))))))"
|
||||
(\"^.+\\\\.pdf\\\\\\='\" \"pdftotext\"
|
||||
((:capture-output t)
|
||||
(:args (\"%S - | fmt -w \" window-width))
|
||||
(:ignore-on-read-text t)
|
||||
(:constraintp (lambda ()
|
||||
(and (filesets-which-command-p \"pdftotext\")
|
||||
(filesets-which-command-p \"fmt\"))))))
|
||||
(\"^.+\\\\.rtf\\\\\\='\" \"rtf2htm\"
|
||||
((:capture-output t)
|
||||
(:args (\"%S 2> /dev/null | w3m -dump -T text/html\"))
|
||||
(:ignore-on-read-text t)
|
||||
(:constraintp (lambda ()
|
||||
(and (filesets-which-command-p \"rtf2htm\")
|
||||
(filesets-which-command-p \"w3m\"))))))"
|
||||
:set (function filesets-set-default)
|
||||
:type '(repeat :tag "Viewer"
|
||||
(list :tag "Definition"
|
||||
@ -756,7 +756,7 @@ In order to view pdf or rtf files in an Emacs buffer, you could use these:
|
||||
(defcustom filesets-ingroup-patterns
|
||||
'(("^.+\\.tex$" t
|
||||
(((:name "Package")
|
||||
(:pattern "\\\\usepackage\\W*\\(\\[[^\]]*\\]\\W*\\)?{\\W*\\(.+\\)\\W*}")
|
||||
(:pattern "\\\\usepackage\\W*\\(\\[[^]]*\\]\\W*\\)?{\\W*\\(.+\\)\\W*}")
|
||||
(:match-number 2)
|
||||
(:stub-flag t)
|
||||
(:get-file-name (lambda (master file)
|
||||
@ -951,18 +951,18 @@ variable will take effect after rebuilding the menu.
|
||||
Caveat: Fileset names have to be unique.
|
||||
|
||||
Example definition:
|
||||
\\='\(\(\"My Wiki\"
|
||||
\(:ingroup \"~/Etc/My-Wiki/WikiContents\"))
|
||||
\(\"My Homepage\"
|
||||
\(:pattern \"~/public_html/\" \"^.+\\\\.html$\")
|
||||
\(:open filesets-find-file))
|
||||
\(\"User Configuration\"
|
||||
\(:files \"~/.xinitrc\"
|
||||
\\='((\"My Wiki\"
|
||||
(:ingroup \"~/Etc/My-Wiki/WikiContents\"))
|
||||
(\"My Homepage\"
|
||||
(:pattern \"~/public_html/\" \"^.+\\\\.html$\")
|
||||
(:open filesets-find-file))
|
||||
(\"User Configuration\"
|
||||
(:files \"~/.xinitrc\"
|
||||
\"~/.bashrc\"
|
||||
\"~/.bash_profile\"))
|
||||
\(\"HOME\"
|
||||
\(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
\(:filter-dirs-flag t)))
|
||||
(\"HOME\"
|
||||
(:tree \"~\" \"^[^.].*[^~]$\")
|
||||
(:filter-dirs-flag t)))
|
||||
|
||||
`filesets-data' is a list of (NAME-AS-STRING . DEFINITION), DEFINITION
|
||||
being an association list with the fields:
|
||||
@ -2450,13 +2450,13 @@ and edit your startup file as shown below:
|
||||
1. `filesets-data': Edit all :pattern filesets in your startup file and
|
||||
transform all entries as shown in this example:
|
||||
|
||||
\(\"Test\" (:pattern \"~/dir/^pattern$\"))
|
||||
--> \(\"Test\" (:pattern \"~/dir/\" \"^pattern$\"))
|
||||
(\"Test\" (:pattern \"~/dir/^pattern$\"))
|
||||
--> (\"Test\" (:pattern \"~/dir/\" \"^pattern$\"))
|
||||
|
||||
2. `filesets-data': Change all occurrences of \":document\" to \":ingroup\":
|
||||
|
||||
\(\(\"Test\" \(:document \"~/dir/file\"))
|
||||
--> \(\(\"Test\" \(:ingroup \"~/dir/file\"))
|
||||
((\"Test\" (:document \"~/dir/file\"))
|
||||
--> ((\"Test\" (:ingroup \"~/dir/file\"))
|
||||
|
||||
3. `filesets-subdocument-patterns': If you already modified the variable
|
||||
previously called `filesets-subdocument-patterns', change its name to
|
||||
|
||||
@ -140,10 +140,10 @@ the string will be quoted).")
|
||||
"Initiate the building of a find command.
|
||||
For example:
|
||||
|
||||
\(find-cmd \\='\(prune \(name \".svn\" \".git\" \".CVS\"\)\)
|
||||
\\='\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\)
|
||||
\(mtime \"+1\"\)\)
|
||||
\(fstype \"nfs\" \"ufs\"\)\)\)\)
|
||||
\(find-cmd \\='(prune (name \".svn\" \".git\" \".CVS\"))
|
||||
\\='(and (or (name \"*.pl\" \"*.pm\" \"*.t\")
|
||||
(mtime \"+1\"))
|
||||
(fstype \"nfs\" \"ufs\"))))
|
||||
|
||||
`default-directory' is used as the initial search path. The
|
||||
result is a string that should be ready for the command line."
|
||||
@ -159,9 +159,9 @@ result is a string that should be ready for the command line."
|
||||
|
||||
(defun find-and (form)
|
||||
"And FORMs together, so:
|
||||
\(and \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
(and (mtime \"+1\") (name \"something\"))
|
||||
will produce:
|
||||
find . \\\( -mtime +1 -and -name something \\\)"
|
||||
find . \\( -mtime +1 -and -name something \\)"
|
||||
(if (< (length form) 2)
|
||||
(find-to-string (car form))
|
||||
(concat "\\( "
|
||||
@ -170,9 +170,9 @@ will produce:
|
||||
|
||||
(defun find-or (form)
|
||||
"Or FORMs together, so:
|
||||
\(or \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
(or (mtime \"+1\") (name \"something\"))
|
||||
will produce:
|
||||
find . \\\( -mtime +1 -or -name something \\\)"
|
||||
find . \\( -mtime +1 -or -name something \\)"
|
||||
(if (< (length form) 2)
|
||||
(find-to-string (car form))
|
||||
(concat "\\( "
|
||||
@ -181,21 +181,21 @@ will produce:
|
||||
|
||||
(defun find-not (form)
|
||||
"Or FORMs together and prefix with a -not, so:
|
||||
\(not \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
(not (mtime \"+1\") (name \"something\"))
|
||||
will produce:
|
||||
-not \\\( -mtime +1 -or -name something \\\)
|
||||
-not \\( -mtime +1 -or -name something \\)
|
||||
If you wanted the FORMs -and(ed) together instead then this would
|
||||
suffice:
|
||||
\(not \(and \(mtime \"+1\"\) \(name \"something\"\)\)\)"
|
||||
(not (and (mtime \"+1\") (name \"something\")))"
|
||||
(concat "-not " (find-or (mapcar #'find-to-string form))))
|
||||
|
||||
(defun find-prune (form)
|
||||
"-or together FORMs postfix `-prune' and then -or that with a
|
||||
-true, so:
|
||||
\(\(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)\)
|
||||
((prune (name \".svn\" \".git\")) (name \"*.pm\"))
|
||||
will produce (unwrapped):
|
||||
\\\( \\\( \\\( -name .svn -or -name .git \\\) /
|
||||
-prune -or -true \\\) -and -name *.pm \\\)"
|
||||
\\( \\( \\( -name .svn -or -name .git \\) /
|
||||
-prune -or -true \\) -and -name *.pm \\)"
|
||||
(find-or
|
||||
(list
|
||||
(concat (find-or (mapcar #'find-to-string form)) (find-generic "prune"))
|
||||
|
||||
@ -72,10 +72,10 @@ a file listing in the desired format. LS-SWITCHES is a set of
|
||||
|
||||
The two options must be set to compatible values.
|
||||
For example, to use human-readable file sizes with GNU ls:
|
||||
\(\"-exec ls -ldh {} +\" . \"-ldh\")
|
||||
(\"-exec ls -ldh {} +\" . \"-ldh\")
|
||||
|
||||
To use GNU find's inbuilt \"-ls\" option to list files:
|
||||
\(\"-ls\" . \"-dilsb\")
|
||||
(\"-ls\" . \"-dilsb\")
|
||||
since GNU find's output has the same format as using GNU ls with
|
||||
the options \"-dilsb\"."
|
||||
:version "24.1" ; add tests for -ls and -exec + support
|
||||
|
||||
@ -183,7 +183,7 @@ To override this, give an argument to `ff-find-other-file'."
|
||||
;;;###autoload
|
||||
(defcustom ff-special-constructs
|
||||
;; C/C++ include, for NeXTstep too
|
||||
`((,(purecopy "^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") .
|
||||
`((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") .
|
||||
(lambda ()
|
||||
(buffer-substring (match-beginning 2) (match-end 2)))))
|
||||
;; We include `ff-treat-as-special' documentation here so that autoload
|
||||
@ -678,7 +678,7 @@ name of the first file found."
|
||||
(setq suffixes suffix-list)
|
||||
|
||||
;; if dir does not contain '/*', look for the file
|
||||
(if (and dir (not (string-match "\\([^*]*\\)/\\\*\\(/.*\\)*" dir)))
|
||||
(if (and dir (not (string-match "\\([^*]*\\)/\\*\\(/.*\\)*" dir)))
|
||||
(progn
|
||||
|
||||
;; suffixes is nil => fname-stub is the file we are looking for
|
||||
|
||||
@ -250,7 +250,7 @@ An end marker of nil means the fold ends after (point-max).")
|
||||
"Open the subtree under the current heading and narrow to it.
|
||||
|
||||
Normally the body and the immediate subheadings are exposed, but
|
||||
optional arg EXPOSURE \(interactively with prefix arg\) changes this:-
|
||||
optional arg EXPOSURE \(interactively with prefix arg) changes this:-
|
||||
|
||||
EXPOSURE > 0 exposes n levels of subheadings (c.f. show-children)
|
||||
EXPOSURE < 0 exposes only the body
|
||||
|
||||
@ -619,7 +619,7 @@ the rest of the arguments are any PARAMETERs found in that region.
|
||||
Any annotations that are found by NEXT-FN but not defined by TRANSLATIONS
|
||||
are saved as values of the `unknown' text-property \(which is list-valued).
|
||||
The TRANSLATIONS list should usually contain an entry of the form
|
||||
\(unknown \(nil format-annotate-value))
|
||||
(unknown (nil format-annotate-value))
|
||||
to write these unknown annotations back into the file."
|
||||
(save-excursion
|
||||
(save-restriction
|
||||
@ -839,7 +839,7 @@ the first character in the buffer)."
|
||||
(setq l (cdr l)))))
|
||||
|
||||
(defun format-annotate-value (old new)
|
||||
"Return OLD and NEW as a \(CLOSE . OPEN) annotation pair.
|
||||
"Return OLD and NEW as a (CLOSE . OPEN) annotation pair.
|
||||
Useful as a default function for TRANSLATIONS alist when the value of the text
|
||||
property is the name of the annotation that you want to use, as it is for the
|
||||
`unknown' text property."
|
||||
|
||||
@ -1557,20 +1557,20 @@ You'll get back all the properties of the token as a plist.
|
||||
Here's an example that looks for the first item in the `Login'
|
||||
Secrets collection:
|
||||
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1)
|
||||
|
||||
Here's another that looks for the first item in the `Login'
|
||||
Secrets collection whose label contains `gnus':
|
||||
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1 :label \"gnus\")
|
||||
|
||||
And this one looks for the first item in the `Login' Secrets
|
||||
collection that's a Google Chrome entry for the git.gnus.org site
|
||||
authentication tokens:
|
||||
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\"))
|
||||
"
|
||||
|
||||
@ -1691,19 +1691,19 @@ field), :user maps to \"-a USER\", and :port maps to \"-s PORT\".
|
||||
Here's an example that looks for the first item in the default
|
||||
generic MacOS Keychain:
|
||||
|
||||
\(let ((auth-sources \\='(macos-keychain-generic)))
|
||||
(let ((auth-sources \\='(macos-keychain-generic)))
|
||||
(auth-source-search :max 1)
|
||||
|
||||
Here's another that looks for the first item in the internet
|
||||
MacOS Keychain collection whose label is `gnus':
|
||||
|
||||
\(let ((auth-sources \\='(macos-keychain-internet)))
|
||||
(let ((auth-sources \\='(macos-keychain-internet)))
|
||||
(auth-source-search :max 1 :label \"gnus\")
|
||||
|
||||
And this one looks for the first item in the internet keychain
|
||||
entries for git.gnus.org:
|
||||
|
||||
\(let ((auth-sources \\='(macos-keychain-internet\")))
|
||||
(let ((auth-sources \\='(macos-keychain-internet\")))
|
||||
(auth-source-search :max 1 :host \"git.gnus.org\"))
|
||||
"
|
||||
;; TODO
|
||||
|
||||
@ -5516,7 +5516,7 @@ If no internal viewer is available, use an external viewer."
|
||||
(mm-display-part handle nil t))))))
|
||||
|
||||
(defun gnus-mime-action-on-part (&optional action)
|
||||
"Do something with the MIME attachment at \(point\)."
|
||||
"Do something with the MIME attachment at (point)."
|
||||
(interactive
|
||||
(list (gnus-completing-read "Action" (mapcar 'car gnus-mime-action-alist) t)))
|
||||
(gnus-article-check-buffer)
|
||||
@ -5992,7 +5992,7 @@ If t, it overrides nil values of
|
||||
"Display \"multipart/related\" parts as \"multipart/mixed\".
|
||||
|
||||
If displaying \"text/html\" is discouraged \(see
|
||||
`mm-discouraged-alternatives'\) images or other material inside a
|
||||
`mm-discouraged-alternatives') images or other material inside a
|
||||
\"multipart/related\" part might be overlooked when this variable is nil."
|
||||
:version "22.1"
|
||||
:group 'gnus-article-mime
|
||||
@ -7545,7 +7545,7 @@ must return `mid', `mail', `invalid' or `ask'."
|
||||
(10.0 . "^[^0-9]+@")
|
||||
(3.0 . "^[^0-9]+[0-9][0-9]?[0-9]?@")
|
||||
;; ^[^0-9]+[0-9]{1,3}\@ digits only at end of local part
|
||||
(3.0 . "\@stud")
|
||||
(3.0 . "@stud")
|
||||
;;
|
||||
(2.0 . "[a-z][a-z][._-][A-Z][a-z].*@")
|
||||
;;
|
||||
@ -7553,7 +7553,7 @@ must return `mid', `mail', `invalid' or `ask'."
|
||||
(0.5 . "^[A-Z][a-z][a-z]")
|
||||
(1.5 . "^[A-Z][a-z][A-Z][a-z][^a-z]") ;; ^[A-Z][a-z]{3,3}
|
||||
(2.0 . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]")) ;; ^[A-Z][a-z]{4,4}
|
||||
"An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
|
||||
"An alist of (RATE . REGEXP) pairs for `gnus-button-mid-or-mail-heuristic'.
|
||||
|
||||
A negative RATE indicates a message IDs, whereas a positive indicates a mail
|
||||
address. The REGEXP is processed with `case-fold-search' set to nil."
|
||||
@ -7612,9 +7612,9 @@ address, `ask' if unsure and `invalid' if the string is invalid."
|
||||
(gnus-message
|
||||
9 "Many digits in `%s', rate `%s', result `%s'."
|
||||
mid-or-mail rate result))
|
||||
((string-match "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*\@"
|
||||
((string-match "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*@"
|
||||
mid-or-mail)
|
||||
;; Too few vowels [^aeiouy]{4,}.*\@
|
||||
;; Too few vowels [^aeiouy]{4,}.*@
|
||||
(setq result (+ result -5.0))
|
||||
(gnus-message
|
||||
9 "Few vowels in `%s', rate `%s', result `%s'."
|
||||
@ -8113,7 +8113,7 @@ url is put as the `gnus-button-url' overlay property on the button."
|
||||
(< (match-end 0) start))
|
||||
(regexp-quote (match-string 0)))
|
||||
"\
|
||||
\[\t ]*\\(?:\\([^\t\n \">]+\\)[\t ]*$\\|\\([^\t\n \">]*\\)[\t ]*"
|
||||
[\t ]*\\(?:\\([^\t\n \">]+\\)[\t ]*$\\|\\([^\t\n \">]*\\)[\t ]*"
|
||||
delim "\\)"))
|
||||
(while (progn
|
||||
(forward-line 1)
|
||||
|
||||
@ -101,7 +101,7 @@ List of details is defined in `gnus-bookmark-bookmark-inline-details'.
|
||||
This may result in truncated bookmark names. To disable this, put the
|
||||
following in your `.emacs' file:
|
||||
|
||||
\(setq gnus-bookmark-bmenu-toggle-infos nil\)"
|
||||
\(setq gnus-bookmark-bmenu-toggle-infos nil)"
|
||||
:type 'boolean
|
||||
:group 'gnus-bookmark)
|
||||
|
||||
@ -118,7 +118,7 @@ You can toggle whether details are shown with \\<gnus-bookmark-bmenu-mode-map>\\
|
||||
|
||||
(defcustom gnus-bookmark-bookmark-inline-details '(author)
|
||||
"Details to be shown with `gnus-bookmark-bmenu-toggle-infos'.
|
||||
The default value is \(subject\)."
|
||||
The default value is \(subject)."
|
||||
:type '(list :tag "Gnus bookmark details"
|
||||
(set :inline t
|
||||
(const :tag "Author" author)
|
||||
@ -131,7 +131,7 @@ The default value is \(subject\)."
|
||||
(defcustom gnus-bookmark-bookmark-details
|
||||
'(author subject date group annotation)
|
||||
"Details to be shown with `gnus-bookmark-bmenu-show-details'.
|
||||
The default value is \(author subject date group annotation\)."
|
||||
The default value is \(author subject date group annotation)."
|
||||
:type '(list :tag "Gnus bookmark details"
|
||||
(set :inline t
|
||||
(const :tag "Author" author)
|
||||
@ -160,17 +160,17 @@ You should never need to change this.")
|
||||
"Association list of Gnus bookmarks and their records.
|
||||
The format of the alist is
|
||||
|
||||
\(BMK1 BMK2 ...\)
|
||||
(BMK1 BMK2 ...)
|
||||
|
||||
where each BMK is of the form
|
||||
|
||||
\(NAME
|
||||
\(group . GROUP\)
|
||||
\(message-id . MESSAGE-ID\)
|
||||
\(author . AUTHOR\)
|
||||
\(date . DATE\)
|
||||
\(subject . SUBJECT\)
|
||||
\(annotation . ANNOTATION\)\)
|
||||
(group . GROUP)
|
||||
(message-id . MESSAGE-ID)
|
||||
(author . AUTHOR)
|
||||
(date . DATE)
|
||||
(subject . SUBJECT)
|
||||
(annotation . ANNOTATION))
|
||||
|
||||
So the cdr of each bookmark is an alist too.")
|
||||
|
||||
@ -432,7 +432,7 @@ That is, all information but the name."
|
||||
(car (cdr (gnus-bookmark-get-bookmark bookmark))))
|
||||
|
||||
(defun gnus-bookmark-name-from-full-record (full-record)
|
||||
"Return name of FULL-RECORD \(an alist element instead of a string\)."
|
||||
"Return name of FULL-RECORD (an alist element instead of a string)."
|
||||
(car full-record))
|
||||
|
||||
(defvar gnus-bookmark-bmenu-bookmark-column nil)
|
||||
@ -484,7 +484,7 @@ Gnus bookmarks names preceded by a \"*\" have annotations.
|
||||
Also show bookmarks marked using m in other windows.
|
||||
\\[gnus-bookmark-bmenu-toggle-infos] -- toggle displaying of details (they may obscure long bookmark names).
|
||||
\\[gnus-bookmark-bmenu-locate] -- display (in minibuffer) location of this bookmark.
|
||||
\\[gnus-bookmark-bmenu-rename] -- rename this bookmark \(prompts for new name\).
|
||||
\\[gnus-bookmark-bmenu-rename] -- rename this bookmark (prompts for new name).
|
||||
\\[gnus-bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down.
|
||||
\\[gnus-bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up.
|
||||
\\[gnus-bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\\[gnus-bookmark-bmenu-delete]'.
|
||||
@ -806,7 +806,7 @@ command."
|
||||
Removes only the first instance of a bookmark with that name. If
|
||||
there are one or more other bookmarks with the same name, they will
|
||||
not be deleted. Defaults to the \"current\" bookmark \(that is, the
|
||||
one most recently used in this file, if any\).
|
||||
one most recently used in this file, if any).
|
||||
Optional second arg BATCH means don't update the bookmark list buffer,
|
||||
probably because we were called from there."
|
||||
(gnus-bookmark-maybe-load-default-file)
|
||||
|
||||
@ -436,7 +436,7 @@ to the groups in this topic, then edit the value to suit your taste."
|
||||
:greedy t
|
||||
:tag "Agent Parameters"
|
||||
:format "%t:\n%h%v"
|
||||
:doc "\ These agent parameters are
|
||||
:doc "These agent parameters are
|
||||
recognized by Gnus. They control article selection and expiration for
|
||||
use in the unplugged cache. Check the [ ] for the parameters you want
|
||||
to apply to this group or to the groups in this topic, then edit the
|
||||
|
||||
@ -155,7 +155,7 @@ list."
|
||||
(function-item gnus-group-sort-by-rank)
|
||||
(function :tag "other" nil))))
|
||||
|
||||
(defcustom gnus-group-line-format "%M\%S\%p\%P\%5y:%B%(%g%)\n"
|
||||
(defcustom gnus-group-line-format "%M\ %S\ %p\ %P\ %5y:%B%(%g%)\n"
|
||||
"*Format of group lines.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions.
|
||||
@ -213,7 +213,7 @@ See Info node `(gnus)Formatting Variables'."
|
||||
:group 'gnus-group-visual
|
||||
:type 'string)
|
||||
|
||||
(defcustom gnus-group-mode-line-format "Gnus: %%b {%M\%:%S}"
|
||||
(defcustom gnus-group-mode-line-format "Gnus: %%b {%M\ %:%S}"
|
||||
"*The format specification for the group mode line.
|
||||
It works along the same lines as a normal formatting string,
|
||||
with some simple extensions:
|
||||
@ -445,7 +445,7 @@ If non-nil, the value should be a string or an alist. If it is a string,
|
||||
e.g. \"nnml:\", in which case `gnus-group-jump-to-group' offers \"Group:
|
||||
nnml:\" in the minibuffer prompt.
|
||||
|
||||
If it is an alist, it must consist of \(NUMBER . PROMPT\) pairs, for example:
|
||||
If it is an alist, it must consist of \(NUMBER . PROMPT) pairs, for example:
|
||||
\((1 . \"\") (2 . \"nnfolder+archive:\")). The element with number 0 is
|
||||
used when no prefix argument is given to `gnus-group-jump-to-group'."
|
||||
:version "22.1"
|
||||
@ -2174,7 +2174,7 @@ be permanent."
|
||||
(gnus-group-decoded-name group)))
|
||||
(let ((regexp "[][\C-@-\t\v-*,/:-@\\^`{-\C-?]*\
|
||||
\\(nn[a-z]+\\(?:\\+[^][\C-@-*,/:-@\\^`{-\C-?]+\\)?:\
|
||||
\[^][\C-@-*,./:-@\\^`{-\C-?]+\\(?:\\.[^][\C-@-*,./:-@\\^`{-\C-?]+\\)*\
|
||||
[^][\C-@-*,./:-@\\^`{-\C-?]+\\(?:\\.[^][\C-@-*,./:-@\\^`{-\C-?]+\\)*\
|
||||
\\|[^][\C-@-*,./:-@\\^`{-\C-?]+\\(?:\\.[^][\C-@-*,./:-@\\^`{-\C-?]+\\)+\\)")
|
||||
(start (point))
|
||||
(case-fold-search nil))
|
||||
|
||||
@ -100,7 +100,7 @@ See `gnus-group-split-fancy' for more information.
|
||||
"Uses information from group parameters in order to split mail.
|
||||
It can be embedded into `nnmail-split-fancy' lists with the SPLIT
|
||||
|
||||
\(: gnus-group-split-fancy GROUPS NO-CROSSPOST CATCH-ALL\)
|
||||
\(: gnus-group-split-fancy GROUPS NO-CROSSPOST CATCH-ALL)
|
||||
|
||||
GROUPS may be a regular expression or a list of group names, that will
|
||||
be used to select candidate groups. If it is omitted or nil, all
|
||||
|
||||
@ -251,7 +251,7 @@ In order to prevent constant pruning, we prune back to a number
|
||||
somewhat less than the maximum size. This option controls
|
||||
exactly how much less. For example, given a maximum size of
|
||||
50000 and a prune factor of 0.1, the pruning process will try to
|
||||
cut the registry back to \(- 50000 \(* 50000 0.1\)\) -> 45000
|
||||
cut the registry back to \(- 50000 \(* 50000 0.1)) -> 45000
|
||||
entries. The pruning process is constrained by the presence of
|
||||
\"precious\" entries."
|
||||
:version "25.1"
|
||||
|
||||
@ -62,7 +62,7 @@
|
||||
:group 'gnus-summary-pick)
|
||||
|
||||
(defcustom gnus-summary-pick-line-format
|
||||
"%-5P %U\%R\%z\%I\%(%[%4L: %-23,23n%]%) %s\n"
|
||||
"%-5P %U\ %R\ %z\ %I\ %(%[%4L: %-23,23n%]%) %s\n"
|
||||
"*The format specification of the lines in pick buffers.
|
||||
It accepts the same format specs that `gnus-summary-line-format' does."
|
||||
:type 'string
|
||||
|
||||
@ -80,7 +80,7 @@ formatting characters are recognized:
|
||||
(defun gnus-sieve-update ()
|
||||
"Update the Sieve script in gnus-sieve-file, by replacing the region
|
||||
between gnus-sieve-region-start and gnus-sieve-region-end with
|
||||
\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost\), then
|
||||
\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost), then
|
||||
execute gnus-sieve-update-shell-command.
|
||||
See the documentation for these variables and functions for details."
|
||||
(interactive)
|
||||
@ -97,7 +97,7 @@ See the documentation for these variables and functions for details."
|
||||
(defun gnus-sieve-generate ()
|
||||
"Generate the Sieve script in gnus-sieve-file, by replacing the region
|
||||
between gnus-sieve-region-start and gnus-sieve-region-end with
|
||||
\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost\).
|
||||
\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost).
|
||||
See the documentation for these variables and functions for details."
|
||||
(interactive)
|
||||
(require 'sieve)
|
||||
@ -195,9 +195,9 @@ For example:
|
||||
|
||||
(defun gnus-sieve-script (&optional method crosspost)
|
||||
"Generate a Sieve script based on groups with select method METHOD
|
||||
\(or all groups if nil\). Only groups having a `sieve' parameter are
|
||||
\(or all groups if nil). Only groups having a `sieve' parameter are
|
||||
considered. This parameter should contain an elisp test
|
||||
\(see the documentation of gnus-sieve-test for details\). For each
|
||||
\(see the documentation of gnus-sieve-test for details). For each
|
||||
such group, a Sieve IF control structure is generated, having the
|
||||
test as the condition and { fileinto \"group.name\"; } as the body.
|
||||
|
||||
|
||||
@ -1486,7 +1486,7 @@ sure of changing the value of `foo'."
|
||||
(defvar gnus-directory-sep-char-regexp "/"
|
||||
"The regexp of directory separator character.
|
||||
If you find some problem with the directory separator character, try
|
||||
\"[/\\\\\]\" for some systems.")
|
||||
\"[/\\\\]\" for some systems.")
|
||||
|
||||
(defun gnus-url-unhex (x)
|
||||
(if (> x ?9)
|
||||
|
||||
@ -1361,7 +1361,7 @@ group (or nil) as a parameter.
|
||||
If you want to save your mail in one group and the news articles you
|
||||
write in another group, you could say something like:
|
||||
|
||||
\(setq gnus-message-archive-group
|
||||
(setq gnus-message-archive-group
|
||||
\\='((if (message-news-p)
|
||||
\"misc-news\"
|
||||
\"misc-mail\")))
|
||||
@ -2517,10 +2517,10 @@ This should be an alist for Emacs, or a plist for XEmacs."
|
||||
"Which information should be exposed in the User-Agent header.
|
||||
|
||||
Can be a list of symbols or a string. Valid symbols are `gnus'
|
||||
\(show Gnus version\) and `emacs' \(show Emacs version\). In
|
||||
\(show Gnus version) and `emacs' \(show Emacs version). In
|
||||
addition to the Emacs version, you can add `codename' \(show
|
||||
\(S\)XEmacs codename\) or either `config' \(show system
|
||||
configuration\) or `type' \(show system type\). If you set it to
|
||||
\(S)XEmacs codename) or either `config' \(show system
|
||||
configuration) or `type' \(show system type). If you set it to
|
||||
a string, be sure to use a valid format, see RFC 2616."
|
||||
|
||||
:version "22.1"
|
||||
|
||||
@ -367,7 +367,7 @@ few false positives here."
|
||||
|
||||
(defcustom message-archive-header "X-No-Archive: Yes\n"
|
||||
"Header to insert when you don't want your article to be archived.
|
||||
Archives \(such as groups.google.com\) respect this header."
|
||||
Archives \(such as groups.google.com) respect this header."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:link '(custom-manual "(message)Header Commands")
|
||||
@ -1200,7 +1200,7 @@ If stringp, use this; if non-nil, use no host name (user name only)."
|
||||
(defvar message-reply-headers nil
|
||||
"The headers of the current replied article.
|
||||
It is a vector of the following headers:
|
||||
\[number subject from date id references chars lines xref extra].")
|
||||
[number subject from date id references chars lines xref extra].")
|
||||
(defvar message-newsreader nil)
|
||||
(defvar message-mailer nil)
|
||||
(defvar message-sent-message-via nil)
|
||||
@ -1303,7 +1303,7 @@ actually occur."
|
||||
"Alist of ways to send outgoing messages.
|
||||
Each element has the form
|
||||
|
||||
\(TYPE PREDICATE FUNCTION)
|
||||
(TYPE PREDICATE FUNCTION)
|
||||
|
||||
where TYPE is a symbol that names the method; PREDICATE is a function
|
||||
called without any parameters to determine whether the message is
|
||||
|
||||
@ -1419,7 +1419,7 @@ Return t if meta tag is added or replaced."
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "\
|
||||
<meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\
|
||||
text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\([^\"'>]+\\)\\)?[^>]*>" nil t)
|
||||
text/\\(\\sw+\\)\\(?:;\\s-*charset=\\([^\"'>]+\\)\\)?[^>]*>" nil t)
|
||||
(if (and (not force-charset)
|
||||
(match-beginning 2)
|
||||
(string-match "\\`html\\'" (match-string 1)))
|
||||
|
||||
@ -742,7 +742,7 @@ from the document.")
|
||||
nil t)
|
||||
(setq subject (concat (match-string 1) subject))
|
||||
(setq from (concat (match-string 2) " " from))))))
|
||||
(while (and from (string-match "(\[^)\]*)" from))
|
||||
(while (and from (string-match "([^)]*)" from))
|
||||
(setq from (replace-match "" t t from)))
|
||||
(insert "From: " (or from "unknown")
|
||||
"\nSubject: " (or subject "(no subject)") "\n")
|
||||
|
||||
@ -66,7 +66,7 @@ they will keep on jabbering all the time."
|
||||
"*Max length of the head of articles.
|
||||
|
||||
Value is an integer, nil, or t. nil means read in chunks of a file
|
||||
indefinitely until a complete head is found\; t means always read the
|
||||
indefinitely until a complete head is found; t means always read the
|
||||
entire file immediately, disregarding `nnheader-head-chop-length'.
|
||||
|
||||
Integer values will in effect be rounded up to the nearest multiple of
|
||||
|
||||
@ -112,7 +112,7 @@
|
||||
:initform 0.1
|
||||
:type float
|
||||
:custom float
|
||||
:documentation "Prune to \(:max-size * :prune-factor\) less
|
||||
:documentation "Prune to (:max-size * :prune-factor) less
|
||||
than the :max-size limit. Should be a float between 0 and 1.")
|
||||
(tracked :initarg :tracked
|
||||
:initform nil
|
||||
@ -331,7 +331,7 @@ Errors out if the key exists already."
|
||||
"Prunes the registry-db object DB.
|
||||
|
||||
Attempts to prune the number of entries down to \(*
|
||||
:max-size :prune-factor\) less than the max-size limit, so
|
||||
:max-size :prune-factor) less than the max-size limit, so
|
||||
pruning doesn't need to happen on every save. Removes only
|
||||
entries without the :precious keys, so it may not be possible to
|
||||
reach the target limit.
|
||||
|
||||
@ -46,11 +46,11 @@
|
||||
|
||||
(defvar rfc1843-hzp-word-regexp
|
||||
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
|
||||
\[<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
|
||||
[<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
|
||||
|
||||
(defvar rfc1843-hzp-word-regexp-strictly
|
||||
"~\\({\\([\041-\167][\041-\176]\\)+\\|\
|
||||
\[<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
|
||||
[<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
|
||||
|
||||
(defcustom rfc1843-decode-loosely nil
|
||||
"Loosely check HZ encoding if non-nil.
|
||||
|
||||
@ -102,7 +102,7 @@ quoted-printable and base64 respectively.")
|
||||
|
||||
(eval-and-compile ;; Necessary to hard code them in `rfc2047-decode-region'.
|
||||
(defconst rfc2047-encoded-word-regexp
|
||||
"=\\?\\([^][\000-\040()<>@,\;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\
|
||||
"=\\?\\([^][\000-\040()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\
|
||||
\\(B\\?[+/0-9A-Za-z]*=*\
|
||||
\\|Q\\?[ ->@-~]*\
|
||||
\\)\\?="
|
||||
@ -112,7 +112,7 @@ quoted-printable and base64 respectively.")
|
||||
;; the characters that those encodings may generally use.
|
||||
)
|
||||
(defconst rfc2047-encoded-word-regexp-loose
|
||||
"=\\?\\([^][\000-\040()<>@,\;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\
|
||||
"=\\?\\([^][\000-\040()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\
|
||||
\\(B\\?[+/0-9A-Za-z]*=*\
|
||||
\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\
|
||||
\\)\\?="
|
||||
|
||||
@ -178,7 +178,7 @@ if the variable `help-downcase-arguments' is non-nil."
|
||||
(skip-chars-forward "^ ")
|
||||
(while next
|
||||
(or opt (not (looking-at " &")) (setq opt t))
|
||||
(if (not (re-search-forward " \\([\\[(]*\\)\\([^] &)\.]+\\)" nil t))
|
||||
(if (not (re-search-forward " \\([\\[(]*\\)\\([^] &).]+\\)" nil t))
|
||||
(setq next nil)
|
||||
(setq args (cons (match-string 2) args))
|
||||
(when (and opt (string= (match-string 1) "("))
|
||||
|
||||
@ -355,7 +355,7 @@ With argument, display info only for the selected version."
|
||||
(while (re-search-forward
|
||||
(if (member file '("NEWS.18" "NEWS.1-17"))
|
||||
"Changes in \\(?:Emacs\\|version\\)?[ \t]*\\([0-9]+\\(?:\\.[0-9]+\\)?\\)"
|
||||
"^\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)") nil t)
|
||||
"^\\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)") nil t)
|
||||
(setq res (cons (match-string-no-properties 1) res)))))
|
||||
(cons "NEWS"
|
||||
(directory-files data-directory nil
|
||||
@ -392,7 +392,7 @@ With argument, display info only for the selected version."
|
||||
(when (re-search-forward
|
||||
(concat (if (< vn 19)
|
||||
"Changes in Emacs[ \t]*"
|
||||
"^\* [^0-9\n]*") version "$")
|
||||
"^\\* [^0-9\n]*") version "$")
|
||||
nil t)
|
||||
(beginning-of-line)
|
||||
(narrow-to-region
|
||||
@ -402,7 +402,7 @@ With argument, display info only for the selected version."
|
||||
(re-search-forward
|
||||
(if (< vn 19)
|
||||
"Changes in \\(?:Emacs\\|version\\)?[ \t]*\\([0-9]+\\(?:\\.[0-9]+\\)?\\)"
|
||||
"^\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)") nil t))
|
||||
"^\\* [^0-9\n]*\\([0-9]+\\.[0-9]+\\)") nil t))
|
||||
(equal (match-string-no-properties 1) version)))
|
||||
(or res (goto-char (point-max)))
|
||||
(beginning-of-line)
|
||||
|
||||
@ -810,7 +810,7 @@ Loads the variable `hfy-rgb-txt-colour-map', which is used by
|
||||
`hfy-fallback-colour-values'."
|
||||
(interactive
|
||||
(list
|
||||
(read-file-name "rgb.txt \(equivalent\) file: " "" nil t (hfy-rgb-file))))
|
||||
(read-file-name "rgb.txt (equivalent) file: " "" nil t (hfy-rgb-file))))
|
||||
(let ((rgb-buffer nil)
|
||||
(end-of-rgb 0)
|
||||
(rgb-txt nil))
|
||||
|
||||
@ -1140,7 +1140,7 @@ See also `hfy-face-to-css'."
|
||||
|
||||
(defvar hfy-face-to-css 'hfy-face-to-css-default
|
||||
"Handler for mapping faces to styles.
|
||||
The signature of the handler is of the form \(lambda (FN) ...\).
|
||||
The signature of the handler is of the form \(lambda (FN) ...).
|
||||
FN is a font or `defface' specification (cf
|
||||
`face-attr-construct'). The handler should return a cons cell of
|
||||
the form (STYLE-NAME . STYLE-SPEC).
|
||||
@ -1598,7 +1598,7 @@ information."
|
||||
(defvar hfy-begin-span-handler 'hfy-begin-span
|
||||
"Handler to begin a span of text.
|
||||
The signature of the handler is \(lambda (STYLE TEXT-BLOCK
|
||||
TEXT-ID TEXT-BEGINS-BLOCK-P) ...\). The handler must insert
|
||||
TEXT-ID TEXT-BEGINS-BLOCK-P) ...). The handler must insert
|
||||
appropriate tags to begin a span of text.
|
||||
|
||||
STYLE is the name of the style that begins at point. It is
|
||||
@ -1626,7 +1626,7 @@ The default handler is `hfy-begin-span'.")
|
||||
|
||||
(defvar hfy-end-span-handler 'hfy-end-span
|
||||
"Handler to end a span of text.
|
||||
The signature of the handler is \(lambda () ...\). The handler
|
||||
The signature of the handler is \(lambda () ...). The handler
|
||||
must insert appropriate tags to end a span of text.
|
||||
|
||||
The default handler is `hfy-end-span'.")
|
||||
@ -2412,7 +2412,7 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'."
|
||||
(load file 'NOERROR nil nil) ))
|
||||
|
||||
|
||||
;;;### (autoloads nil "hfy-cmap" "hfy-cmap.el" "ce07a28b93c09032fd6b225ad74be0df")
|
||||
;;;### (autoloads nil "hfy-cmap" "hfy-cmap.el" "1fb78b15b18622256262c7246b2a3520")
|
||||
;;; Generated autoloads from hfy-cmap.el
|
||||
|
||||
(autoload 'htmlfontify-load-rgb-file "hfy-cmap" "\
|
||||
|
||||
@ -1785,7 +1785,7 @@ If point is on a group name, this function operates on that group."
|
||||
(let ((procs 0)
|
||||
(files 0))
|
||||
(dolist (string strings)
|
||||
(if (string-match "\\(\?:\\`(\[\[:ascii:\]\]\+)\\)" string)
|
||||
(if (string-match "\\(?:\\`([[:ascii:]]+)\\)" string)
|
||||
(progn (setq procs (1+ procs))
|
||||
(if (< (match-end 0) (length string))
|
||||
(setq files (1+ files))))
|
||||
|
||||
@ -3777,13 +3777,13 @@ frame, rather than all frames, regardless of value of `ido-all-frames'."
|
||||
(not (and (eq ido-cur-item 'buffer)
|
||||
ido-buffer-disable-smart-matches))
|
||||
(not ido-enable-regexp)
|
||||
(not (string-match "\$\\'" rex0))
|
||||
(not (string-match "$\\'" rex0))
|
||||
(concat "\\`" rex0 (if slash "/" "") "\\'")))
|
||||
(suffix-re (and do-full slash
|
||||
(not (and (eq ido-cur-item 'buffer)
|
||||
ido-buffer-disable-smart-matches))
|
||||
(not ido-enable-regexp)
|
||||
(not (string-match "\$\\'" rex0))
|
||||
(not (string-match "$\\'" rex0))
|
||||
(concat rex0 "/\\'")))
|
||||
(prefix-re (and full-re (not ido-enable-prefix)
|
||||
(concat "\\`" rexq)))
|
||||
|
||||
@ -34,7 +34,7 @@
|
||||
|
||||
(defconst image-type-header-regexps
|
||||
`(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm)
|
||||
("\\`P[1-6]\\\(?:\
|
||||
("\\`P[1-6]\\(?:\
|
||||
\\(?:\\(?:#[^\r\n]*[\r\n]\\)?[[:space:]]\\)+\
|
||||
\\(?:\\(?:#[^\r\n]*[\r\n]\\)?[0-9]\\)+\
|
||||
\\)\\{2\\}" . pbm)
|
||||
|
||||
@ -142,7 +142,7 @@ OTHER-MODES is a list of cross references to other help modes.")
|
||||
"Add or update a help specification.
|
||||
Function arguments are specified as keyword/argument pairs:
|
||||
|
||||
\(KEYWORD . ARGUMENT)
|
||||
(KEYWORD . ARGUMENT)
|
||||
|
||||
KEYWORD is either `:topic', `:mode', `:regexp', `:ignore-case',
|
||||
`:doc-spec', `:parse-rule', or `:other-modes'.
|
||||
|
||||
@ -3838,7 +3838,7 @@ START is a regular expression which will match the
|
||||
beginning of the tokens delimited string.
|
||||
ALL is a regular expression with a single
|
||||
parenthesized subpattern which is the token to be
|
||||
returned. E.g. `{\(.*\)}' would return any string
|
||||
returned. E.g. `{(.*)}' would return any string
|
||||
enclosed in braces around POS.
|
||||
ERRORSTRING optional fourth argument, controls action on no match:
|
||||
nil: return nil
|
||||
|
||||
@ -46,7 +46,7 @@
|
||||
(defvar iso-spanish-trans-tab
|
||||
'(
|
||||
("~n" "ñ")
|
||||
("\([a-zA-Z]\)#" "\\1ñ")
|
||||
("([a-zA-Z])#" "\\1ñ")
|
||||
("~N" "Ñ")
|
||||
("\\([-a-zA-Z\"`]\\)\"u" "\\1ü")
|
||||
("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü")
|
||||
|
||||
@ -159,7 +159,7 @@
|
||||
;; very frequently while editing multilingual text. Now we can use
|
||||
;; only two such keys: "\C-\\" and "\C-^", but the latter is not
|
||||
;; convenient because it requires shifting on most keyboards. An
|
||||
;; alternative is "\C-\]" which is now bound to `abort-recursive-edit'
|
||||
;; alternative is "\C-]" which is now bound to `abort-recursive-edit'
|
||||
;; but it won't be used that frequently.
|
||||
(define-key global-map "\C-\\" 'toggle-input-method)
|
||||
|
||||
@ -397,7 +397,7 @@ A coding system that requires automatic detection of text+encoding
|
||||
|
||||
To prefer, for instance, utf-8, say the following:
|
||||
|
||||
\(prefer-coding-system \\='utf-8)"
|
||||
(prefer-coding-system \\='utf-8)"
|
||||
(interactive "zPrefer coding system: ")
|
||||
(if (not (and coding-system (coding-system-p coding-system)))
|
||||
(error "Invalid coding system `%s'" coding-system))
|
||||
@ -2413,12 +2413,12 @@ See `set-language-info-alist' for use in programs."
|
||||
))
|
||||
"Alist of locale regexps vs the corresponding languages and coding systems.
|
||||
Each element has this form:
|
||||
\(LOCALE-REGEXP LANG-ENV CODING-SYSTEM)
|
||||
(LOCALE-REGEXP LANG-ENV CODING-SYSTEM)
|
||||
The first element whose LOCALE-REGEXP matches the start of a
|
||||
downcased locale specifies the LANG-ENV \(language environment)
|
||||
and CODING-SYSTEM corresponding to that locale. If there is no
|
||||
appropriate language environment, the element may have this form:
|
||||
\(LOCALE-REGEXP . LANG-ENV)
|
||||
(LOCALE-REGEXP . LANG-ENV)
|
||||
In this case, LANG-ENV is one of generic language environments for an
|
||||
specific encoding such as \"Latin-1\" and \"UTF-8\".")
|
||||
|
||||
|
||||
@ -665,8 +665,8 @@ without any conversions.
|
||||
|
||||
VALUE is the EOL (end-of-line) format of the coding system. It must be
|
||||
one of `unix', `dos', `mac'. The symbol `unix' means Unix-like EOL
|
||||
\(i.e. a single LF character), `dos' means DOS-like EOL \(i.e. a sequence
|
||||
of CR followed by LF), and `mac' means Mac-like EOL \(i.e. a single CR).
|
||||
\(i.e., a single LF character), `dos' means DOS-like EOL \(i.e., a sequence
|
||||
of CR followed by LF), and `mac' means Mac-like EOL \(i.e., a single CR).
|
||||
If omitted, Emacs detects the EOL format automatically when decoding.
|
||||
|
||||
`:charset-list' (required if `:coding-type' is `charset' or `shift-jis')
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
|
||||
;; Copyright (C) 1997-1998, 2001-2015 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: W{\l}odek Bzyl
|
||||
;; Author: Włodek Bzyl
|
||||
;; Ryszard Kubiak
|
||||
;; Maintainer: Ryszard Kubiak <rysiek@ipipan.gda.pl>
|
||||
;; Keywords: i18n
|
||||
|
||||
@ -86,7 +86,7 @@
|
||||
'(("chinese-4corner" "$(0(?-F(B")
|
||||
("chinese-array30" "$(0#R#O(B")
|
||||
("chinese-ccdospy" "$AKuF4(B"
|
||||
"Pinyin base input method for Chinese charset GB2312 \(`chinese-gb2312').
|
||||
"Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312').
|
||||
|
||||
Pinyin is the standard Roman transliteration method for Chinese.
|
||||
For the detail of Pinyin system, see the documentation of the input
|
||||
|
||||
@ -102,7 +102,7 @@ HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.")
|
||||
(?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?- ?(I0(B) (?$B!=(B ?-) (?$B!>(B ?-)
|
||||
(?$B!?(B ?/) (?$B!@(B ?\\) (?$B!A(B ?~) (?$B!C(B ?|) (?$B!F(B ?`) (?$B!G(B ?') (?$B!H(B ?\") (?$B!I(B ?\")
|
||||
(?\$B!J(B ?\() (?\$B!K(B ?\)) (?\$B!N(B ?[) (?\$B!O(B ?]) (?\$B!P(B ?{) (?\$B!Q(B ?})
|
||||
(?$B!R(B ?<) (?$B!S(B ?>) (?\$B!V(B nil ?\(I"(B) (?\$B!W(B nil ?\(I#(B)
|
||||
(?$B!R(B ?<) (?$B!S(B ?>) (?\$B!V(B nil ?\(I"(B) (?\$B!W(B nil ?\(I#(B)
|
||||
(?$B!\(B ?+) (?$B!](B ?-) (?$B!a(B ?=) (?$B!c(B ?<) (?$B!d(B ?>)
|
||||
(?$B!l(B ?') (?$B!m(B ?\") (?$B!o(B ?\\) (?$B!p(B ?$) (?$B!s(B ?%) (?$B!t(B ?#) (?$B!u(B ?&) (?$B!v(B ?*)
|
||||
(?$B!w(B ?@)
|
||||
@ -175,9 +175,9 @@ belongs to `japanese-jisx0208', ASCII belongs to `ascii'.")
|
||||
The argument may be a character or string. The result has the same type.
|
||||
The argument object is not altered--the value is a copy.
|
||||
Optional argument HANKAKU t means to convert to `hankaku' Katakana
|
||||
\(`japanese-jisx0201-kana'), in which case return value
|
||||
may be a string even if OBJ is a character if two Katakanas are
|
||||
necessary to represent OBJ."
|
||||
\(`japanese-jisx0201-kana'), in which case return value
|
||||
may be a string even if OBJ is a character if two Katakanas are
|
||||
necessary to represent OBJ."
|
||||
(if (stringp obj)
|
||||
(japanese-string-conversion obj 'japanese-katakana-region hankaku)
|
||||
(or (get-char-code-property obj (if hankaku 'jisx0201 'katakana))
|
||||
|
||||
@ -231,7 +231,7 @@
|
||||
("zk" "$B",(B")
|
||||
("zl" "$B"*(B")
|
||||
("z;" "$B!+(B") ("z:" "$B!,(B")
|
||||
("z\'" "$B!F(B") ("z\"" "$B!H(B")
|
||||
("z'" "$B!F(B") ("z\"" "$B!H(B")
|
||||
|
||||
("zx" [":-"]) ("zX" [":-)"])
|
||||
("zc" "$B!;(B") ("zC" "$B!n(B")
|
||||
|
||||
@ -1321,7 +1321,7 @@ Doubling the postfix separates the letter and postfix: e.g. a\\='\\=' -> a\\='
|
||||
("K" ?Ķ)
|
||||
("l" ?ļ)
|
||||
("L" ?Ļ)
|
||||
("\'" ?“)
|
||||
("'" ?“)
|
||||
("\"" ?„)
|
||||
("z" ?ž)
|
||||
("Z" ?Ž)
|
||||
|
||||
@ -664,7 +664,7 @@ system, including many technical ones. Examples:
|
||||
;; Probably not useful enough:
|
||||
;; ("\\Telefon" ?☎) ; there are other possibilities
|
||||
;; ("\\Radioactivity" ?☢)
|
||||
;; ("\Biohazard" ?☣)
|
||||
;; ("\\Biohazard" ?☣)
|
||||
;; ("\\Male" ?♂)
|
||||
;; ("\\Female" ?♀)
|
||||
;; ("\\Lightning" ?☇)
|
||||
|
||||
@ -76,7 +76,7 @@ The difference from the ordinal Thai keyboard:
|
||||
"๑" "ฤ" "ฺ" "ฉ" "ฏ" "ฎ" "โ" "ฌ" ; @ .. G
|
||||
"็" "ณ" "๋" "ษ" "ศ" "?" "์" "ฯ" ; H .. O
|
||||
"ญ" "๐" "ฑ" "ฆ" "ธ" "๊" "ฮ" "\"" ; P .. W
|
||||
"\)" "ํ" "\(" "บ" "ฃ" "ล" "ู" "๘" ; X .. _
|
||||
")" "ํ" "(" "บ" "ฃ" "ล" "ู" "๘" ; X .. _
|
||||
"_" "ฟ" "ิ" "แ" "ก" "ำ" "ด" "เ" ; ` .. g
|
||||
"้" "ร" "่" "า" "ส" "ท" "ื" "น" ; h .. o
|
||||
"ย" "ๆ" "พ" "ห" "ะ" "ี" "อ" "ไ" ; p .. w
|
||||
|
||||
@ -49,7 +49,7 @@
|
||||
(defcustom printer-name
|
||||
(and (eq system-type 'ms-dos) "PRN")
|
||||
"The name of a local printer to which data is sent for printing.
|
||||
\(Note that PostScript files are sent to `ps-printer-name', which see.\)
|
||||
\(Note that PostScript files are sent to `ps-printer-name', which see.)
|
||||
|
||||
On Unix-like systems, a string value should be a name understood by
|
||||
lpr's -P option; otherwise the value should be nil.
|
||||
|
||||
@ -438,7 +438,7 @@ shuttled robotically onward."
|
||||
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'
|
||||
\(e.g., some versions of XEmacs\)."
|
||||
\(e.g., some versions of XEmacs)."
|
||||
:version "24.1"
|
||||
:group 'feedmail-misc
|
||||
:type '(choice (const nil) integer)
|
||||
@ -449,7 +449,7 @@ version of Emacs doesn't include the function `y-or-n-p-with-timeout'
|
||||
"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'\)."
|
||||
\(see `feedmail-buffer-eating-function')."
|
||||
:group 'feedmail-headers
|
||||
:type 'boolean
|
||||
)
|
||||
@ -459,7 +459,7 @@ list. You may want to leave them in if you're using sendmail
|
||||
"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'\)."
|
||||
\(see `feedmail-buffer-eating-function')."
|
||||
:group 'feedmail-headers
|
||||
:type 'boolean
|
||||
)
|
||||
@ -645,7 +645,7 @@ is not an option for many users. As this is the default behavior of most
|
||||
sendmail installations, one can mostly only wish it were otherwise. If feedmail
|
||||
believes the sendmail program will sell you out this way, it won't use the \"-f\"
|
||||
option when calling sendmail. If it doesn't think sendmail will sell you out,
|
||||
it will use the \"-f\" \(since it is a handy feature\). You control what
|
||||
it will use the \"-f\" \(since it is a handy feature). You control what
|
||||
feedmail thinks with this variable. The default is nil, meaning that feedmail
|
||||
will believe that sendmail will sell you out."
|
||||
:version "24.1"
|
||||
@ -861,7 +861,7 @@ as well."
|
||||
"User-supplied specification for a crude form of mailmerge capability.
|
||||
When spraying is enabled, feedmail composes a list of envelope addresses.
|
||||
In turn, `feedmail-spray-this-address' is temporarily set to each address
|
||||
\(stripped of any comments and angle brackets\) and a function is called which
|
||||
\(stripped of any comments and angle brackets) and a function is called which
|
||||
fiddles message headers according to this variable. See the documentation for
|
||||
`feedmail-fiddle-plex-blurb', for an overview of fiddle-plex data structures.
|
||||
|
||||
@ -1313,7 +1313,7 @@ of `buffer-file-name' to nil because that will defeat feedmail's file
|
||||
management features. Instead, arrange for this variable to be set to
|
||||
the value of `buffer-file-name' before setting that to nil. An easy way
|
||||
to do that would be with defadvice on `mail-send' \(undoing the
|
||||
assignments in a later advice\).
|
||||
assignments in a later advice).
|
||||
|
||||
feedmail will pretend that `buffer-file-name', if nil, has the value
|
||||
assigned of `feedmail-queue-buffer-file-name' and carry out its normal
|
||||
@ -1507,7 +1507,7 @@ The default action is an anonymous function which gets rid of the file
|
||||
from the queue directory. With a non-nil second argument, a brief
|
||||
message is give for each file deleted. You could replace this
|
||||
function, for example, to archive all of your sent messages someplace
|
||||
\(though there are better ways to get that particular result\)."
|
||||
\(though there are better ways to get that particular result)."
|
||||
:group 'feedmail-queue
|
||||
:type 'function
|
||||
)
|
||||
@ -1715,7 +1715,7 @@ for ACTION (default is `supplement'):
|
||||
VAL-LIKE is not used. Else, if VAL-LIKE is a function,
|
||||
it is called with two arguments: NAME and the
|
||||
aggregate like values. Else, if VAL-LIKE is a string, it is
|
||||
used as a format string where a single \%s will be
|
||||
used as a format string where a single %s will be
|
||||
replaced by the aggregate values of like fields.
|
||||
|
||||
VAL-PRE, the results of using VAL-LIKE, and VAL-POST
|
||||
@ -1745,7 +1745,8 @@ applied to a file after you've just read it from disk: for example, a
|
||||
feedmail FQM message file from a queue. You could use something like
|
||||
this:
|
||||
|
||||
\(setq auto-mode-alist \(cons \\='\(\"\\\\.fqm$\" . feedmail-vm-mail-mode\) auto-mode-alist\)\)
|
||||
\(setq auto-mode-alist
|
||||
(cons \\='(\"\\\\.fqm$\" . feedmail-vm-mail-mode) auto-mode-alist))
|
||||
"
|
||||
(feedmail-say-debug ">in-> feedmail-vm-mail-mode")
|
||||
(let ((the-buf (current-buffer)))
|
||||
@ -1894,26 +1895,26 @@ You're dispatching a message and feedmail queuing is enabled.
|
||||
Typing ? again will normally scroll this help buffer.
|
||||
|
||||
Choices:
|
||||
q QUEUE for later sending \(via feedmail-run-the-queue\)
|
||||
q QUEUE for later sending (via feedmail-run-the-queue)
|
||||
Q QUEUE! like \"q\", but always make a new file
|
||||
i IMMEDIATELY send this \(but not the other queued messages\)
|
||||
i IMMEDIATELY send this (but not the other queued messages)
|
||||
I IMMEDIATELY! like \"i\", but skip following confirmation prompt
|
||||
d DRAFT queue in the draft directory
|
||||
D DRAFT! like \"d\", but always make a new file
|
||||
e EDIT return to the message edit buffer \(don't send or queue\)
|
||||
* SPRAY toggle spray mode \(individual message transmissions\)
|
||||
> SCROLL UP scroll message up \(toward end of message\)
|
||||
< SCROLL DOWN scroll message down \(toward beginning of message\)
|
||||
e EDIT return to the message edit buffer (don't send or queue)
|
||||
* SPRAY toggle spray mode (individual message transmissions)
|
||||
> SCROLL UP scroll message up (toward end of message)
|
||||
< SCROLL DOWN scroll message down (toward beginning of message)
|
||||
? HELP show or scroll this help buffer
|
||||
|
||||
Synonyms:
|
||||
s SEND immediately \(same as \"i\"\)
|
||||
S SEND! immediately \(same as \"I\"\)
|
||||
r ROUGH draft \(same as \"d\"\)
|
||||
R ROUGH! draft \(same as \"D\"\)
|
||||
n NOPE didn't mean it \(same as \"e\"\)
|
||||
y YUP do the default behavior \(same as \"C-m\"\)
|
||||
SPC SCROLL UP \(same as \">\"\)
|
||||
s SEND immediately (same as \"i\")
|
||||
S SEND! immediately (same as \"I\")
|
||||
r ROUGH draft (same as \"d\")
|
||||
R ROUGH! draft (same as \"D\")
|
||||
n NOPE didn't mean it (same as \"e\")
|
||||
y YUP do the default behavior (same as \"C-m\")
|
||||
SPC SCROLL UP (same as \">\")
|
||||
|
||||
The user-configurable default is currently \""))
|
||||
(princ d-string)
|
||||
|
||||
@ -329,7 +329,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
;; Matches an embedded or leading nickname that should be removed.
|
||||
;; (defconst mail-extr-nickname-pattern
|
||||
;; (purecopy
|
||||
;; (format "\\([ .]\\|\\`\\)[\"'`\[\(]\\([ .%s]+\\)[\]\"'\)] "
|
||||
;; (format "\\([ .]\\|\\`\\)[\"'`[(]\\([ .%s]+\\)[]\"')] "
|
||||
;; mail-extr-all-letters)))
|
||||
|
||||
;; Matches the occurrence of a generational name suffix, and the last
|
||||
@ -369,7 +369,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
;; Matches a variety of trailing comments not including comma-delimited
|
||||
;; comments.
|
||||
(defconst mail-extr-trailing-comment-start-pattern
|
||||
(purecopy " [-{]\\|--\\|[+@#></\;]"))
|
||||
(purecopy " [-{]\\|--\\|[+@#></;]"))
|
||||
|
||||
;; Matches a name (not an initial).
|
||||
;; This doesn't force a word boundary at the end because sometimes a
|
||||
@ -456,7 +456,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
;; mode from GB back to ASCII. (Note that the escape-from-GB code '~}'
|
||||
;; ($7E7D) is outside the defined GB range.)
|
||||
(defconst mail-extr-hz-embedded-gb-encoded-chinese-pattern
|
||||
(purecopy "~{\\([^~].\\|~[^\}]\\)+~}"))
|
||||
(purecopy "~{\\([^~].\\|~[^}]\\)+~}"))
|
||||
|
||||
;; The leading optional lowercase letters are for a bastardized version of
|
||||
;; the encoding, as is the optional nature of the final slash.
|
||||
@ -543,8 +543,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
(?\t " ")
|
||||
(?\r " ")
|
||||
(?\n " ")
|
||||
(?\( "\(\)")
|
||||
(?\) "\)\(")
|
||||
(?\( "()")
|
||||
(?\) ")(")
|
||||
(?\\ "\\"))
|
||||
(mail-extr-address-domain-literal-syntax-table
|
||||
(?\000 ?\377 "w")
|
||||
@ -553,8 +553,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
(?\t " ")
|
||||
(?\r " ")
|
||||
(?\n " ")
|
||||
(?\[ "\(\]") ;??????
|
||||
(?\] "\)\[") ;??????
|
||||
(?\[ "(]") ;??????
|
||||
(?\] ")[") ;??????
|
||||
(?\\ "\\"))
|
||||
(mail-extr-address-text-comment-syntax-table
|
||||
(?\000 ?\377 "w")
|
||||
@ -563,16 +563,16 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
|
||||
(?\t " ")
|
||||
(?\r " ")
|
||||
(?\n " ")
|
||||
(?\( "\(\)")
|
||||
(?\) "\)\(")
|
||||
(?\[ "\(\]")
|
||||
(?\] "\)\[")
|
||||
(?\{ "\(\}")
|
||||
(?\} "\)\{")
|
||||
(?\( "()")
|
||||
(?\) ")(")
|
||||
(?\[ "(]")
|
||||
(?\] ")[")
|
||||
(?\{ "(}")
|
||||
(?\} "){")
|
||||
(?\\ "\\")
|
||||
(?\" "\"")
|
||||
;; (?\' "\)\`")
|
||||
;; (?\` "\(\'")
|
||||
;; (?\' ")`")
|
||||
;; (?\` "('")
|
||||
)
|
||||
(mail-extr-address-text-syntax-table
|
||||
(?\000 ?\177 ".")
|
||||
|
||||
@ -95,7 +95,7 @@ supported. Defaults to non-nil on Windows, nil otherwise."
|
||||
recp)))
|
||||
(setq first nil))
|
||||
(split-string
|
||||
(mail-strip-quoted-names field) "\, *"))
|
||||
(mail-strip-quoted-names field) ", *"))
|
||||
result)))))
|
||||
|
||||
(declare-function clipboard-kill-ring-save "menu-bar.el"
|
||||
|
||||
@ -309,7 +309,7 @@ Buffer is not displayed if SHOW is non-nil."
|
||||
;; to file name.
|
||||
;(defun get-folder-from-spool-safe (name)
|
||||
; "Return the folder name corresponding to the spool file NAME."
|
||||
; (if (string-match "^\\(.*\\)\.spool$" name)
|
||||
; (if (string-match "^\\(.*\\)\\.spool$" name)
|
||||
; (substring name (match-beginning 1) (match-end 1))
|
||||
; (error "Could not extract folder name from spool name %s" name)))
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user