31575 lines
949 KiB
Text
Generated
31575 lines
949 KiB
Text
Generated
';;; subr.el --- basic lisp subroutines for Emacs -*- coding: utf-8; lexical-binding:t -*-' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Foundation, Inc.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Maintainer: emacs-devel@gnu.org' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Keywords: internal' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Package: emacs' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; This file is part of GNU Emacs.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; GNU Emacs is free software: you can redistribute it and/or modify' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; it under the terms of the GNU General Public License as published by' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; the Free Software Foundation, either version 3 of the License, or' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; (at your option) any later version.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; GNU Emacs is distributed in the hope that it will be useful,' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; but WITHOUT ANY WARRANTY; without even the implied warranty of' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; GNU General Public License for more details.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; You should have received a copy of the GNU General Public License' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';;; Commentary:' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';;; Code:' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
";; Beware: while this file has tag `utf-8', before it's compiled, it gets" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; loaded as "raw-text", so non-ASCII chars won\'t work right during bootstrap.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'declare-function' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'_fn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'_file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'_arglist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'_fileonly' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Tell the byte-compiler that function FN is defined, in FILE.\nOptional ARGLIST is the argument list used by the function.\nThe FILE argument is not used by the byte-compiler, but by the\n' Literal.String
|
|
|
|
"`check-declare'" Literal.String.Symbol
|
|
' package, which checks that FILE contains a\ndefinition for FN. ARGLIST is used by both the byte-compiler\nand ' Literal.String
|
|
"`check-declare'" Literal.String.Symbol
|
|
' to check for consistency.\n\nFILE can be either a Lisp file (in which case the ' Literal.String
|
|
'\\"' Literal.String
|
|
'.el' Literal.String
|
|
'\\"' Literal.String
|
|
'\nextension is optional), or a C file. C files are expanded\nrelative to the Emacs ' Literal.String
|
|
'\\"' Literal.String
|
|
'src/' Literal.String
|
|
'\\"' Literal.String
|
|
' directory. Lisp files are\nsearched for using ' Literal.String
|
|
"`locate-library'" Literal.String.Symbol
|
|
', and if that fails they are\nexpanded relative to the location of the file containing the\ndeclaration. A FILE with an ' Literal.String
|
|
'\\"' Literal.String
|
|
'ext:' Literal.String
|
|
'\\"' Literal.String
|
|
' prefix is an external file.\n' Literal.String
|
|
|
|
"`check-declare'" Literal.String.Symbol
|
|
' will check such files if they are found, and skip\nthem without error if they are not.\n\nFILEONLY non-nil means that ' Literal.String
|
|
"`check-declare'" Literal.String.Symbol
|
|
' will only check that\nFILE exists, not that it defines FN. This is intended for\nfunction-definitions that ' Literal.String
|
|
"`check-declare'" Literal.String.Symbol
|
|
' does not recognize, e.g.\n' Literal.String
|
|
|
|
"`defstruct'" Literal.String.Symbol
|
|
'.\n\nTo specify a value for FILEONLY without passing an argument list,\nset ARGLIST to t. This is necessary because nil means an\nempty argument list, rather than an unspecified one.\n\nNote that for the purposes of ' Literal.String
|
|
"`check-declare'" Literal.String.Symbol
|
|
', this statement\nmust be the first non-whitespace on a line.\n\nFor more information, see Info node ' Literal.String
|
|
'`' Literal.String
|
|
"(elisp)Declaring Functions'." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; Does nothing - byte-compile-declare-function does the work.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Basic Lisp macros.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'not" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'null" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'noreturn' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Evaluate FORM, expecting it not to return.\nIf FORM does return, signal an error.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'form' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Form marked with ' Literal.String
|
|
"`noreturn'" Literal.String.Symbol
|
|
' did return' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'1value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Evaluate FORM, expecting a constant return value.\nThis is the global do-nothing version. There is also ' Literal.String
|
|
"`testcover-1value'" Literal.String.Symbol
|
|
'\nthat complains if FORM ever does return differing values.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'def-edebug-spec' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Set the ' Literal.String
|
|
"`edebug-form-spec'" Literal.String.Symbol
|
|
' property of SYMBOL according to SPEC.\nBoth SYMBOL and SPEC are unevaluated. The SPEC can be:\n0 (instrument no arguments); t (instrument all arguments);\na symbol (naming a function with an Edebug specification); or a list.\nThe elements of the list describe the argument types; see\nInfo node ' Literal.String
|
|
'`' Literal.String
|
|
"(elisp)Specification List' for details." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'quote' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'edebug-form-spec" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'quote' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'cdr' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a lambda expression.\nA call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is\nself-quoting; the result of evaluating the lambda expression is the\nexpression itself. The lambda expression may then be treated as a\nfunction, i.e., stored as the function value of a symbol, passed to\n' Literal.String
|
|
|
|
"`funcall'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`mapcar'" Literal.String.Symbol
|
|
', etc.\n\nARGS should take the same form as an argument list for a ' Literal.String
|
|
"`defun'" Literal.String.Symbol
|
|
'.\nDOCSTRING is an optional documentation string.\n If present, it should describe how to call the function.\n But documentation strings are usually not useful in nameless functions.\nINTERACTIVE should be a call to the function ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
', which see.\nIt may also be omitted.\nBODY should be a list of Lisp expressions.\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn ARGS [DOCSTRING] [INTERACTIVE] BODY)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'doc-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defun' Name.Builtin
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&define' Name.Variable
|
|
' ' Text.Whitespace
|
|
'lambda-list' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'[' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'stringp' Name.Function
|
|
']' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'[' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'interactive' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'interactive' Keyword
|
|
')' Punctuation
|
|
']' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'def-body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Note that this definition should not use backquotes; subr.el should not' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; depend on backquote.el.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'function" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
"'lambda" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'cdr' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Set variable VAR to value VAL in current buffer.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; Can't use backquote here, it's too early in the bootstrap." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'set" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'make-local-variable" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'defvar-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'docstring' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Define VAR as a buffer-local variable with default value VAL.\nLike ' Literal.String
|
|
"`defvar'" Literal.String.Symbol
|
|
' but additionally marks the variable as being automatically\nbuffer-local wherever it is set.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defvar' Keyword
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'doc-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Can't use backquote here, it's too early in the bootstrap." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'progn" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'defvar" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
' ' Text.Whitespace
|
|
'docstring' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'make-variable-buffer-local" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'apply-partially' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a function that is a partial application of FUN to ARGS.\nARGS is a list of the first N arguments to pass to FUN.\nThe result is a new function which does the same as FUN, except that\nthe first N arguments are fixed at the values with which this function\nwas called.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
' ' Text.Whitespace
|
|
'args2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'newelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Add NEWELT to the list stored in the generalized variable PLACE.\nThis is morally equivalent to (setf PLACE (cons NEWELT PLACE)),\nexcept that PLACE is only evaluated once (after NEWELT).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'form' Name.Variable
|
|
' ' Text.Whitespace
|
|
'gv-place' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Important special case, to avoid triggering GV too early in' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; the bootstrap.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'setq" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'cons" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'require' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'macroexp" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp-let2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'macroexp-copyable-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'gv-letplace' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'getter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'setter' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'setter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'v' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'getter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'pop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return the first element of PLACE's value, and remove it from the list.\nPLACE must be a generalized variable whose value is a list.\nIf the value is nil, " Literal.String
|
|
"`pop'" Literal.String.Symbol
|
|
' returns nil but does not actually\nchange the list.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'gv-place' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; We use `car-safe' here instead of `car' because the behavior is the same" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; (if it's not a cons cell, the `cdr' would have signaled an error already)," Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; but `car-safe' is total, so the byte-compiler can safely remove it if the" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; result is not used.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; So we can use `pop' in the bootstrap before `gv' can be used." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'prog1" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'setq" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'cdr" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'gv-letplace' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'getter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'setter' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'place' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp-let2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'macroexp-copyable-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'getter' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'setter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'If COND yields non-nil, do BODY, else return nil.\nWhen COND yields non-nil, eval BODY forms sequentially and return\nvalue of last one, or nil if there are none.\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn COND BODY...)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'if" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
"'progn" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'If COND yields nil, do BODY, else return nil.\nWhen COND yields nil, eval BODY forms sequentially and return\nvalue of last one, or nil if there are none.\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn COND BODY...)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
"'if" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Loop over a list.\nEvaluate BODY with VAR bound to each car from LIST, in turn.\nThen evaluate RESULT to get return value, default nil.\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn (VAR LIST [RESULT]) BODY...)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; It would be cleaner to create an uninterned symbol,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; but that uses a lot more space when many functions in many files' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; use dolist.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: This cost disappears in byte-compiled lexical-binding files.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'--dolist-tail--" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; This is not a reliable test, but it does not matter because both' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; semantics are acceptable, tho one is slightly faster with dynamic' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; scoping and the other is slightly faster (and has cleaner semantics)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; with lexical scoping.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'lexical-binding' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'dotimes' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Loop a certain number of times.\nEvaluate BODY with VAR bound to successive integers running from 0,\ninclusive, to COUNT, exclusive. Then evaluate RESULT to get\nthe return value (nil if RESULT is omitted).\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn (VAR COUNT [RESULT]) BODY...)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'dolist' Name.Builtin
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; It would be cleaner to create an uninterned symbol,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; but that uses a lot more space when many functions in many files' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; use dotimes.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: This cost disappears in byte-compiled lexical-binding files.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'--dotimes-limit--" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; This is not a reliable test, but it does not matter because both' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; semantics are acceptable, tho one is slightly faster with dynamic' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; scoping and the other has cleaner semantics.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'lexical-binding' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'counter' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'--dotimes-counter--" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: This let often leads to "unused var" warnings.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'counter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'_specs' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Do not evaluate any arguments, and return nil.\nIf a ' Literal.String
|
|
"`declare'" Literal.String.Symbol
|
|
' form appears as the first form in the body of a\n' Literal.String
|
|
|
|
"`defun'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`defmacro'" Literal.String.Symbol
|
|
' form, SPECS specifies various additional\ninformation about the function or macro; these go into effect\nduring the evaluation of the ' Literal.String
|
|
"`defun'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`defmacro'" Literal.String.Symbol
|
|
' form.\n\nThe possible values of SPECS are specified by\n' Literal.String
|
|
|
|
"`defun-declarations-alist'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`macro-declarations-alist'" Literal.String.Symbol
|
|
'.\n\nFor more information, see info node ' Literal.String
|
|
'`' Literal.String
|
|
"(elisp)Declare Form'." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: edebug spec should pay attention to defun-declarations-alist.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'ignore-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY; if an error occurs, return nil.\nOtherwise, return result of last form in BODY.\nSee also ' Literal.String
|
|
"`with-demoted-errors'" Literal.String.Symbol
|
|
' that does something similar\nwithout silencing all errors.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Basic Lisp functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'ignore' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'_ignore' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Do nothing and return nil.\nThis function accepts any number of arguments, but ignores them.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Signal a compile-error if the first arg is missing.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Signal an error, making error message by passing all args to ' Literal.String
|
|
"`format'" Literal.String.Symbol
|
|
'.\nIn Emacs, the convention is that error messages start with a capital\nletter but *do not* end with a period. Please follow this convention\nfor the sake of consistency.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'error" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"'format" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'user-error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Signal a pilot error, making error message by passing all args to ' Literal.String
|
|
"`format'" Literal.String.Symbol
|
|
'.\nIn Emacs, the convention is that error messages start with a capital\nletter but *do not* end with a period. Please follow this convention\nfor the sake of consistency.\nThis is just like ' Literal.String
|
|
"`error'" Literal.String.Symbol
|
|
' except that ' Literal.String
|
|
"`user-error'" Literal.String.Symbol
|
|
's are expected to be the\nresult of an incorrect manipulation on the part of the user, rather than the\nresult of an actual problem.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'user-error" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'define-error' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Define NAME as a new error signal.\nMESSAGE is a string that will be output to the echo area if such an error\nis signaled without being caught by a ' Literal.String
|
|
"`condition-case'" Literal.String.Symbol
|
|
'.\nPARENT is either a signal or a list of signals from which it inherits.\nDefaults to ' Literal.String
|
|
"`error'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'error" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'conditions' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'append' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'error-conditions" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Unknown signal ' Literal.String
|
|
"`%s'" Literal.String.Symbol
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'error-conditions" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'error-conditions" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-dups' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'conditions' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'error-message" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
";; We put this here instead of in frame.el so that it's defined even on" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; systems where frame.el isn't loaded." Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'frame-configuration-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if OBJECT seems to be a frame configuration.\nAny list whose car is ' Literal.String
|
|
"`frame-configuration'" Literal.String.Symbol
|
|
' is assumed to be a frame\nconfiguration.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'frame-configuration" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; List functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'caar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the car of the car of X.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the car of the cdr of X.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'cdar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the cdr of the car of X.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the cdr of the cdr of X.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'last' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the last link of LIST. Its car is the last element.\nIf LIST is nil, return nil.\nIf N is non-nil, return the Nth-to-last link of LIST.\nIf N is bigger than the length of LIST, return LIST.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'm' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'safe-length' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'm' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'm' Name.Variable
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'safe-length' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'butlast' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a copy of LIST with the last N elements removed.\nIf N is omitted or nil, the last element is removed from the\ncopy.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nbutlast' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'nbutlast' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Modifies LIST to remove the last N elements.\nIf N is omitted or nil, remove the last element.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'm' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'm' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'm' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'number' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if NUMBER is zero.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; Used to be in C, but it's pointless since (= 0 n) is faster anyway because" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; = has a byte-code.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compiler-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'_' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'number' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'number' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'delete-dups' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Destructively remove ' Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
' duplicates from LIST.\nStore the result in LIST and return it. LIST must be a proper list.\nOf several ' Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
' occurrences of an element in LIST, the first\none is kept.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; See http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00204.html' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'delete-consecutive-dups' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'circular' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Destructively remove ' Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
' consecutive duplicates from LIST.\nFirst and last elements are considered consecutive if CIRCULAR is\nnon-nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'last' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'last' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'circular' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'last' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nbutlast' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'number-sequence' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a sequence of numbers from FROM to TO (both inclusive) as a list.\nINC is the increment used between numbers in the sequence and defaults to 1.\nSo, the Nth element of the list is (+ FROM (* N INC)) where N counts from\nzero. TO is only included if there is an N for which TO = FROM + N * INC.\nIf TO is nil or numerically equal to FROM, return (FROM).\nIf INC is positive and TO is less than FROM, or INC is negative\nand TO is larger than FROM, return nil.\nIf INC is zero and TO is neither nil nor numerically equal to\nFROM, signal an error.\n\nThis function is primarily designed for integer arguments.\nNevertheless, FROM, TO and INC can be integer or float. However,\nfloating point arithmetic is inexact. For instance, depending on\nthe machine, it may quite well happen that\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'number-sequence 0.4 0.6 0.2) returns the one element list (0.4),\nwhereas (number-sequence 0.4 0.8 0.2) returns a list with three\nelements. Thus, if some of the arguments are floats and one wants\nto make sure that TO is included, one may have to explicitly write\nTO as (+ FROM (* N INC)) or use a variable whose value was\ncomputed with this exact expression. Alternatively, you can,\nof course, also replace TO with a slightly larger value\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'or a slightly more negative value if INC is negative).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'The increment can not be zero' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'seq' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'*' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'next' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'*' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inc' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'copy-tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'vecp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Make a copy of TREE.\nIf TREE is a cons cell, this recursively copies both its car and its cdr.\nContrast to ' Literal.String
|
|
"`copy-sequence'" Literal.String.Symbol
|
|
', which copies only along the cdrs. With second\nargument VECP, this copies vectors as well as conses.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'result' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'newcar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'vecp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'newcar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'vecp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'newcar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'result' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'result' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'vecp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'vecp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'tree' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Various list-search functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'assoc-default' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'test' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Find object KEY in a pseudo-alist ALIST.\nALIST is a list of conses or objects. Each element\n (or the element's car, if it is a cons) is compared with KEY by\n calling TEST, with two arguments: (i) the element or its car,\n and (ii) KEY.\nIf that is non-nil, the element matches; then " Literal.String
|
|
"`assoc-default'" Literal.String.Symbol
|
|
"\n returns the element's cdr, if it is a cons, or DEFAULT if the\n element is not a cons.\n\nIf no element matches, the value is nil.\nIf TEST is omitted or nil, " Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
' is used.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'test' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'equal" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'assoc-ignore-case' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Like ' Literal.String
|
|
"`assoc'" Literal.String.Symbol
|
|
', but ignores differences in case and text representation.\nKEY must be a string. Upper-case and lower-case letters are treated as equal.\nUnibyte strings are converted to multibyte for comparison.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'assoc-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assoc-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'assoc-ignore-representation' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Like ' Literal.String
|
|
"`assoc'" Literal.String.Symbol
|
|
', but ignores differences in text representation.\nKEY must be a string.\nUnibyte strings are converted to multibyte for comparison.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'assoc-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assoc-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'member-ignore-case' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Like ' Literal.String
|
|
"`member'" Literal.String.Symbol
|
|
', but ignore differences in case and text representation.\nELT must be a string. Upper-case and lower-case letters are treated as equal.\nUnibyte strings are converted to multibyte for comparison.\nNon-strings in LIST are ignored.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compare-strings' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'assq-delete-all' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Delete from ALIST all elements whose car is ' Literal.String
|
|
"`eq'" Literal.String.Symbol
|
|
' to KEY.\nReturn the modified alist.\nElements of ALIST that are not conses are ignored.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'rassq-delete-all' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Delete from ALIST all elements whose cdr is ' Literal.String
|
|
"`eq'" Literal.String.Symbol
|
|
' to VALUE.\nReturn the modified alist.\nElements of ALIST that are not conses are ignored.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'alist-get' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
' ' Text.Whitespace
|
|
'remove' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Get the value associated to KEY in ALIST.\nDEFAULT is the value to return if KEY is not found in ALIST.\nREMOVE, if non-nil, means that when setting this element, we should\nremove the entry if the new value is ' Literal.String
|
|
"`eql'" Literal.String.Symbol
|
|
' to DEFAULT.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ignore' Name.Variable
|
|
' ' Text.Whitespace
|
|
'remove' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';;Silence byte-compiler.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remove' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a copy of SEQ with all occurrences of ELT removed.\nSEQ must be a list, vector, or string. The comparison is done with ' Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nlistp' Name.Function
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; If SEQ isn't a list, there's no need to copy SEQ because" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `delete' will return a new object." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'seq' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remq' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return LIST with all occurrences of ELT removed.\nThe comparison is done with ' Literal.String
|
|
"`eq'" Literal.String.Symbol
|
|
'. Contrary to ' Literal.String
|
|
"`delq'" Literal.String.Symbol
|
|
', this does not use\nside-effects, and the argument LIST is not modified.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delq' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Keymap support.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'kbd' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keys' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Convert KEYS to the internal Emacs key representation.\nKEYS should be a string constant in the format used for\nsaving keyboard macros (see ' Literal.String
|
|
"`edmacro-mode'" Literal.String.Symbol
|
|
').' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; Don't use a defalias, since the `pure' property is only true for" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; the calling convention of `kbd'." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
"'kbd" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'pure" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'undefined' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Beep to tell the user this binding is undefined.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ding' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s is undefined' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key-description' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'this-single-command-keys' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'defining-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'force-mode-line-update' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; If this is a down-mouse event, don't reset prefix-arg;" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; pass it to the command run by the up event.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prefix-arg' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'down" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event-modifiers' Name.Variable
|
|
' ' Text.Whitespace
|
|
'last-command-event' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'current-prefix-arg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Prevent the \\{...} documentation construct' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; from mentioning keys that run this command.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
"'undefined" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'suppress-keymap" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'suppress-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'nodigits' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Make MAP override all normally self-inserting keys to be undefined.\nNormally, as an exception, digits and minus-sign are set to make prefix args,\nbut optional second arg NODIGITS non-nil treats them like other chars.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'remap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'self-insert-command' Name.Function
|
|
']' Punctuation
|
|
' ' Text.Whitespace
|
|
"'undefined" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'nodigits' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'loop' Name.Builtin
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'-' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
"'negative-argument" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; Make plain numbers do numeric args.' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'loop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'?0' Literal.String.Char
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'loop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'?9' Literal.String.Char
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'loop' Name.Builtin
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'digit-argument" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'loop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'loop' Name.Builtin
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'make-composed-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'maps' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Construct a new keymap composed of MAPS and inheriting from PARENT.\nWhen looking up a key in the returned map, the key is looked in each\nkeymap of MAPS in turn until a binding is found.\nIf no binding is found in MAPS, the lookup continues in PARENT, if non-nil.\nAs always with keymap inheritance, a nil binding in MAPS overrides\nany corresponding binding in PARENT, but it does not override corresponding\nbindings in other keymaps of MAPS.\nMAPS can be a list of keymaps or a single keymap.\nPARENT if non-nil should be a keymap.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'keymap' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'maps' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'maps' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'maps' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'define-key-after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'definition' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Add binding in KEYMAP for KEY => DEFINITION, right after AFTER's binding.\nThis is like " Literal.String
|
|
"`define-key'" Literal.String.Symbol
|
|
' except that the binding for KEY is placed\njust after the binding for the event AFTER, instead of at the beginning\nof the map. Note that AFTER must be an event type (like KEY), NOT a command\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'like DEFINITION).\n\nIf AFTER is t or omitted, the new binding goes at the end of the keymap.\nAFTER should be a single event type--a symbol or a character, not a sequence.\n\nBindings are always added before any inherited map.\n\nThe order of bindings in a keymap only matters when it is used as\na menu, so this function is not useful for non-menu keymaps.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'wrong-type-argument" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'keymapp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"'vector" Literal.String.Symbol
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'butlast' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
"'identity" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inserted' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Delete any earlier bindings for the same key.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; If we hit an included map, go down that one.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; When we reach AFTER's binding, insert the new binding after." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; If we reach an inherited keymap, insert just before that.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; If we reach the end of this keymap, insert at the end.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'keymap" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
';; Stop the scan only if we find a parent keymap.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; Keep going past the inserted element' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; so we can delete any duplications that come later.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'keymap" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Don't insert more than once." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'inserted' Name.Variable
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'definition' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'inserted' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'map-keymap-sorted' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Implement ' Literal.String
|
|
"`map-keymap'" Literal.String.Symbol
|
|
" with sorting.\nDon't call this function; it is for internal use only." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map-keymap' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sort' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
';; string< also accepts symbols.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string<' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'p' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'p' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap--menu-item-binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the binding part of a menu-item.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';Not a menu-item.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'menu-item" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'filter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'plist' Name.Variable
|
|
' ' Text.Whitespace
|
|
':filter' Name.Builtin
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'filter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'filter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';Not a menu-item either.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap--menu-item-with-binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'item' Name.Variable
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Build a menu-item like ITEM but with its binding changed to BINDING.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
'\t\t' Text.Whitespace
|
|
';Not a menu-item.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'menu-item" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Remove any potential filter.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
':filter' Name.Builtin
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
':filter' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap--merge-bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'val1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Merge bindings VAL1 and VAL2.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap--menu-item-binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap--menu-item-binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'map1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'map2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; There's nothing to merge: val1 takes precedence." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'val1' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'keymap" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'map1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'item' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'val1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'val2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'val2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'val1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap--menu-item-with-binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap-canonicalize' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a simpler equivalent keymap.\nThis resolves inheritance and redefinitions. The returned keymap\nshould behave identically to a copy of KEYMAP w.r.t ' Literal.String
|
|
"`lookup-key'" Literal.String.Symbol
|
|
'\nand use in active keymaps and menus.\nSubkeymaps may be modified but are not canonicalized.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: Problem with the difference between a nil binding' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; that hides a binding in an inherited map and a nil binding that's ignored" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; to let some further binding visible. Currently a nil binding hides all.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; FIXME: we may want to carefully (re)order elements in case they're" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; menu-entries.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ranges' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap-prompt' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map-keymap' Name.Function
|
|
' ' Text.Whitespace
|
|
';; -internal' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Treat char-ranges specially.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'ranges' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'item' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Create the new map.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'ranges' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'make-keymap" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'make-sparse-keymap" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ranges' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Treat char-ranges specially. FIXME: need to merge as well.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vector' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Process the bindings starting from the end.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'binding' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'oldbind' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'oldbind' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; The normal case: no duplicate bindings.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; This is the second binding for this key.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delq' Name.Function
|
|
' ' Text.Whitespace
|
|
'oldbind' Name.Variable
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap--merge-bindings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'binding' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'oldbind' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'bindings' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
"'keyboard-translate-table" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'char-table-extra-slots" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keyboard-translate' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Translate character FROM to TO on the current terminal.\nThis function creates a ' Literal.String
|
|
"`keyboard-translate-table'" Literal.String.Symbol
|
|
' if necessary\nand then modifies one entry in it.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-table-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'keyboard-translate-table' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'keyboard-translate-table' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-char-table' Name.Function
|
|
' ' Text.Whitespace
|
|
"'keyboard-translate-table" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'keyboard-translate-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Key binding commands.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'global-set-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Give KEY a global binding as COMMAND.\nCOMMAND is the command definition to use; usually it is\na symbol naming an interactively-callable function.\nKEY is a key sequence; noninteractively, it is a string or vector\nof characters or event types, and non-ASCII characters with codes\nabove 127 (such as ISO Latin-1) can be included if you use a vector.\n\nNote that if KEY has a local binding in the current buffer,\nthat local binding will continue to shadow any global binding\nthat you make with this function.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'KSet key globally: ' Literal.String
|
|
'\\n' Literal.String
|
|
'CSet key %s to command: ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'wrong-type-argument" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'arrayp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-global-map' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'local-set-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Give KEY a local binding as COMMAND.\nCOMMAND is the command definition to use; usually it is\na symbol naming an interactively-callable function.\nKEY is a key sequence; noninteractively, it is a string or vector\nof characters or event types, and non-ASCII characters with codes\nabove 127 (such as ISO Latin-1) can be included if you use a vector.\n\nThe binding goes in the current buffer's local map, which in most\ncases is shared with all other buffers in the same major mode." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'KSet key locally: ' Literal.String
|
|
'\\n' Literal.String
|
|
'CSet key %s locally to command: ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-local-map' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'use-local-map' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'wrong-type-argument" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'arrayp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'global-unset-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Remove global binding of KEY.\nKEY is a string or vector representing a sequence of keystrokes.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'kUnset key globally: ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'global-set-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'local-unset-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Remove local binding of KEY.\nKEY is a string or vector representing a sequence of keystrokes.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'kUnset key locally: ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-local-map' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'local-set-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; substitute-key-definition and its subroutines.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'key-substitution-in-progress' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Used internally by ' Literal.String
|
|
"`substitute-key-definition'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'substitute-key-definition' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'olddef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'oldmap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.\nIn other words, OLDDEF is replaced with NEWDEF where ever it appears.\nAlternatively, if optional fourth argument OLDMAP is specified, we redefine\nin KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP.\n\nIf you don't specify OLDMAP, you can usually get the same results\nin a cleaner way with command remapping, like this:\n (define-key KEYMAP [remap OLDDEF] NEWDEF)\n" Literal.String
|
|
|
|
'\\n' Literal.String
|
|
'(fn OLDDEF NEWDEF KEYMAP &optional OLDMAP)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; Don't document PREFIX in the doc string because we don't want to" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; advertise it. It's meant for recursive calls only. Here's its" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; meaning' Comment.Single
|
|
'\n\n ' Text.Whitespace
|
|
';; If optional argument PREFIX is specified, it should be a key' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; prefix, a string. Redefined bindings will then be bound to the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; original key, with PREFIX added at the front.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'scan' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'oldmap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prefix1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'nil' Name.Constant
|
|
']' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key-substitution-in-progress' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'scan' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key-substitution-in-progress' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Scan OLDMAP, finding each char or event-symbol that' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; has any definition, and act on it with hack-key.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map-keymap' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substitute-key-definition-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'olddef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'scan' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'substitute-key-definition-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'olddef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'inner-def' Name.Variable
|
|
' ' Text.Whitespace
|
|
'skipped' Name.Variable
|
|
' ' Text.Whitespace
|
|
'menu-item' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Find the actual command name within the binding.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'menu-item" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'menu-item' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Skip past menu-prompt.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'skipped' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Skip past cached key-equivalence data for menu items.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'olddef' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Compare with equal if definition is a key sequence.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; That is useful for operating on function-key-map.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'olddef' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'menu-item' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'copy' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'menu-item' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'copy' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'copy' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'skipped' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Look past a symbol that names a keymap.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'inner-def' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indirect-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'defn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; For nested keymaps, we use `inner-def' rather than `defn' so as to" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; avoid autoloading a keymap. This is mostly done to preserve the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; original non-autoloading behavior of pre-map-keymap times.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'inner-def' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Avoid recursively scanning' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; where KEYMAP does not have a submap.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'natnump' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Avoid recursively rescanning keymap being scanned.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'inner-def' Name.Variable
|
|
' ' Text.Whitespace
|
|
'key-substitution-in-progress' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; If this one isn't being scanned already, scan it now." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substitute-key-definition' Name.Variable
|
|
' ' Text.Whitespace
|
|
'olddef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newdef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inner-def' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; The global keymap tree.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; global-map, esc-map, and ctl-x-map have their values set up in' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; keymap.c; we just give them docstrings here.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'global-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Default global keymap mapping Emacs keyboard input into commands.\nThe value is a keymap which is usually (but not necessarily) Emacs's\nglobal map." Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'esc-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Default keymap for ESC (meta) commands.\nThe normal global definition of the character ESC indirects to this keymap.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'ctl-x-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Default keymap for C-x commands.\nThe normal global definition of the character C-x indirects to this keymap.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'ctl-x-4-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Keymap for subcommands of C-x 4.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'ctl-x-4-prefix" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'ctl-x-4-map' Name.Variable
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'ctl-x-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'4' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
"'ctl-x-4-prefix" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'ctl-x-5-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Keymap for frame commands.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'ctl-x-5-prefix" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'ctl-x-5-map' Name.Variable
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'ctl-x-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'5' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
"'ctl-x-5-prefix" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Event manipulation functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'listify-key-sequence-1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logior' Name.Function
|
|
' ' Text.Whitespace
|
|
'128' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'?\\M' Literal.String.Char
|
|
'-\\C-@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'listify-key-sequence' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Convert a key sequence to a list of events.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vectorp' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'c' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'c' Name.Variable
|
|
' ' Text.Whitespace
|
|
'127' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logxor' Name.Function
|
|
' ' Text.Whitespace
|
|
'c' Name.Variable
|
|
' ' Text.Whitespace
|
|
'listify-key-sequence-1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'c' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'eventp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'True if the argument is an event object.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keywordp' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'event-modifiers' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a list of symbols representing the modifier keys in event EVENT.\nThe elements of the list may include ' Literal.String
|
|
"`meta'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`control'" Literal.String.Symbol
|
|
',\n' Literal.String
|
|
|
|
"`shift'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`hyper'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`super'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`alt'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`click'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`double'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`triple'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`drag'" Literal.String.Symbol
|
|
',\nand ' Literal.String
|
|
"`down'" Literal.String.Symbol
|
|
'.\nEVENT may be an event or an event type. If EVENT is a symbol\nthat has never been used in an event that has been read as input\nin the current Emacs session, then this function may fail to include\nthe ' Literal.String
|
|
"`click'" Literal.String.Symbol
|
|
' modifier.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Don't read event-symbol-elements directly since we're not" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; sure the symbol has already been parsed.' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal-event-symbol-parse-modifiers' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lognot' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logior' Name.Function
|
|
' ' Text.Whitespace
|
|
'?\\M' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\C' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\S' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'?\\H' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\s' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\A' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\M' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'meta" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\C' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'32' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'control" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\S' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'/=' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'downcase' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'shift" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\H' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'hyper" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\s' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'super" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\A' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'alt" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'event-basic-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the basic type of the given event (all modifiers removed).\nThe value is a printing character (not upper case) or a symbol.\nEVENT may be an event or an event type. If EVENT is a symbol\nthat has never been used in an event that has been read as input\nin the current Emacs session, then this function may return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'event-symbol-elements" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'base' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'?\\A' Literal.String.Char
|
|
'-\\^@' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'uncontrolled' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'base' Name.Variable
|
|
' ' Text.Whitespace
|
|
'32' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logior' Name.Function
|
|
' ' Text.Whitespace
|
|
'base' Name.Variable
|
|
' ' Text.Whitespace
|
|
'64' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'base' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; There are some numbers that are invalid characters and' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; cause `downcase' to get an error." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'downcase' Name.Function
|
|
' ' Text.Whitespace
|
|
'uncontrolled' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'uncontrolled' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'mouse-movement-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if OBJECT is a mouse movement event.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'mouse-movement" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'mouse-event-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if OBJECT is a mouse click event.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; is this really correct? maybe remove mouse-movement?' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event-basic-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'mouse-1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mouse-2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mouse-3' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mouse-movement' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'event-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the starting position of EVENT.\nEVENT should be a mouse click, drag, or key press event. If\nEVENT is nil, the value of ' Literal.String
|
|
"`posn-at-point'" Literal.String.Symbol
|
|
' is used instead.\n\nThe following accessor functions are used to access the elements\nof the position:\n\n' Literal.String
|
|
|
|
"`posn-window'" Literal.String.Symbol
|
|
': The window the event is in.\n' Literal.String
|
|
|
|
"`posn-area'" Literal.String.Symbol
|
|
': A symbol identifying the area the event occurred in,\nor nil if the event occurred in the text area.\n' Literal.String
|
|
|
|
"`posn-point'" Literal.String.Symbol
|
|
': The buffer position of the event.\n' Literal.String
|
|
|
|
"`posn-x-y'" Literal.String.Symbol
|
|
': The pixel-based coordinates of the event.\n' Literal.String
|
|
|
|
"`posn-col-row'" Literal.String.Symbol
|
|
': The estimated column and row corresponding to the\nposition of the event.\n' Literal.String
|
|
|
|
"`posn-actual-col-row'" Literal.String.Symbol
|
|
': The actual column and row corresponding to the\nposition of the event.\n' Literal.String
|
|
|
|
"`posn-string'" Literal.String.Symbol
|
|
": The string object of the event, which is either\nnil or (STRING . POSITION)'.\n" Literal.String
|
|
|
|
"`posn-image'" Literal.String.Symbol
|
|
': The image object of the event, if any.\n' Literal.String
|
|
|
|
"`posn-object'" Literal.String.Symbol
|
|
': The image or string object of the event, if any.\n' Literal.String
|
|
|
|
"`posn-timestamp'" Literal.String.Symbol
|
|
': The time the event occurred, in milliseconds.\n\nFor more information, see Info node ' Literal.String
|
|
'`' Literal.String
|
|
"(elisp)Click Events'." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-at-point' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-window' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'event-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the ending position of EVENT.\nEVENT should be a click, drag, or key press event.\n\nSee ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
' for a description of the value returned.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-at-point' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-window' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'event-click-count' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the multi-click count of EVENT, a click or drag event.\nThe return value is a positive integer.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Extracting fields of the positions in an event.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posnp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if OBJ appears to be a valid ' Literal.String
|
|
"`posn'" Literal.String.Symbol
|
|
' object specifying a window.\nIf OBJ is a valid ' Literal.String
|
|
"`posn'" Literal.String.Symbol
|
|
' object, but specifies a frame rather\nthan a window, return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: Correct the behavior of this function so that all valid' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `posn' objects are recognized, after updating other code that" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; depends on its present behavior.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'windowp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'atom' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';AREA-OR-POS.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';XOFFSET.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'obj' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';TIMESTAMP.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the window in POSITION.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-area' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the window area recorded in POSITION, or nil for the text area.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'area' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'area' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'area' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-point' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the buffer location in POSITION.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.\nReturns nil if POSITION does not correspond to any buffer location (e.g.\na click on a scroll bar).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'5' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'pt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'pt' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Apparently this can also be `vertical-scroll-bar' (bug#13979)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'pt' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'pt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-set-point' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Move point to POSITION.\nSelect the corresponding window as well.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'windowp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Position not in text area of window' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-point' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-point' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-x-y' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the x and y coordinates in POSITION.\nThe return value has the form (X . Y), where X and Y are given in\npixels. POSITION should be a list of the form returned by\n' Literal.String
|
|
|
|
"`event-start'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'declare-function' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'scroll-bar-scale' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'scroll-bar' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'num-denom' Name.Variable
|
|
' ' Text.Whitespace
|
|
'whole' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-col-row' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return the nominal column and row in POSITION, measured in characters.\nThe column and row values are approximations calculated from the x\nand y coordinates in POSITION and the frame's default character width\nand default line height, including spacing.\nFor a scroll-bar event, the result column is 0, and the row\ncorresponds to the vertical position of the click in the scroll bar.\nPOSITION should be a list of the form returned by the " Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'pair' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-x-y' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-or-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'framep' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'windowp' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'area' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-area' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame-or-window' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'area' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'vertical-scroll-bar" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-bar-scale' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pair' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-height' Name.Variable
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'area' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'horizontal-scroll-bar" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-bar-scale' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pair' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-width' Name.Variable
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: This should take line-spacing properties on' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; newlines into account.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'spacing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'display-graphic-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-selected-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'line-spacing' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-parameter' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'line-spacing" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'floatp' Name.Function
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'truncate' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'*' Name.Function
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-char-height' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'pair' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-char-width' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'pair' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-char-height' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'spacing' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-actual-col-row' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the window row number in POSITION and character number in that row.\n\nReturn nil if POSITION does not contain the actual position; in that case\n' Literal.String
|
|
|
|
'\\`' Literal.String
|
|
"posn-col-row' can be used to get approximate values.\nPOSITION should be a list of the form returned by the " Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.\n\nThis function does not account for the width on display, like the\nnumber of visual columns taken by a TAB or image. If you need\nthe coordinates of POSITION in character units, you should use\n' Literal.String
|
|
|
|
'\\`' Literal.String
|
|
"posn-col-row', not this function." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'6' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-timestamp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the timestamp of POSITION.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the string object of POSITION.\nValue is a cons (STRING . STRING-POS), or nil if not a string.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Apparently this can also be `handle' or `below-handle' (bug#13979)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-image' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the image object of POSITION.\nValue is a list (image ...), or nil if not an image.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'7' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-object' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the object (image or string) of POSITION.\nValue is a list (image ...) for an image object, a cons cell\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'STRING . STRING-POS) for a string object, and nil for a buffer position.\nPOSITION should be a list of the form returned by the ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
'\nand ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
' functions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-image' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'posn-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-object-x-y' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the x and y coordinates relative to the object of POSITION.\nThe return value has the form (DX . DY), where DX and DY are\ngiven in pixels. POSITION should be a list of the form returned\nby ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'8' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'posn-object-width-height' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the pixel width and height of the object of POSITION.\nThe return value has the form (WIDTH . HEIGHT). POSITION should\nbe a list of the form returned by ' Literal.String
|
|
"`event-start'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`event-end'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'9' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'position' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Obsolescent names for functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'window-dot" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'window-point" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'set-window-dot" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-window-point" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'read-input" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'read-string" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'show-buffer" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-window-buffer" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'eval-current-buffer" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'eval-buffer" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'string-to-int" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'string-to-number" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'forward-point" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'use (+ (point) N) instead.' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'buffer-has-markers-at" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.3' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'insert-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Mocklisp-compatibility insert function.\nLike the function ' Literal.String
|
|
"`insert'" Literal.String.Symbol
|
|
' except that any argument that is a number\nis converted into a string by expressing it in decimal.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'insert' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'el' Name.Variable
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'el' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'number-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'el' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'el' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'makehash' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'test' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'make-hash-table' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-hash-table' Name.Function
|
|
' ' Text.Whitespace
|
|
':test' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'test' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'eql" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'log10' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return (log X 10), the log base 10 of X.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'log' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.4' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'log' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'10' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; These are used by VM and some old programs' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'focus-frame" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'ignore" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'focus-frame" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'it does nothing.' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'unfocus-frame" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'ignore" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'unfocus-frame" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'it does nothing.' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'make-variable-frame-local" Literal.String.Symbol
|
|
'\n\t ' Text.Whitespace
|
|
'"' Literal.String
|
|
'explicitly check for a frame-parameter instead.' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
"'all-completions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'collection' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'predicate' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'unintern" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'obarray' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.3' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'indirect-function" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'25.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'redirect-frame-focus" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'focus-frame' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.3' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'decode-char" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'ch' Name.Variable
|
|
' ' Text.Whitespace
|
|
'charset' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'21.4' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'set-advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'encode-char" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'ch' Name.Variable
|
|
' ' Text.Whitespace
|
|
'charset' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'21.4' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Obsolescence declarations for variables, and aliases.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Special "default-FOO" variables which contain the default value of' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; the "FOO" variable are nasty. Their implementation is brittle, and' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; slows down several unrelated variable operations; furthermore, they' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; can lead to really odd behavior if you decide to make them' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; buffer-local.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Not used at all in Emacs, last time I checked:' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-mode-line-format" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'mode-line-format" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-header-line-format" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'header-line-format" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-line-spacing" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'line-spacing" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-abbrev-mode" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'abbrev-mode" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-ctl-arrow" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'ctl-arrow" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-truncate-lines" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'truncate-lines" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-left-margin" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'left-margin" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-tab-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'tab-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-case-fold-search" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'case-fold-search" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-left-margin-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'left-margin-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-right-margin-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'right-margin-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-left-fringe-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'left-fringe-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-right-fringe-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'right-fringe-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-fringes-outside-margins" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'fringes-outside-margins" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-scroll-bar-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'scroll-bar-width" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-vertical-scroll-bar" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'vertical-scroll-bar" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-indicate-empty-lines" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'indicate-empty-lines" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-indicate-buffer-boundaries" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'indicate-buffer-boundaries" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-fringe-indicator-alist" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'fringe-indicator-alist" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-fringe-cursor-alist" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'fringe-cursor-alist" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-scroll-up-aggressively" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'scroll-up-aggressively" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-scroll-down-aggressively" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'scroll-down-aggressively" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-fill-column" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'fill-column" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-cursor-type" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'cursor-type" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-cursor-in-non-selected-windows" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'cursor-in-non-selected-windows" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-buffer-file-coding-system" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'buffer-file-coding-system" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-major-mode" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'major-mode" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'default-enable-multibyte-characters" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'use enable-multibyte-characters or set-buffer-multibyte instead' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'define-key-rebound-commands" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'redisplay-end-trigger-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'jit-lock-register" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'deferred-action-list" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'post-command-hook" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'deferred-action-function" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'post-command-hook" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'redisplay-dont-pause" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.5' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'window-redisplay-end-trigger" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'set-window-redisplay-end-trigger" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'process-filter-multibyte-p" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'set-process-filter-multibyte" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Lisp manual only updated in 22.1.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-variable-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'executing-macro" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'executing-kbd-macro" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'before 19.34' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-variable-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'x-lost-selection-hooks" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
"'x-lost-selection-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-variable-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'x-sent-selection-hooks" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
"'x-sent-selection-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; This was introduced in 21.4 for pre-unicode unification. That' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; usage was rendered obsolete in 23.1 which uses Unicode internally.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Other uses are possible, so this variable is not _really_ obsolete,' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; but Stefan insists to mark it so.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete-variable' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'translation-table-for-input" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvaralias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'messages-buffer-max-lines" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'message-log-max" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Alternate names for functions - these are not being phased out.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'send-string" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'process-send-string" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'send-region" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'process-send-region" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'string=" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'string-equal" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'string<" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'string-lessp" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'move-marker" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-marker" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'rplaca" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'setcar" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'rplacd" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'setcdr" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'beep" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'ding" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';preserve lingual purity' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'indent-to-column" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'indent-to" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'backward-delete-char" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'delete-backward-char" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'search-forward-regexp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
"'re-search-forward" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'search-backward-regexp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
"'re-search-backward" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'int-to-string" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'number-to-string" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'store-match-data" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-match-data" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'chmod" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-file-modes" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'mkdir" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'make-directory" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
';; These are the XEmacs names:' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'point-at-eol" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'line-end-position" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'point-at-bol" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'line-beginning-position" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defalias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'user-original-login-name" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'user-login-name" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Hook manipulation functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Add to the value of HOOK the function FUNCTION.\nFUNCTION is not added if already present.\nFUNCTION is added (if necessary) at the beginning of the hook list\nunless the optional argument APPEND is non-nil, in which case\nFUNCTION is added at the end.\n\nThe optional fourth argument, LOCAL, if non-nil, says to modify\nthe hook's buffer-local value rather than its global value.\nThis makes the hook buffer-local, and it makes t a member of the\nbuffer-local value. That acts as a flag to run the hook\nfunctions of the global value as well as in the local value.\n\nHOOK should be a symbol, and FUNCTION may be any valid function. If\nHOOK is void, it is first set to nil. If HOOK's value is a single\nfunction, it is changed to a list of functions." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'boundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-boundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'local-variable-if-set-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-local-variable' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Detect the case where make-local-variable was used on a hook' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; and do what we used to do.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; If the hook value is a single function, turn it into a list.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'functionp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Do the actual addition if necessary' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'purecopy' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Set the actual variable' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
";; If HOOK isn't a permanent local," Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; but FUNCTION wants to survive a change of modes,' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; mark HOOK as partially permanent.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
"'permanent-local-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'permanent-local" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'permanent-local" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'permanent-local-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remove-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Remove from the value of HOOK the function FUNCTION.\nHOOK should be a symbol, and FUNCTION may be any valid function. If\nFUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the\nlist of hooks to run in HOOK, then nothing is done. See " Literal.String
|
|
"`add-hook'" Literal.String.Symbol
|
|
".\n\nThe optional third argument, LOCAL, if non-nil, says to modify\nthe hook's buffer-local value rather than its default value." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'boundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-boundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Do nothing if LOCAL is t but this hook has no local binding.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'local-variable-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Detect the case where make-local-variable was used on a hook' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; and do what we used to do.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'local-variable-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Remove the function, for both the list and the non-list cases.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'lambda" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'function' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; If the function is on the global hook, we need to shadow it locally' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';;(when (and local (member function (default-value hook))' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";;\t (not (member (cons 'not function) hook-value)))" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; (push (cons 'not function) hook-value))" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; Set the actual variable' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'local' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-local-variable' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hook-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'letrec' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'binders' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Bind variables according to BINDERS then eval BODY.\nThe value of the last form in BODY is returned.\nEach element of BINDERS is a list (SYMBOL VALUEFORM) which binds\nSYMBOL to the value of VALUEFORM.\nAll symbols are bound before the VALUEFORMs are evalled.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; Only useful in lexical-binding mode.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; As a special-form, we could implement it more efficiently (and cleanly,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; making the vars actually unbound during evaluation of the binders).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'let' Keyword
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'binders' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'binder' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'binder' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'binders' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-wrapper-hook' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Run BODY, using wrapper functions from HOOK with additional ARGS.\nHOOK is an abnormal hook. Each hook function in HOOK ' Literal.String
|
|
'\\"' Literal.String
|
|
'wraps' Literal.String
|
|
'\\"' Literal.String
|
|
'\naround the preceding ones, like a set of nested ' Literal.String
|
|
"`around'" Literal.String.Symbol
|
|
' advices.\n\nEach hook function should accept an argument list consisting of a\nfunction FUN, followed by the additional arguments in ARGS.\n\nThe first hook function in HOOK is passed a FUN that, if it is called\nwith arguments ARGS, performs BODY (i.e., the default operation).\nThe FUN passed to each successive hook function is defined based\non the preceding hook functions; if called with arguments ARGS,\nit does what the ' Literal.String
|
|
"`with-wrapper-hook'" Literal.String.Symbol
|
|
' call would do if the\npreceding hook functions were the only ones present in HOOK.\n\nEach hook function may call its FUN argument as many times as it wishes,\nincluding never. In that case, such a hook function acts to replace\nthe default definition altogether, and any preceding hook functions.\nOf course, a subsequent hook function may do the same thing.\n\nEach hook function definition is used to construct the FUN passed\nto the next hook function, if any. The last (or ' Literal.String
|
|
'\\"' Literal.String
|
|
'outermost' Literal.String
|
|
'\\"' Literal.String
|
|
')\nFUN is then called once.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'form' Name.Variable
|
|
' ' Text.Whitespace
|
|
'sexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'use a <foo>-function variable modified by ' Literal.String
|
|
"`add-function'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.4' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; We need those two gensyms because CL's lexical scoping is not available" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; for function arguments :-(' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'funs' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'funs' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'global' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'global' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'argssym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'args' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'runrestofhook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'runrestofhook' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Since the hook is a wrapper, the loop has to be done via' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; recursion: a given hook function will call its parameter in order to' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; continue looping.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'letrec' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'runrestofhook' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'global' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; `funs' holds the functions left on the hook and `global'" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; holds the functions left on the global part of the hook' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (in case the hook is local).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'runrestofhook' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'global' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply-partially' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'global' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'runrestofhook' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'global' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'funs' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'global' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Once there are no more functions on the hook, run' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; the original body.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'args' Name.Variable
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'argssym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'runrestofhook' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'hook' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; The global part of the hook, if any.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'local-variable-p' Name.Function
|
|
' ' Text.Whitespace
|
|
"',hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-value' Name.Function
|
|
' ' Text.Whitespace
|
|
"',hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Add ELEMENT to the value of LIST-VAR if it isn't there yet.\nThe test for presence of ELEMENT is done with " Literal.String
|
|
"`equal'" Literal.String.Symbol
|
|
", or with\nCOMPARE-FN if that's non-nil.\nIf ELEMENT is added, it is added at the beginning of the list,\nunless the optional argument APPEND is non-nil, in which case\nELEMENT is added at the end.\n\nThe return value is the new value of LIST-VAR.\n\nThis is handy to add some elements to configuration variables,\nbut please do not abuse it in Elisp code, where you are usually\nbetter off using " Literal.String
|
|
"`push'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`cl-pushnew'" Literal.String.Symbol
|
|
'.\n\nIf you want to use ' Literal.String
|
|
"`add-to-list'" Literal.String.Symbol
|
|
' on a variable that is not\ndefined until a certain package is loaded, you should put the\ncall to ' Literal.String
|
|
"`add-to-list'" Literal.String.Symbol
|
|
' into a hook function that will be run only\nafter loading the package. ' Literal.String
|
|
"`eval-after-load'" Literal.String.Symbol
|
|
' provides one way to\ndo this. In some cases other hooks, such as major mode hooks,\ncan do the job.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compiler-macro' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'exp' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; FIXME: Something like this could be used for `set' as well." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'special-variable-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp-const-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'exp' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eval' Name.Function
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'msg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
"`add-to-list'" Literal.String.Symbol
|
|
" can't use lexical var " Literal.String
|
|
"`%s'" Literal.String.Symbol
|
|
'; use ' Literal.String
|
|
"`push'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`cl-pushnew'" Literal.String.Symbol
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'sym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Big ugly hack so we only output a warning during' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; byte-compilation, and so we can use' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; byte-compile-not-lexical-var-p to silence the warning' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; when a defvar has been seen but not yet executed.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'warnfun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: We should also emit a warning for let-bound' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; variables with dynamic binding.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
'sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'byte-compile--lexical-environment' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'byte-compile-log-warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'msg' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
':error' Name.Builtin
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'code' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp-let2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'macroexp-copyable-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'require' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'cl-lib" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'cl-member' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
':test' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'compare-fn' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; For bootstrapping reasons, don't rely on" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; cl--compiler-macro-member for the base case.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'sym' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp--compiling-p' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'code' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'macroexp--funcall-if-compiled' Name.Variable
|
|
' ' Text.Whitespace
|
|
"',warnfun" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'code' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'eq" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'eql" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'memql' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'compare-fn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'append' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-to-ordered-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'order' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Add ELEMENT to the value of LIST-VAR if it isn't there yet.\nThe test for presence of ELEMENT is done with " Literal.String
|
|
"`eq'" Literal.String.Symbol
|
|
".\n\nThe resulting list is reordered so that the elements are in the\norder given by each element's numeric list order. Elements\nwithout a numeric list order are placed at the end of the list.\n\nIf the third optional argument ORDER is a number (integer or\nfloat), set the element's list order to the given value. If\nORDER is nil or omitted, do not change the numeric order of\nELEMENT. If ORDER has any other value, remove the numeric order\nof ELEMENT if it has one.\n\nThe list order for each element is stored in LIST-VAR's\n" Literal.String
|
|
|
|
"`list-order'" Literal.String.Symbol
|
|
' property.\n\nThe return value is the new value of LIST-VAR.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'ordering' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'list-order" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'ordering' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'list-order" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'ordering' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-hash-table' Name.Function
|
|
' ' Text.Whitespace
|
|
':weakness' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'key" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
':test' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'eq" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'order' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'puthash' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'order' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'order' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'ordering' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sort' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'list-var' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'oa' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'gethash' Name.Function
|
|
' ' Text.Whitespace
|
|
'a' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ordering' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'ob' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'gethash' Name.Function
|
|
' ' Text.Whitespace
|
|
'b' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ordering' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'oa' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ob' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'oa' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ob' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'oa' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-to-history' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'history-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keep-all' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Add NEWELT to the history list stored in the variable HISTORY-VAR.\nReturn the new history list.\nIf MAXELT is non-nil, it specifies the maximum length of the history.\nOtherwise, the maximum history length is the value of the ' Literal.String
|
|
"`history-length'" Literal.String.Symbol
|
|
'\nproperty on symbol HISTORY-VAR, if set, or the value of the ' Literal.String
|
|
"`history-length'" Literal.String.Symbol
|
|
'\nvariable.\nRemove duplicates of NEWELT if ' Literal.String
|
|
"`history-delete-duplicates'" Literal.String.Symbol
|
|
' is non-nil.\nIf optional fourth arg KEEP-ALL is non-nil, add NEWELT to history even\nif it is empty or a duplicate.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'history-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'history-length" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'history-length' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'history' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'history-var' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'keep-all' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'keep-all' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'history-delete-duplicates' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'newelt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nthcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'maxelt' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'history-var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'history' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Mode hooks.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'delay-mode-hooks' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'If non-nil, ' Literal.String
|
|
"`run-mode-hooks'" Literal.String.Symbol
|
|
' should delay running the hooks.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-mode-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'List of delayed mode hooks waiting to be run.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-variable-buffer-local' Name.Function
|
|
' ' Text.Whitespace
|
|
"'delayed-mode-hooks" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
"'delay-mode-hooks" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'permanent-local" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'change-major-mode-after-body-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run in major mode functions, before the mode hooks.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'after-change-major-mode-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run at the very end of major mode functions.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'run-mode-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'hooks' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Run mode hooks ' Literal.String
|
|
"`delayed-mode-hooks'" Literal.String.Symbol
|
|
' and HOOKS, or delay HOOKS.\nIf the variable ' Literal.String
|
|
"`delay-mode-hooks'" Literal.String.Symbol
|
|
' is non-nil, does not run any hooks,\njust adds the HOOKS to the list ' Literal.String
|
|
"`delayed-mode-hooks'" Literal.String.Symbol
|
|
'.\nOtherwise, runs hooks in the sequence: ' Literal.String
|
|
"`change-major-mode-after-body-hook'" Literal.String.Symbol
|
|
',\n' Literal.String
|
|
|
|
"`delayed-mode-hooks'" Literal.String.Symbol
|
|
' (in reverse order), HOOKS, and finally\n' Literal.String
|
|
|
|
"`after-change-major-mode-hook'" Literal.String.Symbol
|
|
'. Major mode functions should use\nthis instead of ' Literal.String
|
|
"`run-hooks'" Literal.String.Symbol
|
|
' when running their FOO-mode-hook.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'delay-mode-hooks' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
';; Delaying case.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hooks' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'delayed-mode-hooks' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Normal case, just run the hook as before plus any delayed hooks.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'delayed-mode-hooks' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'hooks' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-mode-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"'run-hooks" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
"'change-major-mode-after-body-hook" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'hooks' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-hooks' Name.Function
|
|
' ' Text.Whitespace
|
|
"'after-change-major-mode-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'delay-mode-hooks' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY, but delay any ' Literal.String
|
|
"`run-mode-hooks'" Literal.String.Symbol
|
|
'.\nThese hooks will be executed by the first following call to\n' Literal.String
|
|
|
|
"`run-mode-hooks'" Literal.String.Symbol
|
|
' that occurs outside any ' Literal.String
|
|
"`delayed-mode-hooks'" Literal.String.Symbol
|
|
' form.\nOnly affects hooks run in the current buffer.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-local-variable' Name.Function
|
|
' ' Text.Whitespace
|
|
"'delay-mode-hooks" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'delay-mode-hooks' Name.Builtin
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; PUBLIC: find if the current mode derives from another.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'derived-mode-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'modes' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Non-nil if the current major mode is derived from one of MODES.\nUses the ' Literal.String
|
|
"`derived-mode-parent'" Literal.String.Symbol
|
|
' property of the symbol to trace backwards.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'major-mode' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'modes' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'derived-mode-parent" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'parent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Minor modes.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; If a minor mode is not defined with define-minor-mode,' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; add it here explicitly.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; isearch-mode is deliberately excluded, since you should' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; not call it yourself.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'minor-mode-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'auto-save-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
'auto-fill-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
'abbrev-mode' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'overwrite-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
'view-mode' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'hs-minor-mode' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'List of all minor mode functions.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-minor-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Register a new minor mode.\n\nThis is an XEmacs-compatibility function. Use ' Literal.String
|
|
"`define-minor-mode'" Literal.String.Symbol
|
|
' instead.\n\nTOGGLE is a symbol which is the name of a buffer-local variable that\nis toggled on or off to say whether the minor mode is active or not.\n\nNAME specifies what will appear in the mode line when the minor mode\nis active. NAME should be either a string starting with a space, or a\nsymbol whose value is such a string.\n\nOptional KEYMAP is the keymap for the minor mode that will be added\nto ' Literal.String
|
|
"`minor-mode-map-alist'" Literal.String.Symbol
|
|
'.\n\nOptional AFTER specifies that TOGGLE should be added after AFTER\nin ' Literal.String
|
|
"`minor-mode-alist'" Literal.String.Symbol
|
|
'.\n\nOptional TOGGLE-FUN is an interactive function to toggle the mode.\nIt defaults to (and should by convention be) TOGGLE.\n\nIf TOGGLE has a non-nil ' Literal.String
|
|
'`' Literal.String
|
|
":included' property, an entry for the mode is\nincluded in the mode-line minor mode menu.\nIf TOGGLE has a " Literal.String
|
|
'`' Literal.String
|
|
":menu-tag', that is used for the menu item's label." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-list' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
':minor-mode-function' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Add the name to the minor-mode-alist.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'existing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'existing' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'existing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-alist' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'caar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'rest' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'rest' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'minor-mode-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Add the toggle to the minor-modes menu if requested.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
':included' Name.Builtin
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'mode-line-mode-menu' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vector' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'menu-item" Literal.String.Symbol
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
':menu-tag' Name.Builtin
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'mode-name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'mode-name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[^ ]+' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'mode-name' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' (' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'mode-name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
')' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'toggle-fun' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
':button' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
':toggle' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; Add the map to the minor-mode-map-alist.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'existing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-map-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'existing' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'existing' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minor-mode-map-alist' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'caar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'rest' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'found' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'rest' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'toggle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'minor-mode-map-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Load history' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'autoloadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Non-nil if OBJECT is an autoload.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'autoload" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; (defun autoload-type (object)' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; "Returns the type of OBJECT or `function\' or `command\' if the type is nil.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; OBJECT should be an autoload object."' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; (when (autoloadp object)' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; (let ((type (nth 3 object)))' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; (cond ((null type) (if (nth 2 object) 'command 'function))" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; ((eq 'keymap t) 'macro)" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; (type)))))' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
";; (defalias 'autoload-file #'cadr" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; "Return the name of the file from which AUTOLOAD will be loaded.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; \\n\\(fn AUTOLOAD)")' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'symbol-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the name of the file that defined SYMBOL.\nThe value is normally an absolute file name. It can also be nil,\nif the definition is not associated with any file. If SYMBOL\nspecifies an autoloaded function, the value can be a relative\nfile name without extension.\n\nIf TYPE is nil, then any kind of definition is acceptable. If\nTYPE is ' Literal.String
|
|
"`defun'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`defvar'" Literal.String.Symbol
|
|
', or ' Literal.String
|
|
"`defface'" Literal.String.Symbol
|
|
', that specifies function\ndefinition, variable definition, or face definition only.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'defun" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'autoloadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'files' Name.Variable
|
|
' ' Text.Whitespace
|
|
'load-history' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'defvar" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Variables are present just as their names.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Other types are represented as (TYPE . NAME).' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; We accept all types, so look for variable def' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; and then for any other kind.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'rassq' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'files' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'locate-library' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'library' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'nosuffix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'path' Name.Variable
|
|
' ' Text.Whitespace
|
|
'interactive-call' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Show the precise file name of Emacs library LIBRARY.\nLIBRARY should be a relative file name of the library, a string.\nIt can omit the suffix (a.k.a. file-name extension) if NOSUFFIX is\nnil (which is the default, see below).\nThis command searches the directories in ' Literal.String
|
|
"`load-path'" Literal.String.Symbol
|
|
' like ' Literal.String
|
|
'`' Literal.String
|
|
'\\\\' Literal.String
|
|
"[load-library]'\nto find the file that " Literal.String
|
|
'`' Literal.String
|
|
'\\\\' Literal.String
|
|
"[load-library] RET LIBRARY RET' would load.\nOptional second arg NOSUFFIX non-nil means don't add suffixes " Literal.String
|
|
"`load-suffixes'" Literal.String.Symbol
|
|
'\nto the specified name LIBRARY.\n\nIf the optional third arg PATH is specified, that list of directories\nis used instead of ' Literal.String
|
|
"`load-path'" Literal.String.Symbol
|
|
'.\n\nWhen called from a program, the file name is normally returned as a\nstring. When run interactively, the argument INTERACTIVE-CALL is t,\nand the file name is displayed in the echo area.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'completing-read' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Locate library: ' Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply-partially' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
"'locate-file-completion-table" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'load-path' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-load-suffixes' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n\t\t ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'locate-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'library' Name.Variable
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'path' Name.Variable
|
|
' ' Text.Whitespace
|
|
'load-path' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'nosuffix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-load-suffixes' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'load-file-rep-suffixes' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'interactive-call' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Library is file %s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'abbreviate-file-name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'No library %s in search path' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'library' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Process stuff.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-lines' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'program' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute PROGRAM with ARGS, returning its output as a list of lines.\nSignal an error if the program returns with a non-zero exit status.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-temp-buffer' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'status' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"'call-process" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'program' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'status' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s exited with status %s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'program' Name.Variable
|
|
' ' Text.Whitespace
|
|
'status' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lines' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eobp' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'lines' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-substring-no-properties' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'line-beginning-position' Name.Function
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'line-end-position' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'lines' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'forward-line' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'lines' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-live-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Returns non-nil if PROCESS is alive.\nA process is considered alive if its status is ' Literal.String
|
|
"`run'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`open'" Literal.String.Symbol
|
|
',\n' Literal.String
|
|
|
|
"`listen'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`connect'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`stop'" Literal.String.Symbol
|
|
'. Value is nil if PROCESS is not a\nprocess.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'processp' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-status' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'run' Name.Variable
|
|
' ' Text.Whitespace
|
|
'open' Name.Variable
|
|
' ' Text.Whitespace
|
|
'listen' Name.Variable
|
|
' ' Text.Whitespace
|
|
'connect' Name.Variable
|
|
' ' Text.Whitespace
|
|
'stop' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; compatibility' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'make-obsolete' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
"'process-kill-without-query" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'use ' Literal.String
|
|
"`process-query-on-exit-flag'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`set-process-query-on-exit-flag'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-kill-without-query' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'_flag' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Say no query needed if PROCESS is running when Emacs is exited.\nOptional second argument if non-nil says to require a query.\nValue is t if a query was formerly required.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-query-on-exit-flag' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-process-query-on-exit-flag' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'old' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-kill-buffer-query-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Ask before killing a buffer that has a running process.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'process' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-buffer-process' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-status' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'run' Name.Variable
|
|
' ' Text.Whitespace
|
|
'stop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'open' Name.Variable
|
|
' ' Text.Whitespace
|
|
'listen' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-query-on-exit-flag' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'yes-or-no-p' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Buffer %S has a running process; kill it? ' Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'add-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'kill-buffer-query-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'process-kill-buffer-query-function" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; process plist management' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-get' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process' Name.Variable
|
|
' ' Text.Whitespace
|
|
'propname' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return the value of PROCESS' PROPNAME property.\nThis is the last value stored with " Literal.String
|
|
'`' Literal.String
|
|
"(process-put PROCESS PROPNAME VALUE)'." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-plist' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'propname' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-put' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process' Name.Variable
|
|
' ' Text.Whitespace
|
|
'propname' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Change PROCESS' PROPNAME property to VALUE.\nIt can be retrieved with " Literal.String
|
|
'`' Literal.String
|
|
"(process-get PROCESS PROPNAME)'." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-process-plist' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'plist-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-plist' Name.Function
|
|
' ' Text.Whitespace
|
|
'process' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'propname' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Input and display facilities.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'read-key-empty-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'read-key-delay' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0.01' Literal.Number.Float
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';Fast enough for 100Hz repeat rate, hopefully.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'read-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Read a key from the keyboard.\nContrary to ' Literal.String
|
|
"`read-event'" Literal.String.Symbol
|
|
' this will not return a raw event but instead will\nobey the input decoding and translations usually done by ' Literal.String
|
|
"`read-key-sequence'" Literal.String.Symbol
|
|
".\nSo escape sequences and keyboard encoding are taken into account.\nWhen there's an ambiguity because the key looks like the prefix of\nsome sort of escape sequence, the ambiguity is resolved via " Literal.String
|
|
"`read-key-delay'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; This overriding-terminal-local-map binding also happens to' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; disable quail's input methods, so although read-key-sequence" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; always inherits the input method, in practice read-key does not' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; inherit the input method (at least not if it's based on quail)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'overriding-terminal-local-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'overriding-local-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'read-key-empty-map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'echo-keystrokes' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'old-global-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-global-map' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'timer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-with-idle-timer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; Wait long enough that Emacs has the time to receive and' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; process all the raw events associated with the single-key.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; But don't wait too long, or the user may find the delay" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; annoying (or keep hitting more keys which may then get' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; lost or misinterpreted).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; This is only relevant for keys which Emacs perceives as' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "prefixes", such as C-x (because of the C-x 8 map in' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; key-translate-table and the C-x @ map in function-key-map)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; or ESC (because of terminal escape sequences in' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; input-decode-map).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'read-key-delay' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'keys' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'this-command-keys-vector' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; `keys' is non-empty, so the user has hit at least" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; one key; there's no point waiting any longer, even" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; though read-key-sequence thinks we should wait' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; for more input to decide how to interpret the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; current input.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'throw' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'read-key" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'use-global-map' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Don't hide the menu-bar and tool-bar entries." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'menu-bar' Name.Variable
|
|
']' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'global-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'menu-bar' Name.Variable
|
|
']' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'tool-bar' Name.Variable
|
|
']' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; This hack avoids evaluating the :filter (Bug#9922).' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'tool-bar" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'global-map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'global-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'tool-bar' Name.Variable
|
|
']' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'keys' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'catch' Keyword
|
|
' ' Text.Whitespace
|
|
"'read-key" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-key-sequence-vector' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'mode-line' Name.Variable
|
|
' ' Text.Whitespace
|
|
'header-line' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'left-fringe' Name.Variable
|
|
' ' Text.Whitespace
|
|
'right-fringe' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'keys' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cancel-timer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'timer' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'use-global-map' Name.Function
|
|
' ' Text.Whitespace
|
|
'old-global-map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'read-passwd-map' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
";; BEWARE: `defconst' would purecopy it, breaking the sharing with" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; minibuffer-local-map along the way!' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-sparse-keymap' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-keymap-parent' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'minibuffer-local-map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'define-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\C' Literal.String
|
|
'-u' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'delete-minibuffer-contents' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';bug#12570' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Keymap used while reading passwords.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'read-passwd' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'confirm' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Read a password, prompting with PROMPT, and return it.\nIf optional CONFIRM is non-nil, read the password twice to make sure.\nOptional DEFAULT is a default password to use instead of empty input.\n\nThis function echoes ' Literal.String
|
|
"`.'" Literal.String.Symbol
|
|
' for each character that the user types.\nYou could let-bind ' Literal.String
|
|
"`read-hide-char'" Literal.String.Symbol
|
|
' to another hiding character, though.\n\nOnce the caller uses the password, it can erase the password\nby doing (clear-string STRING).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'confirm' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'success' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'success' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'first' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-passwd' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'second' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-passwd' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Confirm password: ' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'first' Name.Variable
|
|
' ' Text.Whitespace
|
|
'second' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'arrayp' Name.Function
|
|
' ' Text.Whitespace
|
|
'second' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'clear-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'second' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'success' Name.Variable
|
|
' ' Text.Whitespace
|
|
'first' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'arrayp' Name.Function
|
|
' ' Text.Whitespace
|
|
'first' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'clear-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'first' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'arrayp' Name.Function
|
|
' ' Text.Whitespace
|
|
'second' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'clear-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'second' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Password not repeated accurately; please start over' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sit-for' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'success' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'hide-chars-fun' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'_len' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'clear-this-command-keys' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'max' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'minibuffer-prompt-end' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dotimes' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
"'display" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'read-hide-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?.' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'minibuf' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'minibuffer-with-setup-hook' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'minibuf' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Turn off electricity.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'post-self-insert-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'select-active-regions' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'use-local-map' Name.Function
|
|
' ' Text.Whitespace
|
|
'read-passwd-map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'inhibit-modification-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';bug#15501.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq-local' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'show-paren-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\t\t' Text.Whitespace
|
|
';bug#16091.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'add-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'after-change-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'hide-chars-fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
"'local" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'enable-recursive-minibuffers' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-hide-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'read-hide-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?.' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; t = "no history"' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'minibuf' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'minibuf' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; Not sure why but it seems that there might be cases where the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; minibuffer is not always properly reset later on, so undo' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; whatever we've done here (bug#11392)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'after-change-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'hide-chars-fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'local" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-local-variable' Name.Function
|
|
' ' Text.Whitespace
|
|
"'post-self-insert-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; And of course, don't keep the sensitive data around." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'erase-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'read-number' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Read a numeric value in the minibuffer, prompting with PROMPT.\nDEFAULT specifies a default value to return if the user just types RET.\nThe value of DEFAULT is inserted into PROMPT.\nThis function is used by the ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
' code letter ' Literal.String
|
|
"`n'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'default1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'default1' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'):[ ' Literal.String
|
|
'\\t' Literal.String
|
|
']*' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' (default %s)' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'default1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[ ' Literal.String
|
|
'\\t' Literal.String
|
|
']*' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' (default %s) ' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'default1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-from-minibuffer' Name.Function
|
|
'\n\t\t ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
"'number-to-string" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delq' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'number-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'default' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'default1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Please enter a number.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sit-for' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'n' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'read-char-choice' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'chars' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'inhibit-keyboard-quit' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Read and return one of CHARS, prompting for PROMPT.\nAny input that is not one of CHARS is ignored.\n\nIf optional argument INHIBIT-KEYBOARD-QUIT is non-nil, ignore\nkeyboard-quit events while waiting for a valid input.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'chars' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Called ' Literal.String
|
|
"`read-char-choice'" Literal.String.Symbol
|
|
' without valid char choices' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
' ' Text.Whitespace
|
|
'show-help' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'helpbuf' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' *Char Help*' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'cursor-in-echo-area' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'executing-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'executing-kbd-macro' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'esc-flag' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-window-excursion' Name.Builtin
|
|
'\t ' Text.Whitespace
|
|
'; in case we call help-form-show' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
"'face" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'propertize' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'face" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'minibuffer-prompt" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-quit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inhibit-keyboard-quit' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'show-help' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'helpbuf' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'helpbuf' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; If caller has set help-form, that's enough." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
";; They don't explicitly have to add help-char to chars." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'help-form' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'help-char' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'show-help' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'help-form-show' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'chars' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'done' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'executing-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'-1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; read-event returns -1 if we are in a kbd macro and' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; there are no more events in the macro. Attempt to' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; get an event interactively.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'executing-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inhibit-keyboard-quit' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'esc-flag' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\e' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'esc-flag' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'?\\C' Literal.String.Char
|
|
'-g' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\e' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keyboard-quit' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Display the question with the answer. But without cursor-in-echo-area.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s%s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'sit-for' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'seconds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'obsolete' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Redisplay, then wait for SECONDS seconds. Stop when input is available.\nSECONDS may be a floating-point value.\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
"On operating systems that do not support waiting for fractions of a\nsecond, floating-point values are rounded down to the nearest integer.)\n\nIf optional arg NODISP is t, don't redisplay, just wait for input.\nRedisplay does not happen if input is available before it starts.\n\nValue is t if waited the full time with no input arriving, and nil otherwise.\n\nAn obsolete, but still supported form is\n" Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'sit-for SECONDS &optional MILLISECONDS NODISP)\nwhere the optional arg MILLISECONDS specifies an additional wait period,\nin milliseconds; this was useful when Emacs was built without\nfloating point support.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'seconds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'22.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; This used to be implemented in C until the following discussion:' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; http://lists.gnu.org/archive/html/emacs-devel/2006-07/msg00401.html' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; Then it was moved here using an implementation based on an idle timer,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; which was then replaced by the use of read-event.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'seconds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'seconds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'*' Name.Function
|
|
' ' Text.Whitespace
|
|
'1e-3' Literal.Number.Float
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'obsolete' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'obsolete' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'noninteractive' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sleep-for' Name.Function
|
|
' ' Text.Whitespace
|
|
'seconds' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'input-pending-p' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'seconds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'redisplay' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'nodisp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'redisplay' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; FIXME: we should not read-event here at all, because it's much too" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; difficult to reliably "undo" a read-event by pushing it onto' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; unread-command-events.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; For bug#14782, we need read-event to do the keyboard-coding-system' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; decoding (hence non-nil as second arg under POSIX ttys).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; For bug#15614, we need read-event not to inherit-input-method.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; So we temporarily suspend input-method-function.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'read' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'input-method-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-event' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'seconds' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'read' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; https://lists.gnu.org/archive/html/emacs-devel/2006-10/msg00394.html' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; We want `read' appear in the next command's this-command-event" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; but not in the current one.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; By pushing (cons t read), we indicate that `read' has not" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; yet been recorded in this-command-keys, so it will be recorded' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; next time it's read." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; And indeed the `seconds' argument to read-event correctly" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; prevented recording this event in the current command's" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; this-command-keys.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'read' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'unread-command-events' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Behind display-popup-menus-p test.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'declare-function' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'x-popup-dialog' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'menu.c' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'position' Name.Variable
|
|
' ' Text.Whitespace
|
|
'contents' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'header' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'y-or-n-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Ask user a ' Literal.String
|
|
'\\"' Literal.String
|
|
'y or n' Literal.String
|
|
'\\"' Literal.String
|
|
' question. Return t if answer is ' Literal.String
|
|
'\\"' Literal.String
|
|
'y' Literal.String
|
|
'\\"' Literal.String
|
|
'.\nPROMPT is the string to display to ask the question. It should\nend in a space; ' Literal.String
|
|
"`y-or-n-p'" Literal.String.Symbol
|
|
' adds ' Literal.String
|
|
'\\"' Literal.String
|
|
'(y or n) ' Literal.String
|
|
'\\"' Literal.String
|
|
' to it.\n\nNo confirmation of the answer is requested; a single character is\nenough. SPC also means yes, and DEL means no.\n\nTo be precise, this function translates user input into responses\nby consulting the bindings in ' Literal.String
|
|
"`query-replace-map'" Literal.String.Symbol
|
|
'; see the\ndocumentation of that variable for more information. In this\ncase, the useful bindings are ' Literal.String
|
|
"`act'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`skip'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`recenter'" Literal.String.Symbol
|
|
',\n' Literal.String
|
|
|
|
"`scroll-up'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`scroll-down'" Literal.String.Symbol
|
|
', and ' Literal.String
|
|
"`quit'" Literal.String.Symbol
|
|
'.\nAn ' Literal.String
|
|
"`act'" Literal.String.Symbol
|
|
' response means yes, and a ' Literal.String
|
|
"`skip'" Literal.String.Symbol
|
|
' response means no.\nA ' Literal.String
|
|
"`quit'" Literal.String.Symbol
|
|
' response means to invoke ' Literal.String
|
|
"`keyboard-quit'" Literal.String.Symbol
|
|
'.\nIf the user enters ' Literal.String
|
|
"`recenter'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`scroll-up'" Literal.String.Symbol
|
|
', or ' Literal.String
|
|
"`scroll-down'" Literal.String.Symbol
|
|
'\nresponses, perform the requested window recentering or scrolling\nand ask again.\n\nUnder a windowing system a dialog box will be used if ' Literal.String
|
|
"`last-nonmenu-event'" Literal.String.Symbol
|
|
'\nis nil and ' Literal.String
|
|
"`use-dialog-box'" Literal.String.Symbol
|
|
' is non-nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; ¡Beware! when I tried to edebug this code, Emacs got into a weird state' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; where all the keys were unbound (i.e. it somehow got triggered' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; within read-key, apparently). I had to kill it.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'recenter" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'padded' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'dialog' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'l' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'?\\s' Literal.String.Char
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'l' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'dialog' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'(y or n) ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'noninteractive' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'padded' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp-prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'act' Name.Variable
|
|
' ' Text.Whitespace
|
|
'skip' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'temp-prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'y' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Y' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'act" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'n' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'N' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'skip" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'temp-prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Please answer y or n. ' Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'display-popup-menus-p' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'last-nonmenu-event' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'use-dialog-box' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'padded' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x-popup-dialog' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
',' Operator
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'Yes' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'act' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'No' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'skip' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'padded' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'scroll-actions' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'recenter' Name.Function
|
|
' ' Text.Whitespace
|
|
'scroll-up' Name.Function
|
|
' ' Text.Whitespace
|
|
'scroll-down' Name.Function
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'scroll-other-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'scroll-other-window-down' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'key' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'cursor-in-echo-area' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'minibuffer-auto-raise' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'raise-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'minibuffer-window' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'propertize' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'scroll-actions' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Please answer y or n. ' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
"'face" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'minibuffer-prompt" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'query-replace-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vector' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'skip' Name.Variable
|
|
' ' Text.Whitespace
|
|
'act' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'recenter" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'recenter' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'scroll-up" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ignore-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-up-command' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'scroll-down" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ignore-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-down-command' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'scroll-other-window" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ignore-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-other-window' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'scroll-other-window-down" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ignore-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'scroll-other-window-down' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'exit-prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'quit' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'key' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\e' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'quit" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ding' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'discard-input' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'ret' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'answer' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'act" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'noninteractive' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s%c' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'prompt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'ret' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?y' Literal.String.Char
|
|
' ' Text.Whitespace
|
|
'?n' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'ret' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;; Atomic change groups.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'atomic-change-group' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Perform BODY as an atomic change group.\nThis means that if BODY exits abnormally,\nall of its changes to the current buffer are undone.\nThis works regardless of whether undo is enabled in the buffer.\n\nThis mechanism is transparent to ordinary use of undo;\nif undo is enabled in the buffer and BODY succeeds, the\nuser can undo the change normally.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'handle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'--change-group-handle--' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'success' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'--change-group-success--' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'handle' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prepare-change-group' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Don't truncate any undo data in the middle of this." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'undo-outer-limit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'undo-limit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'most-positive-fixnum' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'undo-strong-limit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'most-positive-fixnum' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'success' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
';; This is inside the unwind-protect because' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; it enables undo if that was disabled; we need' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; to make sure that it gets disabled again.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'activate-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'success' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Either of these functions will disable undo' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; if it was disabled before.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'success' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'accept-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cancel-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'prepare-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return a handle for the current buffer's state, for a change group.\nIf you specify BUFFER, make a handle for BUFFER's state instead.\n\nPass the handle to " Literal.String
|
|
"`activate-change-group'" Literal.String.Symbol
|
|
' afterward to initiate\nthe actual changes of the change group.\n\nTo finish the change group, call either ' Literal.String
|
|
"`accept-change-group'" Literal.String.Symbol
|
|
' or\n' Literal.String
|
|
|
|
"`cancel-change-group'" Literal.String.Symbol
|
|
' passing the same handle as argument. Call\n' Literal.String
|
|
|
|
"`accept-change-group'" Literal.String.Symbol
|
|
' to accept the changes in the group as final;\ncall ' Literal.String
|
|
"`cancel-change-group'" Literal.String.Symbol
|
|
' to undo them all. You should use\n' Literal.String
|
|
|
|
"`unwind-protect'" Literal.String.Symbol
|
|
' to make sure the group is always finished. The call\nto ' Literal.String
|
|
"`activate-change-group'" Literal.String.Symbol
|
|
' should be inside the ' Literal.String
|
|
"`unwind-protect'" Literal.String.Symbol
|
|
".\nOnce you finish the group, don't use the handle again--don't try to\nfinish the same group twice. For a simple example of correct use, see\nthe source code of " Literal.String
|
|
"`atomic-change-group'" Literal.String.Symbol
|
|
'.\n\nThe handle records only the specified buffer. To make a multibuffer\nchange group, call this function once for each buffer you want to\ncover, then use ' Literal.String
|
|
"`nconc'" Literal.String.Symbol
|
|
' to combine the returned values, like this:\n\n (nconc (prepare-change-group buffer-1)\n (prepare-change-group buffer-2))\n\nYou can then activate that multibuffer change group with a single\ncall to ' Literal.String
|
|
"`activate-change-group'" Literal.String.Symbol
|
|
' and finish it with a single call\nto ' Literal.String
|
|
"`accept-change-group'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`cancel-change-group'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'activate-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Activate a change group made with ' Literal.String
|
|
"`prepare-change-group'" Literal.String.Symbol
|
|
' (which see).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'accept-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Finish a change group made with ' Literal.String
|
|
"`prepare-change-group'" Literal.String.Symbol
|
|
' (which see).\nThis finishes the change group by accepting its changes as final.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'cancel-change-group' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Finish a change group made with ' Literal.String
|
|
"`prepare-change-group'" Literal.String.Symbol
|
|
' (which see).\nThis finishes the change group by reverting all of its changes.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'handle' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-restriction' Keyword
|
|
'\n\t' Text.Whitespace
|
|
';; Widen buffer temporarily so if the buffer was narrowed within' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
";; the body of `atomic-change-group' all changes can be undone." Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'widen' Name.Function
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old-car' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'old-cdr' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Temporarily truncate the undo log at ELT.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'last-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'undo" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'undo-start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Make sure there's no confusion." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'last' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pending-undo-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Undoing to some unrelated state' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Undo it all.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'pending-undo-list' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'undo-more' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Reset the modified cons cell ELT to its original content.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'old-car' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'old-cdr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Revert the undo info to what it was when we grabbed the state.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Display-related functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; For compatibility.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'redraw-modeline" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
"'force-mode-line-update" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.3' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'momentary-string-display' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Momentarily display STRING in the buffer at POS.\nDisplay remains until next event is input.\nIf POS is a marker, only its position is used; its buffer is ignored.\nOptional third arg EXIT-CHAR can be a character, event or event\ndescription list. EXIT-CHAR defaults to SPC. If the input is\nEXIT-CHAR it is swallowed; otherwise it is then available as\ninput (as a command if nothing else).\nDisplay MESSAGE (optional fourth arg) in the echo area.\nIf MESSAGE is nil, instructions to type EXIT-CHAR are displayed there.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
' ' Text.Whitespace
|
|
'?\\s' Literal.String.Char
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'ol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'after-string" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; To avoid trouble with out-of-bounds position' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; If the string end is off screen, recenter now.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'recenter' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-height' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Type %s to continue editing.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'single-key-description' Name.Function
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-key' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; `exit-char' can be an event, or an event description list." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'event' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'event-convert-list' Name.Function
|
|
' ' Text.Whitespace
|
|
'exit-char' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'unread-command-events' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'this-single-command-raw-keys' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Overlay operations' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'copy-overlay' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a copy of overlay O.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'o1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; FIXME: there's no easy way to find the" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; insertion-type of the two markers.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'o1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'o1' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'o1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'props' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'props' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'o1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'props' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'props' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'o1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remove-overlays' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Clear BEG and END of overlays whose property NAME has value VAL.\nOverlays might be moved and/or split.\nBEG and END default respectively to the beginning and end of buffer.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; This speeds up the loops over overlays.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-max' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-recenter' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'o' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlays-in' Name.Function
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; Either push this overlay outside beg...end' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; or split it to exclude beg...end' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; or delete it entirely (if it is contained in beg...end).' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-overlay' Name.Variable
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'o' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Miscellanea.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'suspend-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run by ' Literal.String
|
|
"`suspend-emacs'" Literal.String.Symbol
|
|
', before suspending.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'suspend-resume-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run by ' Literal.String
|
|
"`suspend-emacs'" Literal.String.Symbol
|
|
', after Emacs is continued.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'temp-buffer-show-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run by ' Literal.String
|
|
"`with-output-to-temp-buffer'" Literal.String.Symbol
|
|
' after displaying the buffer.\nWhen the hook runs, the temporary buffer is current, and the window it\nwas displayed in is selected.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'temp-buffer-setup-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run by ' Literal.String
|
|
"`with-output-to-temp-buffer'" Literal.String.Symbol
|
|
' at the start.\nWhen the hook runs, the temporary buffer is current.\nThis hook is normally set up with a function to put the buffer in Help\nmode.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'user-emacs-directory' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'system-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'ms-dos" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; MS-DOS cannot have initial dot.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'~/_emacs.d/' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'~/.emacs.d/' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Directory beneath which additional per-user Emacs-specific files are placed.\nVarious programs in Emacs store information in this directory.\nNote that this should end with a directory separator.\nSee also ' Literal.String
|
|
"`locate-user-emacs-file'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Misc. useful functions.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'buffer-narrowed-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if the current buffer is narrowed.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-max' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-size' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'find-tag-default-bounds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Determine the boundaries of the default tag, based on text at point.\nReturn a cons cell with the beginning and end of the found tag.\nIf there is no plausible default, return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t\t' Text.Whitespace
|
|
";; Look at text around `point'." Comment.Single
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w_' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w_' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Look between `line-beginning-position' and `point'." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'line-beginning-position' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^w_' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w_' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Look between `point' and `line-end-position'." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'line-end-position' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^w_' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'bound' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w_' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'from' Name.Variable
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'find-tag-default' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Determine default tag to search for, based on text at point.\nIf there is no plausible default, return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'bounds' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'find-tag-default-bounds' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'bounds' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-substring-no-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'bounds' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'bounds' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'find-tag-default-as-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return regexp that matches the default tag at point.\nIf there is no tag at point, return nil.\n\nWhen in a major mode that does not provide its own\n' Literal.String
|
|
|
|
"`find-tag-default-function'" Literal.String.Symbol
|
|
', return a regexp that matches the\nsymbol at point exactly.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tag' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'find-tag-default-function' Name.Variable
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'major-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'find-tag-default-function" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
"'find-tag-default" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'tag' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp-quote' Name.Function
|
|
' ' Text.Whitespace
|
|
'tag' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'find-tag-default-as-symbol-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return regexp that matches the default tag at point as symbol.\nIf there is no tag at point, return nil.\n\nWhen in a major mode that does not provide its own\n' Literal.String
|
|
|
|
"`find-tag-default-function'" Literal.String.Symbol
|
|
', return a regexp that matches the\nsymbol at point exactly.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tag-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'find-tag-default-as-regexp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'tag-regexp' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'find-tag-default-function' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'major-mode' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'find-tag-default-function" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
"'find-tag-default" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
"'find-tag-default" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'_<%s' Literal.String
|
|
'\\\\' Literal.String
|
|
'_>' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'tag-regexp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'tag-regexp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'play-sound' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'sound' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'SOUND is a list of the form ' Literal.String
|
|
'`' Literal.String
|
|
"(sound KEYWORD VALUE...)'.\nThe following keywords are recognized:\n\n :file FILE - read sound data from FILE. If FILE isn't an\nabsolute file name, it is searched in " Literal.String
|
|
"`data-directory'" Literal.String.Symbol
|
|
".\n\n :data DATA - read sound data from string DATA.\n\nExactly one of :file or :data must be present.\n\n :volume VOL - set volume to VOL. VOL must an integer in the\nrange 0..100 or a float in the range 0..1.0. If not specified,\ndon't change the volume setting of the sound device.\n\n :device DEVICE - play sound on DEVICE. If not specified,\na system-dependent default device name is used.\n\nNote: :data and :device are currently not supported on Windows." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fboundp' Name.Function
|
|
' ' Text.Whitespace
|
|
"'play-sound-internal" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'play-sound-internal' Name.Function
|
|
' ' Text.Whitespace
|
|
'sound' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'This Emacs binary lacks sound support' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'declare-function' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'w32-shell-dos-semantics' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w32-fns' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'shell-quote-argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Quote ARGUMENT for passing as argument to an inferior shell.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'system-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'ms-dos" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Quote using double quotes, but escape any existing quotes in' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; the argument with backslashes.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'result' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[^' Literal.String
|
|
'\\"' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[' Literal.String
|
|
'\\"' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'result' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'result' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'result' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'system-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'windows-nt" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'w32-shell-dos-semantics' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; First, quote argument so that CommandLineToArgvW will' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; understand it. See' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; http://msdn.microsoft.com/en-us/library/17w5ykft%28v=vs.85%29.aspx' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; After we perform that level of quoting, escape shell' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; metacharacters so that cmd won't mangle our argument. If the" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; argument contains no double quote characters, we can just' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; surround it with double quotes. Otherwise, we need to prefix' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; each shell metacharacter with a caret.' Comment.Single
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; escape backslashes at end of string' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'*' Literal.String
|
|
'\\\\' Literal.String
|
|
')$' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'1' Literal.String
|
|
'\\\\' Literal.String
|
|
'1' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; escape backslashes and quotes in string body' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'*' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'1' Literal.String
|
|
'\\\\' Literal.String
|
|
'1' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[%!' Literal.String
|
|
'\\"' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'([%!()' Literal.String
|
|
'\\"' Literal.String
|
|
'<>&|^]' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^' Literal.String
|
|
'\\\\' Literal.String
|
|
'1' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"''" Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; Quote everything except POSIX filename characters.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; This should be safe enough even for really weird shells.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\n' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
"'" Literal.String
|
|
'\\n' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[^-0-9a-zA-Z_./' Literal.String
|
|
'\\n' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'&' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'argument' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'string-or-null-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if OBJECT is a string or nil.\nOtherwise, return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'booleanp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if OBJECT is one of the two canonical boolean values: t or nil.\nOtherwise, return nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'special-form-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Non-nil if and only if OBJECT is a special form.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fboundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indirect-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'subrp' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'subr-arity' Keyword
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'unevalled" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'macrop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Non-nil if and only if OBJECT is a macro.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'def' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indirect-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'def' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'macro" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'def' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'autoloadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'def' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'def' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'field-at-pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the field at position POS, taking stickiness etc into account.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'raw-field' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-char-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'field-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'field" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'raw-field' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'boundary" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-char-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'field-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'field" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'raw-field' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'sha1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'binary' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the SHA1 (Secure Hash Algorithm) of an OBJECT.\nOBJECT is either a string or a buffer. Optional arguments START and\nEND are character positions specifying which portion of OBJECT for\ncomputing the hash. If BINARY is non-nil, return a string in binary\nform.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'secure-hash' Name.Function
|
|
' ' Text.Whitespace
|
|
"'sha1" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'object' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'binary' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'function-get' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'f' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'autoload' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the value of property PROP of function F.\nIf AUTOLOAD is non-nil and F is autoloaded, try to autoload it\nin the hope that it will set PROP. If AUTOLOAD is ' Literal.String
|
|
"`macro'" Literal.String.Symbol
|
|
", only do it\nif it's an autoloaded macro." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'val' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'val' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prop' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fboundp' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'fundef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'autoload' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'autoloadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'fundef' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'fundef' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'autoload-do-load' Name.Function
|
|
' ' Text.Whitespace
|
|
'fundef' Name.Variable
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'autoload' Name.Function
|
|
' ' Text.Whitespace
|
|
"'macro" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
"'macro" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
";Re-try `get' on the same `f'." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
' ' Text.Whitespace
|
|
'fundef' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'val' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Support for yanking and text properties.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Why here in subr.el rather than in simple.el? --Stef' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'yank-handled-properties' Name.Variable
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'yank-excluded-properties' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remove-yank-excluded-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Process text properties between START and END, inserted for a ' Literal.String
|
|
"`yank'" Literal.String.Symbol
|
|
'.\nPerform the handling specified by ' Literal.String
|
|
"`yank-handled-properties'" Literal.String.Symbol
|
|
', then\nremove properties specified by ' Literal.String
|
|
"`yank-excluded-properties'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'handler' Name.Variable
|
|
' ' Text.Whitespace
|
|
'yank-handled-properties' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'prop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prop' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'next-single-property-change' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'prop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'run-end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'run-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'run-end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'yank-excluded-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-text-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-list-of-text-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'yank-excluded-properties' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'yank-undo-function' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'insert-for-yank' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Call ' Literal.String
|
|
"`insert-for-yank-1'" Literal.String.Symbol
|
|
' repetitively for each ' Literal.String
|
|
"`yank-handler'" Literal.String.Symbol
|
|
' segment.\n\nSee ' Literal.String
|
|
"`insert-for-yank-1'" Literal.String.Symbol
|
|
' for more details.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'next-single-property-change' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
"'yank-handler" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert-for-yank-1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'to' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert-for-yank-1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'insert-for-yank-1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Insert STRING at point for the ' Literal.String
|
|
"`yank'" Literal.String.Symbol
|
|
' command.\nThis function is like ' Literal.String
|
|
"`insert'" Literal.String.Symbol
|
|
', except it honors the variables\n' Literal.String
|
|
|
|
"`yank-handled-properties'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`yank-excluded-properties'" Literal.String.Symbol
|
|
', and the\n' Literal.String
|
|
|
|
"`yank-handler'" Literal.String.Symbol
|
|
' text property.\n\nProperties listed in ' Literal.String
|
|
"`yank-handled-properties'" Literal.String.Symbol
|
|
' are processed,\nthen those listed in ' Literal.String
|
|
"`yank-excluded-properties'" Literal.String.Symbol
|
|
' are discarded.\n\nIf STRING has a non-nil ' Literal.String
|
|
"`yank-handler'" Literal.String.Symbol
|
|
' property on its first\ncharacter, the normal insert behavior is altered. The value of\nthe ' Literal.String
|
|
"`yank-handler'" Literal.String.Symbol
|
|
' property must be a list of one to four\nelements, of the form (FUNCTION PARAM NOEXCLUDE UNDO).\nFUNCTION, if non-nil, should be a function of one argument, an\n object to insert; it is called instead of ' Literal.String
|
|
"`insert'" Literal.String.Symbol
|
|
'.\nPARAM, if present and non-nil, replaces STRING as the argument to\n FUNCTION or ' Literal.String
|
|
"`insert'" Literal.String.Symbol
|
|
'; e.g. if FUNCTION is ' Literal.String
|
|
"`yank-rectangle'" Literal.String.Symbol
|
|
', PARAM\n may be a list of strings to insert as a rectangle.\nIf NOEXCLUDE is present and non-nil, the normal removal of\n ' Literal.String
|
|
"`yank-excluded-properties'" Literal.String.Symbol
|
|
' is not performed; instead FUNCTION is\n responsible for the removal. This may be necessary if FUNCTION\n adjusts point before or after inserting the object.\nUNDO, if present and non-nil, should be a function to be called\n by ' Literal.String
|
|
"`yank-pop'" Literal.String.Symbol
|
|
' to undo the insertion of the current object. It is\n given two arguments, the start and end of the region. FUNCTION\n may set ' Literal.String
|
|
"`yank-undo-function'" Literal.String.Symbol
|
|
' to override UNDO.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'handler' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
"'yank-handler" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'param' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
'inhibit-read-only' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'yank-undo-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; FUNCTION' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'param' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert' Name.Function
|
|
' ' Text.Whitespace
|
|
'param' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; Prevent read-only properties from interfering with the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; following text property changes.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; NOEXCLUDE' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-yank-excluded-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; If last inserted char has properties, mark them as rear-nonsticky.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'opoint' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'text-properties-at' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'put-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'rear-nonsticky" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'yank-undo-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\t\t ' Text.Whitespace
|
|
'; not set by FUNCTION' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'yank-undo-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; UNDO' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
'\t\t\t\t ' Text.Whitespace
|
|
'; COMMAND' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'this-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'insert-buffer-substring-no-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Insert before point a substring of BUFFER, without text properties.\nBUFFER may be a buffer or a buffer name.\nArguments START and END are character positions specifying the substring.\nThey default to the values of (point-min) and (point-max) in BUFFER.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert-buffer-substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-text-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'insert-buffer-substring-as-yank' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Insert before point a part of BUFFER, stripping some text properties.\nBUFFER may be a buffer or a buffer name.\nArguments START and END are character positions specifying the substring.\nThey default to the values of (point-min) and (point-max) in BUFFER.\nBefore insertion, process text properties according to\n' Literal.String
|
|
|
|
"`yank-handled-properties'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`yank-excluded-properties'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; Since the buffer text should not normally have yank-handler properties,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; there is no need to handle them here.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert-buffer-substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-yank-excluded-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
'opoint' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'yank-handle-font-lock-face-property' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'face' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'If ' Literal.String
|
|
"`font-lock-defaults'" Literal.String.Symbol
|
|
' is nil, apply FACE as a ' Literal.String
|
|
"`face'" Literal.String.Symbol
|
|
' property.\nSTART and END denote the start and end of the text to act on.\nDo nothing if FACE is nil.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'face' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'font-lock-defaults' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put-text-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'face" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'face' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
";; This removes `mouse-face' properties in *Help* buffer buttons:" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; http://lists.gnu.org/archive/html/emacs-devel/2002-04/msg00648.html' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'yank-handle-category-property' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'category' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Apply property category CATEGORY's properties between START and END." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'category' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'end2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'next-property-change' Name.Function
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'original' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'text-properties-at' Name.Function
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-text-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-plist' Name.Function
|
|
' ' Text.Whitespace
|
|
'category' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'add-text-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'original' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'start2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Synchronous shell commands.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'start-process-shell-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Start a program in a subprocess. Return the process object for it.\nNAME is name for process. It is modified if necessary to make it unique.\nBUFFER is the buffer (or buffer name) to associate with the process.\n Process output goes at end of that buffer, unless you specify\n an output stream or filter function to handle the output.\n BUFFER may be also nil, meaning that this process is not associated\n with any buffer\nCOMMAND is the shell command to run.\n\nAn old calling convention accepted any number of arguments after COMMAND,\nwhich were just concatenated to COMMAND. This is still supported but strongly\ndiscouraged.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; We used to use `exec' to replace the shell with the command," Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; but that failed to handle (...) and semicolon, etc.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start-process' Name.Function
|
|
' ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'shell-file-name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'shell-command-switch' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'identity" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'start-file-process-shell-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Start a program in a subprocess. Return the process object for it.\nSimilar to ' Literal.String
|
|
"`start-process-shell-command'" Literal.String.Symbol
|
|
', but calls ' Literal.String
|
|
"`start-file-process'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start-file-process' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-remote-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'/bin/sh' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'shell-file-name' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-remote-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'-c' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'shell-command-switch' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'identity" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'call-process-shell-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Execute the shell command COMMAND synchronously in separate process.\nThe remaining arguments are optional.\nThe program's input comes from file INFILE (nil means " Literal.String
|
|
"`/dev/null'" Literal.String.Symbol
|
|
").\nInsert output in BUFFER before point; t means current buffer;\n nil for BUFFER means discard it; 0 means discard and don't wait.\nBUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,\nREAL-BUFFER says what to do with standard output, as above,\nwhile STDERR-FILE says what to do with standard error in the child.\nSTDERR-FILE may be nil (discard standard error output),\nt (mix it with ordinary output), or a file name string.\n\nFourth arg DISPLAY non-nil means redisplay buffer as output is inserted.\nWildcards and redirection are handled as usual in the shell.\n\nIf BUFFER is 0, " Literal.String
|
|
"`call-process-shell-command'" Literal.String.Symbol
|
|
' returns immediately with value nil.\nOtherwise it waits for COMMAND to terminate and returns a numeric exit\nstatus or a signal description string.\nIf you quit, the process is killed with SIGINT, or SIGKILL if you quit again.\n\nAn old calling convention accepted any number of arguments after DISPLAY,\nwhich were just concatenated to COMMAND. This is still supported but strongly\ndiscouraged.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.5' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; We used to use `exec' to replace the shell with the command," Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; but that failed to handle (...) and semicolon, etc.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'call-process' Name.Function
|
|
' ' Text.Whitespace
|
|
'shell-file-name' Name.Variable
|
|
'\n\t\t' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
'\n\t\t' Text.Whitespace
|
|
'shell-command-switch' Name.Variable
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'identity" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'process-file-shell-command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Process files synchronously in a separate process.\nSimilar to ' Literal.String
|
|
"`call-process-shell-command'" Literal.String.Symbol
|
|
', but calls ' Literal.String
|
|
"`process-file'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.5' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'process-file' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-remote-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'/bin/sh' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'shell-file-name' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'infile' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'display' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-remote-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'-c' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'shell-command-switch' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'identity" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'command' Name.Variable
|
|
' ' Text.Whitespace
|
|
'args' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Lisp macros to do various things temporarily.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'track-mouse' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Evaluate BODY with mouse movement events enabled.\nWithin a ' Literal.String
|
|
"`track-mouse'" Literal.String.Symbol
|
|
' form, mouse motion generates input events that\n you can read with ' Literal.String
|
|
"`read-event'" Literal.String.Symbol
|
|
'.\nNormally, mouse motion is ignored.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'internal--track-mouse' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-or-name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute the forms in BODY with BUFFER-OR-NAME temporarily current.\nBUFFER-OR-NAME must be a buffer or the name of an existing buffer.\nThe value returned is the value of the last form in BODY. See\nalso ' Literal.String
|
|
"`with-temp-buffer'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'save-current-buffer' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'buffer-or-name' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'internal--before-with-selected-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'other-frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-window' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Selecting a window on another frame also changes that' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; frame's frame-selected-window. We must save&restore it." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-frame' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'other-frame' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-selected-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'other-frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Also remember the top-frame if on ttys.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-frame' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'other-frame' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'tty-top-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'other-frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'internal--after-with-selected-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; First reset frame-selected-window.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; We don't use set-frame-selected-window because it does not" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; pass the `norecord' argument to Fselect_window." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'tty-top-frame' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Then reset the actual selected-window.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'state' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-selected-window' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Execute the forms in BODY with WINDOW as the selected window.\nThe value returned is the value of the last form in BODY.\n\nThis macro saves and restores the selected window, as well as the\nselected window of each frame. It does not change the order of\nrecently selected windows. If the previously selected window of\nsome frame is no longer live at the end of BODY, that frame's\nselected window is left alone. If the selected window is no\nlonger live, then whatever window is selected at the end of BODY\nremains selected.\n\nThis macro uses " Literal.String
|
|
"`save-current-buffer'" Literal.String.Symbol
|
|
' to save and restore the\ncurrent buffer, since otherwise its normal operation could\npotentially make a different buffer current. It does not alter\nthe buffer list ordering.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'save-selected-window--state' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal--before-with-selected-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-current-buffer' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-window' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'save-selected-window--state' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal--after-with-selected-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'save-selected-window--state' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-selected-frame' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute the forms in BODY with FRAME as the selected frame.\nThe value returned is the value of the last form in BODY.\n\nThis macro saves and restores the selected frame, and changes the\norder of neither the recently selected windows nor the buffers in\nthe buffer list.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old-frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'old-frame' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'old-buffer' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-frame' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-frame' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'select-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'norecord" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-live-p' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'save-window-excursion' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY, then restore previous window configuration.\nThis macro saves the window configuration on the selected frame,\nexecutes BODY, then calls ' Literal.String
|
|
"`set-window-configuration'" Literal.String.Symbol
|
|
' to restore\nthe saved window configuration. The return value is the last\nform in BODY. The window configuration is also restored if BODY\nexits nonlocally.\n\nBEWARE: Most uses of this macro introduce bugs.\nE.g. it should not be used to try and prevent some code from opening\na new window, since that window may sometimes appear in another frame,\nin which case ' Literal.String
|
|
"`save-window-excursion'" Literal.String.Symbol
|
|
' cannot help.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'c' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'wconfig' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'c' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-window-configuration' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-window-configuration' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'c' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'internal-temp-output-buffer-show' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Internal function for ' Literal.String
|
|
"`with-output-to-temp-buffer'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-buffer-modified-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'temp-buffer-show-function' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'temp-buffer-show-function' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'window' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'window-combination-limit' Name.Function
|
|
'\n\t\t ' Text.Whitespace
|
|
";; When `window-combination-limit' equals" Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
";; `temp-buffer' or `temp-buffer-resize' and" Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
";; `temp-buffer-resize-mode' is enabled in this" Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
';; buffer bind it to t so resizing steals space' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
';; preferably from the window that was split.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'window-combination-limit' Name.Function
|
|
' ' Text.Whitespace
|
|
"'temp-buffer" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'window-combination-limit' Name.Function
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
"'temp-buffer-resize" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'temp-buffer-resize-mode' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
't' Name.Constant
|
|
'\n\t\t ' Text.Whitespace
|
|
'window-combination-limit' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'display-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'window-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'selected-frame' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-frame-visible' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'minibuffer-scroll-window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-window-hscroll' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Don't try this with NOFORCE non-nil!" Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-window-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; This should not be necessary.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-window-point' Name.Function
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Run `temp-buffer-show-hook', with the chosen window selected." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-selected-window' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'window' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-hooks' Name.Function
|
|
' ' Text.Whitespace
|
|
"'temp-buffer-show-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Return nil.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Doc is very similar to with-temp-buffer-window.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-output-to-temp-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'bufname' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Bind ' Literal.String
|
|
"`standard-output'" Literal.String.Symbol
|
|
' to buffer BUFNAME, eval BODY, then show that buffer.\n\nThis construct makes buffer BUFNAME empty before running BODY.\nIt does not make the buffer current for BODY.\nInstead it binds ' Literal.String
|
|
"`standard-output'" Literal.String.Symbol
|
|
' to that buffer, so that output\ngenerated with ' Literal.String
|
|
"`prin1'" Literal.String.Symbol
|
|
' and similar functions in BODY goes into\nthe buffer.\n\nAt the end of BODY, this marks buffer BUFNAME unmodified and displays\nit in a window, but does not select it. The normal way to do this is\nby calling ' Literal.String
|
|
"`display-buffer'" Literal.String.Symbol
|
|
', then running ' Literal.String
|
|
"`temp-buffer-show-hook'" Literal.String.Symbol
|
|
'.\nHowever, if ' Literal.String
|
|
"`temp-buffer-show-function'" Literal.String.Symbol
|
|
' is non-nil, it calls that\nfunction instead (and does not run ' Literal.String
|
|
"`temp-buffer-show-hook'" Literal.String.Symbol
|
|
'). The\nfunction gets one argument, the buffer to display.\n\nThe return value of ' Literal.String
|
|
"`with-output-to-temp-buffer'" Literal.String.Symbol
|
|
' is the value of the\nlast form in BODY. If BODY does not finish normally, the buffer\nBUFNAME is not displayed.\n\nThis runs the hook ' Literal.String
|
|
"`temp-buffer-setup-hook'" Literal.String.Symbol
|
|
' before BODY,\nwith the buffer BUFNAME temporarily current. It runs the hook\n' Literal.String
|
|
|
|
"`temp-buffer-show-hook'" Literal.String.Symbol
|
|
" after displaying buffer BUFNAME, with that\nbuffer temporarily current, and the window that was used to display it\ntemporarily selected. But it doesn't run " Literal.String
|
|
"`temp-buffer-show-hook'" Literal.String.Symbol
|
|
'\nif it uses ' Literal.String
|
|
"`temp-buffer-show-function'" Literal.String.Symbol
|
|
'.\n\nBy default, the setup hook puts the buffer into Help mode before running BODY.\nIf BODY does not change the major mode, the show hook makes the buffer\nread-only, and scans it for function and variable names to make them into\nclickable cross-references.\n\nSee the related form ' Literal.String
|
|
"`with-temp-buffer-window'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old-dir' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'old-dir' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buf' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'buf' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-dir' Name.Variable
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'buf' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-buffer-create' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'bufname' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-all-local-variables' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: delete_all_overlays' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'default-directory' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-dir' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-file-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'inhibit-modification-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'erase-buffer' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-hooks' Name.Function
|
|
' ' Text.Whitespace
|
|
"'temp-buffer-setup-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'standard-output' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'buf' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal-temp-output-buffer-show' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'buf' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-temp-file' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Create a new buffer, evaluate BODY there, and write the buffer to FILE.\nThe value returned is the value of the last form in BODY.\nSee also ' Literal.String
|
|
"`with-temp-buffer'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'temp-file' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'temp-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'temp-buffer' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-buffer-create' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'generate-new-buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' *temp file*' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'write-region' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-temp-message' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Display MESSAGE temporarily if non-nil while BODY is evaluated.\nThe original message is restored to the echo area after BODY has finished.\nThe value returned is the value of the last form in BODY.\nMESSAGE is written to the message log buffer if ' Literal.String
|
|
"`message-log-max'" Literal.String.Symbol
|
|
' is non-nil.\nIf MESSAGE is nil, the echo area and message log buffer are unchanged.\nUse a MESSAGE of ' Literal.String
|
|
'\\"' Literal.String
|
|
'\\"' Literal.String
|
|
' to temporarily clear the echo area.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'current-message' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'current-message' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'temp-message' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'with-temp-message' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp-message' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'message' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'current-message' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-message' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'current-message' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-message' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-message' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-message' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'current-message' Name.Function
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'current-message' Name.Function
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-temp-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Create a temporary buffer, and evaluate BODY there like ' Literal.String
|
|
"`progn'" Literal.String.Symbol
|
|
'.\nSee also ' Literal.String
|
|
"`with-temp-file'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`with-output-to-string'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'temp-buffer' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'generate-new-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' *temp*' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: kill-buffer can change current-buffer in some odd cases.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp-buffer' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-silent-modifications' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Execute BODY, pretending it does not modify the buffer.\nIf BODY performs real modifications to the buffer's text, other\nthan cosmetic ones, undo data may become corrupted.\n\nThis macro will run BODY normally, but doesn't count its buffer\nmodifications as being buffer modifications. This affects things\nlike " Literal.String
|
|
"`buffer-modified-p'" Literal.String.Symbol
|
|
", checking whether the file is locked by\nsomeone else, running buffer modification hooks, and other things\nof that nature.\n\nTypically used around modifications of text-properties which do\nnot really affect the buffer's content." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'modified' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'modified' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'modified' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-modified-p' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-undo-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'inhibit-read-only' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'inhibit-modification-hooks' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'modified' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'restore-buffer-modified-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-output-to-string' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY, return the text it sent to ' Literal.String
|
|
"`standard-output'" Literal.String.Symbol
|
|
', as a string.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'standard-output' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-buffer-create' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'generate-new-buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' *string-output*' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'standard-output' Name.Variable
|
|
' ' Text.Whitespace
|
|
'standard-output' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'standard-output' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kill-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
'standard-output' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-local-quit' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY, allowing quits to terminate BODY but not escape further.\nWhen a quit terminates BODY, ' Literal.String
|
|
"`with-local-quit'" Literal.String.Symbol
|
|
' returns nil but\nrequests another quit. That quit will be processed as soon as quitting\nis allowed once again. (Immediately, if ' Literal.String
|
|
"`inhibit-quit'" Literal.String.Symbol
|
|
' is nil.)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-quit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'quit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'quit-flag' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; This call is to give a chance to handle quit-flag' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; in case inhibit-quit is nil.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; Without this, it will not be handled until the next function' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; call, and that might allow it to exit thru a condition-case' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; that intends to handle the quit signal next time.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eval' Name.Function
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'ignore' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'while-no-input' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Execute BODY only as long as there's no pending input.\nIf input arrives, that ends the execution of BODY,\nand " Literal.String
|
|
"`while-no-input'" Literal.String.Symbol
|
|
' returns t. Quitting makes it return nil.\nIf BODY finishes, ' Literal.String
|
|
"`while-no-input'" Literal.String.Symbol
|
|
' returns whatever value BODY produced.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'catch-sym' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'input' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'with-local-quit' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'catch' Keyword
|
|
' ' Text.Whitespace
|
|
"',catch-sym" Literal.String.Symbol
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'throw-on-input' Name.Variable
|
|
' ' Text.Whitespace
|
|
"',catch-sym" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'input-pending-p' Name.Function
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'condition-case-unless-debug' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'var' Name.Variable
|
|
' ' Text.Whitespace
|
|
'bodyform' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'handlers' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Like ' Literal.String
|
|
"`condition-case'" Literal.String.Symbol
|
|
' except that it does not prevent debugging.\nMore specifically if ' Literal.String
|
|
"`debug-on-error'" Literal.String.Symbol
|
|
' is set then the debugger will be invoked\neven if this catches the signal.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'condition-case' Keyword
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'var' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'bodyform' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'listp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'handler' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'handlers' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'condition-case-no-debug" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
"'condition-case-unless-debug" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-demoted-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Run BODY and demote any errors to simple messages.\nFORMAT is a string passed to ' Literal.String
|
|
"`message'" Literal.String.Symbol
|
|
' to format any error message.\nIt should contain a single %-sequence; e.g., ' Literal.String
|
|
'\\"' Literal.String
|
|
'Error: %S' Literal.String
|
|
'\\"' Literal.String
|
|
'.\n\nIf ' Literal.String
|
|
"`debug-on-error'" Literal.String.Symbol
|
|
' is non-nil, run BODY without catching its errors.\nThis is to be used around code which is not expected to signal an error\nbut which should be robust in the unexpected case that an error is signaled.\n\nFor backward compatibility, if FORMAT is not a constant string, it\nis assumed to be part of BODY, in which case the message format\nused is ' Literal.String
|
|
'\\"' Literal.String
|
|
'Error: %S' Literal.String
|
|
'\\"' Literal.String
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'err' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'err' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'format' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'format' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Error: %S' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'condition-case-unless-debug' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'err' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'macroexp-progn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'err' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'combine-after-change-calls' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Execute BODY, but don't call the after-change functions till the end.\nIf BODY makes changes in the buffer, they are recorded\nand the functions on " Literal.String
|
|
"`after-change-functions'" Literal.String.Symbol
|
|
' are called several times\nwhen BODY is finished.\nThe return value is the value of the last form in BODY.\n\nIf ' Literal.String
|
|
"`before-change-functions'" Literal.String.Symbol
|
|
" is non-nil, then calls to the after-change\nfunctions can't be deferred, so in that case this macro has no effect.\n\nDo not alter " Literal.String
|
|
"`after-change-functions'" Literal.String.Symbol
|
|
' or ' Literal.String
|
|
"`before-change-functions'" Literal.String.Symbol
|
|
'\nin BODY.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'combine-after-change-calls' Name.Builtin
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'combine-after-change-execute' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-case-table' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute the forms in BODY with TABLE as the current case table.\nThe value returned is the value of the last form in BODY.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old-case-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'table' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'buffer' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-case-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-case-table' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-case-table' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'table' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-current-buffer' Name.Builtin
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-case-table' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-case-table' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-file-modes' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'modes' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY with default file permissions temporarily set to MODES.\nMODES is as for ' Literal.String
|
|
"`set-default-file-modes'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'umask' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'umask' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'umask' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'default-file-modes' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default-file-modes' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'modes' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-default-file-modes' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'umask' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;; Matching and match data.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'save-match-data-internal' Name.Variable
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; We use save-match-data-internal as the local variable because' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; that works ok in practice (people should not use that variable elsewhere).' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; We used to use an uninterned symbol; the compiler handles that properly' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; now, but it generates slower code.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'save-match-data' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute the BODY forms, restoring the global value of the match data.\nThe value returned is the value of the last form in BODY.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; It is better not to use backquote here,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; because that makes a bootstrapping problem' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; if you need to recompile all the Lisp files using interpreted code.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'let" Literal.String.Symbol
|
|
'\n\t' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'save-match-data-internal' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-data' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'unwind-protect" Literal.String.Symbol
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
"'progn" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; It is safe to free (evaporate) markers immediately here,' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; as Lisp programs should not copy from save-match-data-internal.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'set-match-data' Name.Function
|
|
' ' Text.Whitespace
|
|
'save-match-data-internal' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'evaporate" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'num' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return string of text matched by last search.\nNUM specifies which parenthesized expression in the last regexp.\n Value is nil if NUMth pair didn't match, or there were less than NUM pairs.\nZero means the entire text matched by the whole regexp or whole string.\nSTRING should be given if the last search was by " Literal.String
|
|
"`string-match'" Literal.String.Symbol
|
|
' on STRING.\nIf STRING is nil, the current buffer should be the same buffer\nthe search/match was performed in.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'match-string-no-properties' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'num' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return string of text matched by last search, without text properties.\nNUM specifies which parenthesized expression in the last regexp.\n Value is nil if NUMth pair didn't match, or there were less than NUM pairs.\nZero means the entire text matched by the whole regexp or whole string.\nSTRING should be given if the last search was by " Literal.String
|
|
"`string-match'" Literal.String.Symbol
|
|
' on STRING.\nIf STRING is nil, the current buffer should be the same buffer\nthe search/match was performed in.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring-no-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-substring-no-properties' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'num' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'match-substitute-replacement' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replacement' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'fixedcase' Name.Variable
|
|
' ' Text.Whitespace
|
|
'literal' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'subexp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return REPLACEMENT as it will be inserted by ' Literal.String
|
|
"`replace-match'" Literal.String.Symbol
|
|
'.\nIn other words, all back-references in the form ' Literal.String
|
|
"`\\\\&'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`\\\\N'" Literal.String.Symbol
|
|
'\nare substituted with actual strings matched by the last search.\nOptional FIXEDCASE, LITERAL, STRING and SUBEXP have the same\nmeaning as for ' Literal.String
|
|
"`replace-match'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'match' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-match-data' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'x' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'x' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-data' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'replacement' Name.Variable
|
|
' ' Text.Whitespace
|
|
'fixedcase' Name.Variable
|
|
' ' Text.Whitespace
|
|
'literal' Name.Variable
|
|
' ' Text.Whitespace
|
|
'match' Name.Variable
|
|
' ' Text.Whitespace
|
|
'subexp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'looking-back' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'limit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'greedy' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if text before point matches regular expression REGEXP.\nLike ' Literal.String
|
|
"`looking-at'" Literal.String.Symbol
|
|
' except matches before point, and is slower.\nLIMIT if non-nil speeds up the search by specifying a minimum\nstarting position, to avoid checking matches that would start\nbefore LIMIT.\n\nIf GREEDY is non-nil, extend the match backwards as far as\npossible, stopping when a single additional previous character\ncannot be part of a match for REGEXP. When the match is\nextended, its starting position is allowed to occur before\nLIMIT.\n\nAs a general recommendation, try to avoid using ' Literal.String
|
|
"`looking-back'" Literal.String.Symbol
|
|
'\nwherever possible, since it is slow.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'pos' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(?:' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'\\\\' Literal.String
|
|
'=' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'limit' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'greedy' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-restriction' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'narrow-to-region' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'backward-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'looking-at' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(?:' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'looking-at' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(?:' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'looking-at-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\n' Literal.String
|
|
|
|
'Same as ' Literal.String
|
|
"`looking-at'" Literal.String.Symbol
|
|
' except this function does not change the match data.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-changing-match-data' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'looking-at' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'string-match-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\n' Literal.String
|
|
|
|
'Same as ' Literal.String
|
|
"`string-match'" Literal.String.Symbol
|
|
' except this function does not change the match data.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'inhibit-changing-match-data' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'subregexp-context-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if POS is in a normal subregexp context in REGEXP.\nA subregexp context is one where a sub-regexp can appear.\nA non-subregexp context is for example within brackets, or within a\nrepetition bounds operator ' Literal.String
|
|
"`\\\\=\\\\{...\\\\}'" Literal.String.Symbol
|
|
', or right after a ' Literal.String
|
|
"`\\\\'" Literal.String.Symbol
|
|
'.\nIf START is non-nil, it should be a position in REGEXP, smaller\nthan POS, and known to be in a subregexp context.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; Here's one possible implementation, with the great benefit that it" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; reuses the regexp-matcher's own parser, so it understands all the" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; details of the syntax. A disadvantage is that it needs to match the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; error string.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'condition-case' Keyword
|
|
' ' Text.Whitespace
|
|
'err' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'invalid-regexp' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'err' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'Unmatched [ or [^' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Unmatched ' Literal.String
|
|
'\\\\' Literal.String
|
|
'{' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Trailing backslash' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; An alternative implementation:' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (defconst re-context-re' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (let* ((harmless-ch "[^\\\\[]")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (harmless-esc "\\\\\\\\[^{]")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (class-harmless-ch "[^][]")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (class-lb-harmless "[^]:]")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (class-lb-colon-maybe-charclass ":\\\\([a-z]+:]\\\\)?")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (class-lb (concat "\\\\[\\\\(" class-lb-harmless' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "\\\\|" class-lb-colon-maybe-charclass "\\\\)"))' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (class' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (concat "\\\\[^?]?"' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "\\\\(" class-harmless-ch' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "\\\\|" class-lb "\\\\)*"' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "\\\\[?]")) ; special handling for bare [ at end of re' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (braces "\\\\\\\\{[0-9,]+\\\\\\\\}"))' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (concat "\\\\`\\\\(" harmless-ch "\\\\|" harmless-esc' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "\\\\|" class "\\\\|" braces "\\\\)*\\\\\'"))' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "Matches any prefix that corresponds to a normal subregexp context.")' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; (string-match re-context-re (substring regexp (or start 0) pos))' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; split-string' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'split-string-default-separators' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[ ' Literal.String
|
|
'\\f' Literal.String
|
|
'\\t' Literal.String
|
|
'\\n' Literal.String
|
|
'\\r' Literal.String
|
|
'\\v' Literal.String
|
|
']+' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'The default value of separators for ' Literal.String
|
|
"`split-string'" Literal.String.Symbol
|
|
'.\n\nA regexp matching strings of whitespace. May be locale-dependent\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'as yet unimplemented). Should not match non-breaking spaces.\n\nWarning: binding this to a different value and using it as default is\nlikely to have undesired semantics.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; The specification says that if both SEPARATORS and OMIT-NULLS are' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; defaulted, OMIT-NULLS should be treated as t. Simplifying the logical' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; expression leads to the equivalent implementation that if SEPARATORS' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; is defaulted, OMIT-NULLS is treated as t.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'split-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'separators' Name.Variable
|
|
' ' Text.Whitespace
|
|
'omit-nulls' Name.Variable
|
|
' ' Text.Whitespace
|
|
'trim' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Split STRING into substrings bounded by matches for SEPARATORS.\n\nThe beginning and end of STRING, and each match for SEPARATORS, are\nsplitting points. The substrings matching SEPARATORS are removed, and\nthe substrings between the splitting points are collected as a list,\nwhich is returned.\n\nIf SEPARATORS is non-nil, it should be a regular expression matching text\nwhich separates, but is not part of, the substrings. If nil it defaults to\n' Literal.String
|
|
|
|
"`split-string-default-separators'" Literal.String.Symbol
|
|
', normally ' Literal.String
|
|
'\\"' Literal.String
|
|
'[ ' Literal.String
|
|
'\\\\' Literal.String
|
|
'f' Literal.String
|
|
'\\\\' Literal.String
|
|
't' Literal.String
|
|
'\\\\' Literal.String
|
|
'n' Literal.String
|
|
'\\\\' Literal.String
|
|
'r' Literal.String
|
|
'\\\\' Literal.String
|
|
'v]+' Literal.String
|
|
'\\"' Literal.String
|
|
', and\nOMIT-NULLS is forced to t.\n\nIf OMIT-NULLS is t, zero-length substrings are omitted from the list (so\nthat for the default value of SEPARATORS leading and trailing whitespace\nare effectively trimmed). If nil, all zero-length substrings are retained,\nwhich correctly parses CSV format, for example.\n\nIf TRIM is non-nil, it should be a regular expression to match\ntext to trim from the beginning and end of each substring. If trimming\nmakes the substring empty, it is treated as null.\n\nIf you want to trim whitespace from the substrings, the reliably correct\nway is using TRIM. Making SEPARATORS match that whitespace gives incorrect\nresults when there is whitespace at the start or end of STRING. If you\nsee such calls to ' Literal.String
|
|
"`split-string'" Literal.String.Symbol
|
|
', please fix them.\n\nNote that the effect of ' Literal.String
|
|
'`' Literal.String
|
|
"(split-string STRING)' is the same as\n" Literal.String
|
|
|
|
'`' Literal.String
|
|
"(split-string STRING split-string-default-separators t)'. In the rare\ncase that you wish to retain zero-length substrings when splitting on\nwhitespace, use " Literal.String
|
|
'`' Literal.String
|
|
"(split-string STRING split-string-default-separators)'.\n\nModifies the match data; use " Literal.String
|
|
"`save-match-data'" Literal.String.Symbol
|
|
' if necessary.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'keep-nulls' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'separators' Name.Variable
|
|
' ' Text.Whitespace
|
|
'omit-nulls' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'rexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'separators' Name.Variable
|
|
' ' Text.Whitespace
|
|
'split-string-default-separators' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-end' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'notfirst' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push-one' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
';; Push the substring in range THIS-START to THIS-END' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; onto LIST, trimming it and perhaps discarding it.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'trim' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
';; Discard the trim from start of this substring.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tem' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'trim' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'tem' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'keep-nulls' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'this' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\t\t' Text.Whitespace
|
|
';; Discard the trim from end of this substring.' Comment.Single
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'trim' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tem' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'trim' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'tem' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'tem' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'tem' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\t\t' Text.Whitespace
|
|
';; Trimming could make it empty; check again.' Comment.Single
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'keep-nulls' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'this' Name.Variable
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'rexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'notfirst' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'notfirst' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'push-one' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; Handle the substring at the end of STRING.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'this-start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'this-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'push-one' Name.Variable
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'list' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'combine-and-quote-strings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'strings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'separator' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Concatenate the STRINGS, adding the SEPARATOR (default ' Literal.String
|
|
'\\"' Literal.String
|
|
' ' Literal.String
|
|
'\\"' Literal.String
|
|
').\nThis tries to quote the strings to avoid ambiguity such that\n (split-string-and-unquote (combine-and-quote-strings strs)) == strs\nOnly some SEPARATORs will work properly.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'sep' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'separator' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
're' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\"' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp-quote' Name.Function
|
|
' ' Text.Whitespace
|
|
'sep' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
're' Name.Variable
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-regexp-in-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\"' Literal.String
|
|
']' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'&' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'strings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'sep' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'split-string-and-unquote' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'separator' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Split the STRING into a list of strings.\nIt understands Emacs Lisp quoting within STRING, such that\n (split-string-and-unquote (combine-and-quote-strings strs)) == strs\nThe SEPARATOR regexp defaults to ' Literal.String
|
|
'\\"' Literal.String
|
|
'\\\\' Literal.String
|
|
's-+' Literal.String
|
|
'\\"' Literal.String
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'sep' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'separator' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
's-+' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'split-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'sep' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\t' Text.Whitespace
|
|
'; no quoting: easy' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'append' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'split-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'sep' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'rfs' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-from-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'rfs' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'split-string-and-unquote' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'rfs' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t\t' Text.Whitespace
|
|
'sep' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Replacement in strings.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'subst-char-in-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fromchar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tochar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'inplace' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Replace FROMCHAR with TOCHAR in STRING each time it occurs.\nUnless optional argument INPLACE is non-nil, return a new string.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'newstr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'inplace' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'copy-sequence' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'newstr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'fromchar' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'newstr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tochar' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'newstr' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'replace-regexp-in-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'rep' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'fixedcase' Name.Variable
|
|
' ' Text.Whitespace
|
|
'literal' Name.Variable
|
|
' ' Text.Whitespace
|
|
'subexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Replace all matches for REGEXP with REP in STRING.\n\nReturn a new string containing the replacements.\n\nOptional arguments FIXEDCASE, LITERAL and SUBEXP are like the\narguments with the same names of function ' Literal.String
|
|
"`replace-match'" Literal.String.Symbol
|
|
'. If START\nis non-nil, start replacements at that index in STRING.\n\nREP is either a string used as the NEWTEXT arg of ' Literal.String
|
|
"`replace-match'" Literal.String.Symbol
|
|
' or a\nfunction. If it is a function, it is called with the actual text of each\nmatch, and its value is used as the replacement text. When REP is called,\nthe match data are the result of matching REGEXP against a substring\nof STRING.\n\nTo replace only the first match (if any), make REGEXP match up to ' Literal.String
|
|
'\\\\' Literal.String
|
|
"'\nand replace a sub-expression, e.g.\n (replace-regexp-in-string " Literal.String
|
|
'\\"' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
'(foo' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
').*' Literal.String
|
|
'\\\\' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'\\"' Literal.String
|
|
' ' Literal.String
|
|
'\\"' Literal.String
|
|
'bar' Literal.String
|
|
'\\"' Literal.String
|
|
' ' Literal.String
|
|
'\\"' Literal.String
|
|
' foo foo' Literal.String
|
|
'\\"' Literal.String
|
|
' nil nil 1)\n => ' Literal.String
|
|
'\\"' Literal.String
|
|
' bar foo' Literal.String
|
|
'\\"' Literal.String
|
|
'"' Literal.String
|
|
'\n\n ' Text.Whitespace
|
|
';; To avoid excessive consing from multiple matches in long strings,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; don't just call `replace-match' continually. Walk down the" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; string looking for matches of REGEXP and building up a (reversed)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; list MATCHES. This comprises segments of STRING which weren't" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; matched interspersed with replacements for segments that were.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; [For a `large' number of replacements it's more efficient to" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; operate in a temporary buffer; we can't tell from the function's" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; args whether to choose the buffer-based implementation, though it' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; might be reasonable to do so for long enough STRING.]' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'l' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'matches' Name.Variable
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
' ' Text.Whitespace
|
|
'me' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'me' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; If we matched the empty string, make sure we advance by one char' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'me' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'me' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'l' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; Generate a replacement for the matched substring.' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; Operate only on the substring to minimize string consing.' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; Set up match data for the substring for replacement;' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; presumably this is likely to be faster than munging the' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
';; match data directly in Lisp.' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
' ' Text.Whitespace
|
|
'me' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'matches' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'replace-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'rep' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'rep' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'rep' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'fixedcase' Name.Variable
|
|
' ' Text.Whitespace
|
|
'literal' Name.Variable
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'subexp' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'mb' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; unmatched prefix' Comment.Single
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'matches' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'me' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Reconstruct a string from the pieces.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'matches' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'matches' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; leftover' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'matches' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'string-prefix-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'ignore-case' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if PREFIX is a prefix of STRING.\nIf IGNORE-CASE is non-nil, the comparison is done without paying attention\nto case differences.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'prefix-length' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix-length' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compare-strings' Name.Function
|
|
' ' Text.Whitespace
|
|
'prefix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'prefix-length' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'prefix-length' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ignore-case' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'string-suffix-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'suffix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'ignore-case' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return non-nil if SUFFIX is a suffix of STRING.\nIf IGNORE-CASE is non-nil, the comparison is done without paying\nattention to case differences.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'start-pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'string' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'suffix' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'start-pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compare-strings' Name.Function
|
|
' ' Text.Whitespace
|
|
'suffix' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'start-pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'ignore-case' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'bidi-string-mark-left-to-right' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a string that can be safely inserted in left-to-right text.\n\nNormally, inserting a string with right-to-left (RTL) script into\na buffer may cause some subsequent text to be displayed as part\nof the RTL segment (usually this affects punctuation characters).\nThis function returns a string which displays as STR but forces\nsubsequent text to be displayed as left-to-right.\n\nIf STR contains any RTL character, this function returns a string\nconsisting of STR followed by an invisible left-to-right mark\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'LRM) character. Otherwise, it returns STR.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'signal' Name.Function
|
|
' ' Text.Whitespace
|
|
"'wrong-type-argument" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
"'stringp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'cR' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'propertize' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string' Name.Function
|
|
' ' Text.Whitespace
|
|
'?\\x' Literal.String.Char
|
|
'200e' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'invisible" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Specifying things to do later.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'load-history-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Form a regexp to find FILE in ' Literal.String
|
|
"`load-history'" Literal.String.Symbol
|
|
'.\nFILE, a string, is described in the function ' Literal.String
|
|
"`eval-after-load'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-name-absolute-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-truename' Name.Variable
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-name-absolute-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'`' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'`' Literal.String
|
|
'\\\\' Literal.String
|
|
'|/' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'regexp-quote' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-name-extension' Name.Variable
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'"' Literal.String
|
|
'"' Literal.String
|
|
'\n\t ' Text.Whitespace
|
|
";; Note: regexp-opt can't be used here, since we need to call" Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; this before Emacs has been fully started. 2006-05-21' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'regexp-quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'load-suffixes' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
')?' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapconcat' Name.Function
|
|
' ' Text.Whitespace
|
|
"'regexp-quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'jka-compr-load-suffixes' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
')?' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'load-history-filename-element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-regexp' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Get the first elt of ' Literal.String
|
|
"`load-history'" Literal.String.Symbol
|
|
" whose car matches FILE-REGEXP.\nReturn nil if there isn't one." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'loads' Name.Variable
|
|
' ' Text.Whitespace
|
|
'load-history' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'load-elt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'load-elt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'file-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'load-elt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'load-elt' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'loads' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'load-elt' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
"'eval-after-load" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'lisp-indent-function" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'eval-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Arrange that if FILE is loaded, FORM will be run immediately afterwards.\nIf FILE is already loaded, evaluate FORM right now.\nFORM can be an Elisp expression (in which case it's passed to " Literal.String
|
|
"`eval'" Literal.String.Symbol
|
|
"),\nor a function (in which case it's passed to " Literal.String
|
|
"`funcall'" Literal.String.Symbol
|
|
' with no argument).\n\nIf a matching file is loaded again, FORM will be evaluated again.\n\nIf FILE is a string, it may be either an absolute or a relative file\nname, and may have an extension (e.g. ' Literal.String
|
|
'\\"' Literal.String
|
|
'.el' Literal.String
|
|
'\\"' Literal.String
|
|
') or may lack one, and\nadditionally may or may not have an extension denoting a compressed\nformat (e.g. ' Literal.String
|
|
'\\"' Literal.String
|
|
'.gz' Literal.String
|
|
'\\"' Literal.String
|
|
").\n\nWhen FILE is absolute, this first converts it to a true name by chasing\nsymbolic links. Only a file of this name (see next paragraph regarding\nextensions) will trigger the evaluation of FORM. When FILE is relative,\na file whose absolute true name ends in FILE will trigger evaluation.\n\nWhen FILE lacks an extension, a file name with any extension will trigger\nevaluation. Otherwise, its extension must match FILE's. A further\nextension for a compressed format (e.g. " Literal.String
|
|
'\\"' Literal.String
|
|
'.gz' Literal.String
|
|
'\\"' Literal.String
|
|
') on FILE will not affect\nthis name matching.\n\nAlternatively, FILE can be a feature (i.e. a symbol), in which case FORM\nis evaluated at the end of any file that ' Literal.String
|
|
"`provide'" Literal.String.Symbol
|
|
's this feature.\nIf the feature is provided when evaluating code not associated with a\nfile, FORM is evaluated immediately after the provide statement.\n\nUsually FILE is just a library name like ' Literal.String
|
|
'\\"' Literal.String
|
|
'font-lock' Literal.String
|
|
'\\"' Literal.String
|
|
" or a feature name\nlike 'font-lock.\n\nThis function makes or adds to an entry on " Literal.String
|
|
"`after-load-alist'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'compiler-macro' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'whole' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'quote" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car-safe' Name.Function
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Quote with lambda so the compiler can look inside.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'eval-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'whole' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Add this FORM into after-load-alist (regardless of whether we'll be" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; evaluating it now).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'regexp-or-feature' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'purecopy' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'load-history-regexp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'assoc' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp-or-feature' Name.Variable
|
|
' ' Text.Whitespace
|
|
'after-load-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'func' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'functionp' Name.Function
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; Try to use the "current" lexical/dynamic mode for `form\'.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eval' Name.Function
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'lexical-binding' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp-or-feature' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'after-load-alist' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Is there an already loaded file whose name (or `provide' name)" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; matches FILE?' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prog1' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'load-history-filename-element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'regexp-or-feature' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'featurep' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'func' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'delayed-func' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'regexp-or-feature' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'func' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; For features, the after-load-alist elements get run when' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `provide' is called rather than at the end of the file." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; So add an indirection to make sure that `func' is really run" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; "after-load" in case the provide call happens early.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'load-file-name' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Not being provided from a file, run func right now.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'func' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'lfn' Name.Variable
|
|
' ' Text.Whitespace
|
|
'load-file-name' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Don't use letrec, because equal (in" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; add/remove-hook) would get trapped in a cycle.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'eval-after-load-helper' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fset' Name.Function
|
|
' ' Text.Whitespace
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'lfn' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'after-load-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'fun' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'func' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'add-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'after-load-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'fun' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'append" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Add FORM to the element unless it's already there." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'member' Name.Function
|
|
' ' Text.Whitespace
|
|
'delayed-func' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nconc' Name.Function
|
|
' ' Text.Whitespace
|
|
'elt' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'delayed-func' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-eval-after-load' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Execute BODY after FILE is loaded.\nFILE is normally a feature name, but it can also be a file name,\nin case that file does not provide any feature.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'eval-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'after-load-functions' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Special hook run after loading a file.\nEach function there is called with a single argument, the absolute\nname of the file just loaded.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'do-after-load-evaluation' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Evaluate all ' Literal.String
|
|
"`eval-after-load'" Literal.String.Symbol
|
|
' forms, if any, for ABS-FILE.\nABS-FILE, a string, should be the absolute true name of a file just loaded.\nThis function is called directly from the C code.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
';; Run the relevant eval-after-load forms.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'a-l-element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'after-load-alist' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'a-l-element' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'a-l-element' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; discard the file name regexp' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mapc' Name.Function
|
|
' ' Text.Whitespace
|
|
"#'" Name.Function
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'a-l-element' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Complain when the user uses obsolete files.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'/obsolete/' Literal.String
|
|
'\\\\' Literal.String
|
|
'([^/]*' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'loaddefs.el' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Maybe we should just use display-warning? This seems yucky...' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-name-nondirectory' Name.Function
|
|
' ' Text.Whitespace
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'msg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Package %s is obsolete!' Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'.elc?' Literal.String
|
|
'\\\\' Literal.String
|
|
'>' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Cribbed from cl--compiling-file.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'boundp' Name.Function
|
|
' ' Text.Whitespace
|
|
"'byte-compile--outbuffer" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'bufferp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
"'byte-compile--outbuffer" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
"'byte-compile--outbuffer" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'"' Literal.String
|
|
' *Compiler Output*' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Don't warn about obsolete files using other obsolete files." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'byte-compile-current-file' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'/obsolete/[^/]*' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'expand-file-name' Name.Function
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'byte-compile-current-file' Name.Variable
|
|
'\n\t\t\t\t\t' Text.Whitespace
|
|
'byte-compile-root-dir' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'byte-compile-log-warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'msg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-with-timer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'msg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'msg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'msg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n ' Text.Whitespace
|
|
';; Finally, run any other hook.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-hook-with-args' Name.Function
|
|
' ' Text.Whitespace
|
|
"'after-load-functions" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'abs-file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'eval-next-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Read the following input sexp, and run it whenever FILE is loaded.\nThis makes or adds to an entry on ' Literal.String
|
|
"`after-load-alist'" Literal.String.Symbol
|
|
'.\nFILE should be the name of a library, with no directory name.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'eval-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eval-after-load' Name.Variable
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'display-delayed-warnings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Display delayed warnings from ' Literal.String
|
|
"`delayed-warnings-list'" Literal.String.Symbol
|
|
'.\nUsed from ' Literal.String
|
|
"`delayed-warnings-hook'" Literal.String.Symbol
|
|
' (which see).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'apply' Name.Function
|
|
' ' Text.Whitespace
|
|
"'display-warning" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'collapse-delayed-warnings' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Remove duplicates from ' Literal.String
|
|
"`delayed-warnings-list'" Literal.String.Symbol
|
|
'.\nCollapse identical adjacent warnings into one (plus count).\nUsed from ' Literal.String
|
|
"`delayed-warnings-hook'" Literal.String.Symbol
|
|
' (which see).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'count' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'collapsed' Name.Variable
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pop' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'count' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'count' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'count' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'format' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s [%d times]' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'count' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'count' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'collapsed' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'collapsed' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; At present this is only used for Emacs internals.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; Ref http://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00085.html' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'collapse-delayed-warnings' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'display-delayed-warnings' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Normal hook run to process and display delayed warnings.\nBy default, this hook contains functions to consolidate the\nwarnings listed in ' Literal.String
|
|
"`delayed-warnings-list'" Literal.String.Symbol
|
|
', display them, and set\n' Literal.String
|
|
|
|
"`delayed-warnings-list'" Literal.String.Symbol
|
|
' back to nil.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'delay-warning' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'level' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer-name' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Display a delayed warning.\nAside from going through ' Literal.String
|
|
"`delayed-warnings-list'" Literal.String.Symbol
|
|
', this is equivalent\nto ' Literal.String
|
|
"`display-warning'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'type' Name.Variable
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'level' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer-name' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'delayed-warnings-list' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; invisibility specs' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'add-to-invisibility-spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'element' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Add ELEMENT to ' Literal.String
|
|
"`buffer-invisibility-spec'" Literal.String.Symbol
|
|
'.\nSee documentation for ' Literal.String
|
|
"`buffer-invisibility-spec'" Literal.String.Symbol
|
|
' for the kind of elements\nthat can be added.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'remove-from-invisibility-spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'element' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Remove ELEMENT from ' Literal.String
|
|
"`buffer-invisibility-spec'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete' Name.Function
|
|
' ' Text.Whitespace
|
|
'element' Name.Variable
|
|
' ' Text.Whitespace
|
|
'buffer-invisibility-spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Syntax tables.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'with-syntax-table' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Evaluate BODY with syntax table of current buffer set to TABLE.\nThe syntax table of the current buffer is saved, BODY is evaluated, and the\nsaved table is restored, even in case of an abnormal exit.\nValue is what BODY returns.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'old-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'table' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'buffer' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'syntax-table' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'current-buffer' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unwind-protect' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-syntax-table' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'table' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-current-buffer' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-buffer' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-buffer' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-syntax-table' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'old-table' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'make-syntax-table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'oldtable' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return a new syntax table.\nCreate a syntax table which inherits from OLDTABLE (if non-nil) or\nfrom ' Literal.String
|
|
"`standard-syntax-table'" Literal.String.Symbol
|
|
' otherwise.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-char-table' Name.Function
|
|
' ' Text.Whitespace
|
|
"'syntax-table" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set-char-table-parent' Name.Function
|
|
' ' Text.Whitespace
|
|
'table' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'oldtable' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'standard-syntax-table' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'table' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'syntax-after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Return the raw syntax descriptor for the char after POS.\nIf POS is outside the buffer's accessible portion, return nil." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-max' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'st' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'parse-sexp-lookup-properties' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-char-property' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'syntax-table" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'consp' Name.Function
|
|
' ' Text.Whitespace
|
|
'st' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'st' Name.Variable
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'st' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'syntax-table' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-after' Name.Function
|
|
' ' Text.Whitespace
|
|
'pos' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'syntax-class' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'syntax' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the code for the syntax class described by SYNTAX.\n\nSYNTAX should be a raw syntax descriptor; the return value is a\ninteger which encodes the corresponding syntax class. See Info\nnode ' Literal.String
|
|
'`' Literal.String
|
|
"(elisp)Syntax Table Internals' for a list of codes.\n\nIf SYNTAX is nil, return nil." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'logand' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'65535' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';; Utility motion commands' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Whitespace' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'forward-whitespace' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Move point to the end of the next sequence of whitespace chars.\nEach such sequence may be a single newline, or a sequence of\nconsecutive space and/or tab characters.\nWith prefix argument ARG, do it ARG times if positive, or move\nbackwards ARG times if negative.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^p' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'natnump' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[ ' Literal.String
|
|
'\\t' Literal.String
|
|
']+' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'\\n' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
"'move" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[ ' Literal.String
|
|
'\\t' Literal.String
|
|
']+' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'\\n' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
"'move" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-after' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'?\\n' Literal.String.Char
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-chars-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
' ' Literal.String
|
|
'\\t' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Symbols' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'forward-symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Move point to the next position that is the end of a symbol.\nA symbol is any sequence of characters that are in either the\nword constituent or symbol constituent syntax class.\nWith prefix argument ARG, do it ARG times if positive, or move\nbackwards ARG times if negative.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^p' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'natnump' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'sw' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'\\\\' Literal.String
|
|
's_' Literal.String
|
|
'\\\\' Literal.String
|
|
')+' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
"'move" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'(' Literal.String
|
|
'\\\\' Literal.String
|
|
'sw' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'\\\\' Literal.String
|
|
's_' Literal.String
|
|
'\\\\' Literal.String
|
|
')+' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
"'move" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-backward' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'w_' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Syntax blocks' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'forward-same-syntax' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Move point past all characters with the same syntax class.\nWith prefix argument ARG, do it ARG times if positive, or move\nbackwards ARG times if negative.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'interactive' Keyword
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^p' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-backward' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-syntax' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-before' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'skip-syntax-forward' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-syntax' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'char-after' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1-' Name.Function
|
|
' ' Text.Whitespace
|
|
'arg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Text clones' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'text-clone--maintaining' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'text-clone--maintain' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'_len' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Propagate the changes made under the overlay OL1 to the other clones.\nThis is used on the ' Literal.String
|
|
"`modification-hooks'" Literal.String.Symbol
|
|
' property of text clones.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'after' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'undo-in-progress' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'text-clone--maintaining' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'margin' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-spreadp" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'max' Name.Function
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-syntax" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
";; Check content of the clone's text." Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'cbeg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cend' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'cbeg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
're-search-forward' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-syntax" Literal.String.Symbol
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'cend' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Mark the overlay for deletion.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'cbeg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'cend' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Shrink the clone at its end.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'cbeg' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Shrink the clone at its beginning.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'max' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'move-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-beginning' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'margin' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Now go ahead and update the clones.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'head' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'str' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'buffer-substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nothing-left' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'text-clone--maintaining' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dolist' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-get' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clones" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'oe' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'oe' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'nothing-left' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'mod-beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-start' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'head' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
";;(overlay-put ol2 'modification-hooks nil)" Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'goto-char' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'mod-beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-excursion' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'insert' Name.Function
|
|
' ' Text.Whitespace
|
|
'str' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-region' Name.Function
|
|
' ' Text.Whitespace
|
|
'mod-beg' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
";;(overlay-put ol2 'modification-hooks '(text-clone--maintain))" Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'nothing-left' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delete-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'text-clone-create' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'spreadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Create a text clone of START...END at point.\nText clones are chunks of text that are automatically kept identical:\nchanges done to one of the clones will be immediately propagated to the other.\n\nThe buffer's content at point is assumed to be already identical to\nthe one between START and END.\nIf SYNTAX is provided it's a regexp that describes the possible text of\nthe clones; the clone will be shrunk or killed if necessary to ensure that\nits text matches the regexp.\nIf SPREADP is non-nil it indicates that text inserted before/after the\nclone should be incorporated in the clone." Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
";; To deal with SPREADP we can either use an overlay with `nil t' along" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; with insert-(behind|in-front-of)-hooks or use a slightly larger overlay' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; (with a one-char margin at each end) with `t nil'." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; We opted for a larger overlay because it behaves better in the case' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; where the clone is reduced to the empty string (we want the overlay to' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; stay when the clone's content is the empty string and we want to use" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `evaporate' to make sure those overlays get deleted when needed)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';;' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'pt-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n \t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'start-margin' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'spreadp' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'bobp' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-min' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n \t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'end-margin' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'spreadp' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'pt-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-max' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n \t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point-max' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n \t\t\t ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: Reuse overlays at point to extend dups!' Comment.Single
|
|
'\n \t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'start-margin' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end-margin' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n \t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-overlay' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'point' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'start-margin' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'pt-end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'end-margin' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dups' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'list' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'modification-hooks" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'text-clone--maintain' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'spreadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-spreadp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-syntax" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";;(overlay-put ol1 'face 'underline)" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'evaporate" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol1' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clones" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'dups' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';;' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'modification-hooks" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'text-clone--maintain' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'spreadp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-spreadp" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clone-syntax" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'syntax' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";;(overlay-put ol2 'face 'underline)" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'evaporate" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'overlay-put' Name.Function
|
|
' ' Text.Whitespace
|
|
'ol2' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'text-clones" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'dups' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Mail user agents.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Here we include just enough for other packages to be able' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; to define them.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'define-mail-user-agent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'composefunc' Name.Variable
|
|
' ' Text.Whitespace
|
|
'sendfunc' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'abortfunc' Name.Variable
|
|
' ' Text.Whitespace
|
|
'hookvar' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Define a symbol to identify a mail-sending package for ' Literal.String
|
|
"`mail-user-agent'" Literal.String.Symbol
|
|
'.\n\nSYMBOL can be any Lisp symbol. Its function definition and/or\nvalue as a variable do not matter for this usage; we use only certain\nproperties on its property list, to encode the rest of the arguments.\n\nCOMPOSEFUNC is program callable function that composes an outgoing\nmail message buffer. This function should set up the basics of the\nbuffer without requiring user interaction. It should populate the\nstandard mail headers, leaving the ' Literal.String
|
|
"`to:'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`subject:'" Literal.String.Symbol
|
|
' headers blank\nby default.\n\nCOMPOSEFUNC should accept several optional arguments--the same\narguments that ' Literal.String
|
|
"`compose-mail'" Literal.String.Symbol
|
|
" takes. See that function's documentation.\n\nSENDFUNC is the command a user would run to send the message.\n\nOptional ABORTFUNC is the command a user would run to abort the\nmessage. For mail packages that don't have a separate abort function,\nthis can be " Literal.String
|
|
"`kill-buffer'" Literal.String.Symbol
|
|
' (the equivalent of omitting this argument).\n\nOptional HOOKVAR is a hook variable that gets run before the message\nis actually sent. Callers that use the ' Literal.String
|
|
"`mail-user-agent'" Literal.String.Symbol
|
|
' may\ninstall a hook function temporarily on this hook variable.\nIf HOOKVAR is nil, ' Literal.String
|
|
"`mail-send-hook'" Literal.String.Symbol
|
|
' is used.\n\nThe properties used on SYMBOL are ' Literal.String
|
|
"`composefunc'" Literal.String.Symbol
|
|
', ' Literal.String
|
|
"`sendfunc'" Literal.String.Symbol
|
|
',\n' Literal.String
|
|
|
|
"`abortfunc'" Literal.String.Symbol
|
|
', and ' Literal.String
|
|
"`hookvar'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'composefunc" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'composefunc' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'sendfunc" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'sendfunc' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'abortfunc" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'abortfunc' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'kill-buffer" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'put' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'hookvar" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'hookvar' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'mail-send-hook" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\x0c\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'called-interactively-p-functions' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Special hook called to skip special frames in ' Literal.String
|
|
"`called-interactively-p'" Literal.String.Symbol
|
|
'.\nThe functions are called with 3 arguments: (I FRAME1 FRAME2),\nwhere FRAME1 is a ' Literal.String
|
|
'\\"' Literal.String
|
|
'current frame' Literal.String
|
|
'\\"' Literal.String
|
|
", FRAME2 is the next frame,\nI is the index of the frame after FRAME2. It should return nil\nif those frames don't seem special and otherwise, it should return\nthe number of frames to skip (minus 1)." Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'internal--funcall-interactively' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-function' Name.Function
|
|
' ' Text.Whitespace
|
|
"'funcall-interactively" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'called-interactively-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'kind' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if the containing function was called by ' Literal.String
|
|
"`call-interactively'" Literal.String.Symbol
|
|
'.\nIf KIND is ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
', then only return t if the call was made\ninteractively by the user, i.e. not in ' Literal.String
|
|
"`noninteractive'" Literal.String.Symbol
|
|
' mode nor\nwhen ' Literal.String
|
|
"`executing-kbd-macro'" Literal.String.Symbol
|
|
'.\nIf KIND is ' Literal.String
|
|
"`any'" Literal.String.Symbol
|
|
', on the other hand, it will return t for any kind of\ninteractive call, including being called as the binding of a key or\nfrom a keyboard macro, even in ' Literal.String
|
|
"`noninteractive'" Literal.String.Symbol
|
|
' mode.\n\nThis function is very brittle, it may fail to return the intended result when\nthe code is debugged, advised, or instrumented in some form. Some macros and\nspecial forms (such as ' Literal.String
|
|
"`condition-case'" Literal.String.Symbol
|
|
') may also sometimes wrap their bodies\nin a ' Literal.String
|
|
"`lambda'" Literal.String.Symbol
|
|
', so any call to ' Literal.String
|
|
"`called-interactively-p'" Literal.String.Symbol
|
|
' from those bodies will\nindicate whether that lambda (rather than the surrounding function) was called\ninteractively.\n\nInstead of using this function, it is cleaner and more reliable to give your\nfunction an extra optional argument whose ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
' spec specifies\nnon-nil unconditionally (' Literal.String
|
|
'\\"' Literal.String
|
|
'p' Literal.String
|
|
'\\"' Literal.String
|
|
' is a good way to do this), or via\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'not (or executing-kbd-macro noninteractive)).\n\nThe only known proper use of ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
" for KIND is in deciding\nwhether to display a helpful message, or how to display it. If you're\nthinking of using it for any other purpose, it is quite likely that\nyou're making a mistake. Think: what do you want to do when the\ncommand is called from a keyboard macro?" Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'advertised-calling-convention' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'kind' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.1' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'kind' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'interactive" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'executing-kbd-macro' Name.Variable
|
|
' ' Text.Whitespace
|
|
'noninteractive' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';; 0 is the called-interactively-p frame.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nextframe' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'get-next-frame' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nextframe' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'nextframe' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'backtrace-frame' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'called-interactively-p" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; (message "Frame %d = %S" i nextframe)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'get-next-frame' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
';; Get the first frame.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: The edebug and advice handling should be made modular and' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; provided directly by edebug.el and nadvice.el.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progn' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; frame =(backtrace-frame i-2)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; nextframe=(backtrace-frame i-1)' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'get-next-frame' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; `pcase' would be a fairly good fit here, but it sometimes moves" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; branches within local functions, which then messes up the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `backtrace-frame' data we get," Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; Skip special forms (from non-compiled code).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Skip also `interactive-p' (because we don't want to know if" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; interactive-p was called interactively but if it's caller was)" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; and `byte-code' (idem; this appears in subexpressions of things" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; like condition-case, which are wrapped in a separate bytecode' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; chunk).' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; FIXME: For lexical-binding code, this is much worse,' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; because the frames look like "byte-code -> funcall -> #[...]",' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; which is not a reliable signature.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'interactive-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'byte-code" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Skip package-specific stack-frames.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'skip' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'run-hook-with-args-until-success' Name.Function
|
|
'\n ' Text.Whitespace
|
|
"'called-interactively-p-functions" Literal.String.Symbol
|
|
'\n ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nextframe' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pcase' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'skip' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'`' Operator
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'`' Operator
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'_' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'skip' Name.Variable
|
|
' ' Text.Whitespace
|
|
'-1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'get-next-frame' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Now `frame\' should be "the function from which we were called".' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'pcase' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'frame' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nextframe' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; No subr calls `interactive-p', so we can rule that out." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'_' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'pred' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'subrp' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indirect-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'_' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'_' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; In case #<subr funcall-interactively> without going through the' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; `funcall-interactively' symbol (bug#3984)." Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'`' Operator
|
|
'(' Punctuation
|
|
',' Operator
|
|
'_' Name.Variable
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'pred' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'internal--funcall-interactively' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indirect-function' Name.Function
|
|
' ' Text.Whitespace
|
|
'f' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'_' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'interactive-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if the containing function was run directly by user input.\nThis means that the function was called with ' Literal.String
|
|
"`call-interactively'" Literal.String.Symbol
|
|
'\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'which includes being called as the binding of a key)\nand input is currently coming from the keyboard (not a keyboard macro),\nand Emacs is not running in batch mode (' Literal.String
|
|
"`noninteractive'" Literal.String.Symbol
|
|
' is nil).\n\nThe only known proper use of ' Literal.String
|
|
"`interactive-p'" Literal.String.Symbol
|
|
" is in deciding whether to\ndisplay a helpful message, or how to display it. If you're thinking\nof using it for any other purpose, it is quite likely that you're\nmaking a mistake. Think: what do you want to do when the command is\ncalled from a keyboard macro or in batch mode?\n\nTo test whether your function was called with " Literal.String
|
|
"`call-interactively'" Literal.String.Symbol
|
|
',\neither (i) add an extra optional argument and give it an ' Literal.String
|
|
"`interactive'" Literal.String.Symbol
|
|
'\nspec that specifies non-nil unconditionally (such as ' Literal.String
|
|
'\\"' Literal.String
|
|
'p' Literal.String
|
|
'\\"' Literal.String
|
|
'); or (ii)\nuse ' Literal.String
|
|
"`called-interactively-p'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'obsolete' Name.Variable
|
|
' ' Text.Whitespace
|
|
'called-interactively-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'23.2' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'called-interactively-p' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'interactive" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'internal-push-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'add-keymap-witness" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-composed-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'add-keymap-witness" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'internal-pop-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'symbol-value' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'memq' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setf' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'delq' Name.Function
|
|
' ' Text.Whitespace
|
|
'keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'tail' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cddr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'keymapp' Name.Function
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
"'add-keymap-witness" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'set' Name.Function
|
|
' ' Text.Whitespace
|
|
'symbol' Name.Variable
|
|
' ' Text.Whitespace
|
|
'tail' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'define-obsolete-function-alias' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
"'set-temporary-overlay-map" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
"'set-transient-map" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'24.4' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'set-transient-map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'keep-pred' Name.Variable
|
|
' ' Text.Whitespace
|
|
'on-exit' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Set MAP as a temporary keymap taking precedence over other keymaps.\nNormally, MAP is used only once, to look up the very next key.\nHowever, if the optional argument KEEP-PRED is t, MAP stays\nactive if a key from MAP is used. KEEP-PRED can also be a\nfunction of no arguments: it is called from ' Literal.String
|
|
"`pre-command-hook'" Literal.String.Symbol
|
|
' and\nif it returns non-nil, then MAP stays active.\n\nOptional arg ON-EXIT, if non-nil, specifies a function that is\ncalled, with no arguments, after MAP is deactivated.\n\nThis uses ' Literal.String
|
|
"`overriding-terminal-local-map'" Literal.String.Symbol
|
|
' which takes precedence over all other\nkeymaps. As usual, if no match for a key is found in MAP, the normal key\nlookup sequence then continues.\n\nThis returns an ' Literal.String
|
|
'\\"' Literal.String
|
|
'exit function' Literal.String
|
|
'\\"' Literal.String
|
|
', which can be called with no argument\nto deactivate this transient map, regardless of KEEP-PRED.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'clearfun' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'clear-transient-map' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'exitfun' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal-pop-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'overriding-terminal-local-map" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'remove-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'pre-command-hook" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'clearfun' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'on-exit' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'on-exit' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; Don't use letrec, because equal (in add/remove-hook) would get trapped" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; in a cycle.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fset' Name.Function
|
|
' ' Text.Whitespace
|
|
'clearfun' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lambda' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'with-demoted-errors' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'set-transient-map PCH: %S' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'keep-pred' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cadr' Name.Variable
|
|
' ' Text.Whitespace
|
|
'overriding-terminal-local-map' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
";; There's presumably some other transient-map in" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; effect. Wait for that one to terminate before we' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; remove ourselves.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; For example, if isearch and C-u both use transient' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; maps, then the lifetime of the C-u should be nested' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; within isearch's, so the pre-command-hook of" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; isearch should be suspended during the C-u one so' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; we don't exit isearch just because we hit 1 after" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
";; C-u and that 1 exits isearch whereas it doesn't" Comment.Single
|
|
'\n ' Text.Whitespace
|
|
';; exit C-u.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'keep-pred' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'this-command' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lookup-key' Name.Function
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'this-command-keys-vector' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'keep-pred' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'funcall' Name.Function
|
|
' ' Text.Whitespace
|
|
'exitfun' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'add-hook' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'pre-command-hook" Literal.String.Symbol
|
|
' ' Text.Whitespace
|
|
'clearfun' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'internal-push-keymap' Name.Variable
|
|
' ' Text.Whitespace
|
|
'map' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'overriding-terminal-local-map" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'exitfun' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';;;; Progress reporters.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; Progress reporter has the following structure:' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t(NEXT-UPDATE-VALUE . [NEXT-UPDATE-TIME' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t\t\t MIN-VALUE' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t\t\t MAX-VALUE' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t\t\t MESSAGE' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t\t\t MIN-CHANGE' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;\t\t\t MIN-TIME])' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; This weirdness is for optimization reasons: we want' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; `progress-reporter-update' to be as fast as possible, so" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; `(car reporter)' is better than `(aref reporter 0)'." Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';;' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; NEXT-UPDATE-TIME is a float. While `float-time' loses a couple" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
";; digits of precision, it doesn't really matter here. On the other" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; hand, it greatly simplifies the code.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defsubst' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'progress-reporter-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Report progress of an operation in the echo area.\nREPORTER should be the result of a call to ' Literal.String
|
|
"`make-progress-reporter'" Literal.String.Symbol
|
|
'.\n\nIf REPORTER is a numerical progress reporter---i.e. if it was\n made using non-nil MIN-VALUE and MAX-VALUE arguments to\n ' Literal.String
|
|
"`make-progress-reporter'" Literal.String.Symbol
|
|
'---then VALUE should be a number between\n MIN-VALUE and MAX-VALUE.\n\nIf REPORTER is a non-numerical reporter, VALUE should be nil.\n\nThis function is relatively inexpensive. If the change since\nlast update is too small or insufficient time has passed, it does\nnothing.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'numberp' Name.Function
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; For pulsing reporter' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'; For numerical reporter' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progress-reporter-do-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'make-progress-reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'current-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-change' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-time' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return progress reporter object for use with ' Literal.String
|
|
"`progress-reporter-update'" Literal.String.Symbol
|
|
'.\n\nMESSAGE is shown in the echo area, with a status indicator\nappended to the end. When you call ' Literal.String
|
|
"`progress-reporter-done'" Literal.String.Symbol
|
|
', the\nword ' Literal.String
|
|
'\\"' Literal.String
|
|
'done' Literal.String
|
|
'\\"' Literal.String
|
|
' is printed after the MESSAGE. You can change the\nMESSAGE of an existing progress reporter by calling\n' Literal.String
|
|
|
|
"`progress-reporter-force-update'" Literal.String.Symbol
|
|
'.\n\nMIN-VALUE and MAX-VALUE, if non-nil, are starting (0% complete)\nand final (100% complete) states of operation; the latter should\nbe larger. In this case, the status message shows the percentage\nprogress.\n\nIf MIN-VALUE and/or MAX-VALUE is omitted or nil, the status\nmessage shows a ' Literal.String
|
|
'\\"' Literal.String
|
|
'spinning' Literal.String
|
|
'\\"' Literal.String
|
|
', non-numeric indicator.\n\nOptional CURRENT-VALUE is the initial progress; the default is\nMIN-VALUE.\nOptional MIN-CHANGE is the minimal change in percents to report;\nthe default is 1%.\nCURRENT-VALUE and MIN-CHANGE do not have any effect if MIN-VALUE\nand/or MAX-VALUE are nil.\n\nOptional MIN-TIME specifies the minimum interval time between\necho area updates (default is 0.2 seconds.) If the function\n' Literal.String
|
|
|
|
"`float-time'" Literal.String.Symbol
|
|
' is not present, time is not tracked at all. If the\nOS is not capable of measuring fractions of seconds, this\nparameter is effectively rounded up.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[[:alnum:]]' Literal.String
|
|
'\\\\' Literal.String
|
|
"'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'...' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'min-time' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'min-time' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0.2' Literal.Number.Float
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'reporter' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
";; Force a call to `message' now" Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'vector' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'fboundp' Name.Function
|
|
' ' Text.Whitespace
|
|
"'float-time" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t\t\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'min-time' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0.02' Literal.Number.Float
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'float-time' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'message' Name.Function
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'min-change' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'max' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'min-change' Name.Variable
|
|
' ' Text.Whitespace
|
|
'50' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'min-time' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progress-reporter-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'current-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'progress-reporter-force-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'new-message' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Report progress of an operation in the echo area unconditionally.\n\nThe first two arguments are the same as in ' Literal.String
|
|
"`progress-reporter-update'" Literal.String.Symbol
|
|
'.\nNEW-MESSAGE, if non-nil, sets a new message for the reporter.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'new-message' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'new-message' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'float-time' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progress-reporter-do-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'progress-reporter--pulse-characters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'[' Punctuation
|
|
'"' Literal.String
|
|
'-' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'|' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'/' Literal.String
|
|
'"' Literal.String
|
|
']' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Characters to use for pulsing progress reporters.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'progress-reporter-do-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'update-time' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'max-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'text' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'enough-time-passed' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
';; See if enough time has passed since the last update.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'update-time' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'float-time' Name.Function
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'update-time' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
';; Calculate time for the next update' Comment.Single
|
|
'\n\t\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'aset' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'update-time' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'5' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Numerical indicator' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let*' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'one-percent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'100.0' Literal.Number.Float
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'percentage' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'truncate' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'/' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'one-percent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Calculate NEXT-UPDATE-VALUE. If we are not printing' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; message because not enough time has passed, use 1' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; instead of MIN-CHANGE. This makes delays between echo' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
';; area updates closer to MIN-TIME.' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'min' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'min-value' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'*' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'+' Name.Function
|
|
' ' Text.Whitespace
|
|
'percentage' Name.Variable
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'enough-time-passed' Name.Variable
|
|
'\n\t\t\t\t\t\t ' Text.Whitespace
|
|
';; MIN-CHANGE' Comment.Single
|
|
'\n\t\t\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'parameters' Name.Variable
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t\t\t ' Text.Whitespace
|
|
'one-percent' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'max-value' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'integerp' Name.Function
|
|
' ' Text.Whitespace
|
|
'value' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ceiling' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Only print message if enough time has passed' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'enough-time-passed' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'percentage' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s%d%%' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'text' Name.Variable
|
|
' ' Text.Whitespace
|
|
'percentage' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'text' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; Pulsing indicator' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'enough-time-passed' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'index' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'mod' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message-log-max' Name.Variable
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setcar' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
'index' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%s %s' Literal.String
|
|
'"' Literal.String
|
|
'\n\t\t ' Text.Whitespace
|
|
'text' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'progress-reporter--pulse-characters' Name.Variable
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'index' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'progress-reporter-done' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Print reporter's message followed by word " Literal.String
|
|
'\\"' Literal.String
|
|
'done' Literal.String
|
|
'\\"' Literal.String
|
|
' in echo area.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'%sdone' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'reporter' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defmacro' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'dotimes-with-progress-reporter' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'spec' Name.Variable
|
|
' ' Text.Whitespace
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
'&rest' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Loop a certain number of times and report progress in the echo area.\nEvaluate BODY with VAR bound to successive integers running from\n0, inclusive, to COUNT, exclusive. Then evaluate RESULT to get\nthe return value (nil if RESULT is omitted).\n\nAt each iteration MESSAGE followed by progress percentage is\nprinted in the echo area. After the loop is finished, MESSAGE\nfollowed by word ' Literal.String
|
|
'\\"' Literal.String
|
|
'done' Literal.String
|
|
'\\"' Literal.String
|
|
' is printed. This macro is a\nconvenience wrapper around ' Literal.String
|
|
"`make-progress-reporter'" Literal.String.Symbol
|
|
' and friends.\n\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'fn (VAR COUNT [RESULT]) MESSAGE BODY...)' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'declare' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'indent' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'debug' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'symbolp' Name.Function
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
' ' Text.Whitespace
|
|
'&optional' Keyword.Pseudo
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'form' Name.Variable
|
|
' ' Text.Whitespace
|
|
'body' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'--dotimes-temp--' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'temp2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-symbol' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'--dotimes-temp2--' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'end' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'nth' Name.Function
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'start' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
',' Operator
|
|
'temp2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-progress-reporter' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'message' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'start' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'end' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
',@' Operator
|
|
'body' Name.Variable
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progress-reporter-update' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp2' Name.Variable
|
|
'\n\t\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'1+' Name.Function
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'progress-reporter-done' Name.Variable
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'temp2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
' ' Text.Whitespace
|
|
',@' Operator
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'spec' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;;; Comparing version strings.' Comment.Single
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'version-separator' Name.Variable
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Specify the string used to separate the version elements.\n\nUsually the separator is ' Literal.String
|
|
'\\"' Literal.String
|
|
'.' Literal.String
|
|
'\\"' Literal.String
|
|
', but it can be any other string.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'version-regexp-alist' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+ ]?snapshot$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-4' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; treat "1.2.3-20050920" and "1.2-3" as snapshot releases' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+]$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-4' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; treat "1.2.3-CVS" as snapshot release' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+ ]?' Literal.String
|
|
'\\\\' Literal.String
|
|
'(cvs' Literal.String
|
|
'\\\\' Literal.String
|
|
'|git' Literal.String
|
|
'\\\\' Literal.String
|
|
'|bzr' Literal.String
|
|
'\\\\' Literal.String
|
|
'|svn' Literal.String
|
|
'\\\\' Literal.String
|
|
'|hg' Literal.String
|
|
'\\\\' Literal.String
|
|
'|darcs' Literal.String
|
|
'\\\\' Literal.String
|
|
')$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-4' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+ ]?alpha$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-3' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+ ]?beta$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-2' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'^[-_+ ]?' Literal.String
|
|
'\\\\' Literal.String
|
|
'(pre' Literal.String
|
|
'\\\\' Literal.String
|
|
'|rc' Literal.String
|
|
'\\\\' Literal.String
|
|
')$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'-1' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Specify association between non-numeric version and its priority.\n\nThis association is used to handle version string like ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0pre2' Literal.String
|
|
'\\"' Literal.String
|
|
',\n' Literal.String
|
|
|
|
'\\"' Literal.String
|
|
'0.9alpha1' Literal.String
|
|
'\\"' Literal.String
|
|
", etc. It's used by " Literal.String
|
|
"`version-to-list'" Literal.String.Symbol
|
|
' (which see) to convert the\nnon-numeric part of a version string to an integer. For example:\n\n String Version Integer List Version\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9snapshot' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -4)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0-git' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -4)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0pre2' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -1 2)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0PRE2' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -1 2)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'22.8beta3' Literal.String
|
|
'\\"' Literal.String
|
|
' (22 8 -2 3)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'22.8 Beta3' Literal.String
|
|
'\\"' Literal.String
|
|
' (22 8 -2 3)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9alpha1' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3 1)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9AlphA1' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3 1)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9 alpha' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3)\n\nEach element has the following form:\n\n (REGEXP . PRIORITY)\n\nWhere:\n\nREGEXP\t\tregexp used to match non-numeric part of a version string.\n\t\tIt should begin with the ' Literal.String
|
|
"`^'" Literal.String.Symbol
|
|
' anchor and end with a ' Literal.String
|
|
"`$'" Literal.String.Symbol
|
|
' to\n\t\tprevent false hits. Letter-case is ignored while matching\n\t\tREGEXP.\n\nPRIORITY\ta negative integer specifying non-numeric priority of REGEXP.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Convert version string VER into a list of integers.\n\nThe version syntax is given by the following EBNF:\n\n VERSION ::= NUMBER ( SEPARATOR NUMBER )*.\n\n NUMBER ::= (0|1|2|3|4|5|6|7|8|9)+.\n\n SEPARATOR ::= ' Literal.String
|
|
"`version-separator'" Literal.String.Symbol
|
|
' (which see)\n\t | ' Literal.String
|
|
"`version-regexp-alist'" Literal.String.Symbol
|
|
' (which see).\n\nThe NUMBER part is optional if SEPARATOR is a match for an element\nin ' Literal.String
|
|
"`version-regexp-alist'" Literal.String.Symbol
|
|
'.\n\nExamples of valid version syntax:\n\n 1.0pre2 1.0.7.5 22.8beta3 0.9alpha1 6.9.30Beta\n\nExamples of invalid version syntax:\n\n 1.0prepre2 1.0..7.5 22.8X3 alpha3.2 .5\n\nExamples of version conversion:\n\n Version String Version as a List of Integers\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.7.5' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 7 5)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0pre2' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -1 2)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0PRE2' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -1 2)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'22.8beta3' Literal.String
|
|
'\\"' Literal.String
|
|
' (22 8 -2 3)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'22.8Beta3' Literal.String
|
|
'\\"' Literal.String
|
|
' (22 8 -2 3)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9alpha1' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3 1)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9AlphA1' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3 1)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9alpha' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -3)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'0.9snapshot' Literal.String
|
|
'\\"' Literal.String
|
|
' (0 9 -4)\n ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0-git' Literal.String
|
|
'\\"' Literal.String
|
|
' (1 0 -4)\n\nSee documentation for ' Literal.String
|
|
"`version-separator'" Literal.String.Symbol
|
|
' and ' Literal.String
|
|
"`version-regexp-alist'" Literal.String.Symbol
|
|
'.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'or' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'stringp' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Invalid version string: '%s'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; Change .x.y to 0.x.y' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'>=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'version-separator' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-equal' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'length' Name.Function
|
|
' ' Text.Whitespace
|
|
'version-separator' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'version-separator' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'0' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'save-match-data' Name.Builtin
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'case-fold-search' Name.Variable
|
|
' ' Text.Whitespace
|
|
't' Name.Constant
|
|
')' Punctuation
|
|
'\t\t' Text.Whitespace
|
|
'; ignore case in matching' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[0-9]+' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; handle numeric part' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cons' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-to-number' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t\t' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
';; handle non-numeric part' Comment.Single
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'[^0-9]+' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
' ' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t' Text.Whitespace
|
|
'i' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-end' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
';; handle alpha, beta, pre, etc. separator' Comment.Single
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'unless' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string=' Name.Function
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
' ' Text.Whitespace
|
|
'version-separator' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
' ' Text.Whitespace
|
|
'version-regexp-alist' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'not' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'caar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'al' Name.Variable
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdar' Name.Variable
|
|
' ' Text.Whitespace
|
|
'al' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
';; Convert 22.3a to 22.3.1, 22.3b to 22.3.2, etc.' Comment.Single
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'^[-_+ ]?' Literal.String
|
|
'\\\\' Literal.String
|
|
'([a-zA-Z]' Literal.String
|
|
'\\\\' Literal.String
|
|
')$' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'push' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'-' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'aref' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'downcase' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
's' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'?a' Literal.String.Char
|
|
' ' Text.Whitespace
|
|
'-1' Literal.Number.Integer
|
|
')' Punctuation
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Invalid version syntax: '%s'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'error' Name.Exception
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
"Invalid version syntax: '%s'" Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'ver' Name.Variable
|
|
')' Punctuation
|
|
'\n\t' Text.Whitespace
|
|
'(' Punctuation
|
|
'nreverse' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version-list-<' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if L1, a list specification of a version, is lower than L2.\n\nNote that a version specified by the list (1) is equal to (1 0),\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'1 0 0), (1 0 0 0), etc. That is, the trailing zeros are insignificant.\nAlso, a version given by the list (1) is higher than (1 -1), which in\nturn is higher than (1 -2), which is higher than (1 -3).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 not null' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 null ==> l1 length = l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 null ==> l1 length > l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 not null ==> l2 length > l1 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version-list-=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if L1, a list specification of a version, is equal to L2.\n\nNote that a version specified by the list (1) is equal to (1 0),\n' Literal.String
|
|
|
|
'\\(' Literal.String
|
|
'1 0 0), (1 0 0 0), etc. That is, the trailing zeros are insignificant.\nAlso, a version given by the list (1) is higher than (1 -1), which in\nturn is higher than (1 -2), which is higher than (1 -3).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 not null' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'nil' Name.Constant
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 null ==> l1 length = l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 null ==> l1 length > l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 not null ==> l2 length > l1 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version-list-<=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if L1, a list specification of a version, is lower or equal to L2.\n\nNote that integer list (1) is equal to (1 0), (1 0 0), (1 0 0 0),\netc. That is, the trailing zeroes are insignificant. Also, integer\nlist (1) is greater than (1 -1) which is greater than (1 -2)\nwhich is greater than (1 -3).' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cond' Keyword
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 not null' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 null ==> l1 length = l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'null' Name.Function
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 not null and l2 null ==> l1 length > l2 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'l1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; l1 null and l2 not null ==> l2 length > l1 length' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
't' Name.Constant
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'<=' Name.Function
|
|
' ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'l2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version-list-not-zero' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return the first non-zero element of LST, which is a list of integers.\n\nIf all LST elements are zeros or LST is nil, return zero.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'while' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'zerop' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'cdr' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'lst' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
';; there is no element different of zero' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'0' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version<' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'v1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if version V1 is lower (older) than V2.\n\nNote that version string ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is equal to ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
',\netc. That is, the trailing ' Literal.String
|
|
'\\"' Literal.String
|
|
'.0' Literal.String
|
|
'\\"' Literal.String
|
|
's are insignificant. Also, version\nstring ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is higher (newer) than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1pre' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1beta' Literal.String
|
|
'\\"' Literal.String
|
|
',\nwhich is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1alpha' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1snapshot' Literal.String
|
|
'\\"' Literal.String
|
|
'.\nAlso, ' Literal.String
|
|
'\\"' Literal.String
|
|
'-GIT' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'-CVS' Literal.String
|
|
'\\"' Literal.String
|
|
' and ' Literal.String
|
|
'\\"' Literal.String
|
|
'-NNN' Literal.String
|
|
'\\"' Literal.String
|
|
' are treated as snapshot versions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-<' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version<=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'v1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if version V1 is lower (older) than or equal to V2.\n\nNote that version string ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is equal to ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
',\netc. That is, the trailing ' Literal.String
|
|
'\\"' Literal.String
|
|
'.0' Literal.String
|
|
'\\"' Literal.String
|
|
's are insignificant. Also, version\nstring ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is higher (newer) than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1pre' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1beta' Literal.String
|
|
'\\"' Literal.String
|
|
',\nwhich is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1alpha' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1snapshot' Literal.String
|
|
'\\"' Literal.String
|
|
'.\nAlso, ' Literal.String
|
|
'\\"' Literal.String
|
|
'-GIT' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'-CVS' Literal.String
|
|
'\\"' Literal.String
|
|
' and ' Literal.String
|
|
'\\"' Literal.String
|
|
'-NNN' Literal.String
|
|
'\\"' Literal.String
|
|
' are treated as snapshot versions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-<=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'version=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'v1' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Return t if version V1 is equal to V2.\n\nNote that version string ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is equal to ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'1.0.0.0' Literal.String
|
|
'\\"' Literal.String
|
|
',\netc. That is, the trailing ' Literal.String
|
|
'\\"' Literal.String
|
|
'.0' Literal.String
|
|
'\\"' Literal.String
|
|
's are insignificant. Also, version\nstring ' Literal.String
|
|
'\\"' Literal.String
|
|
'1' Literal.String
|
|
'\\"' Literal.String
|
|
' is higher (newer) than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1pre' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1beta' Literal.String
|
|
'\\"' Literal.String
|
|
',\nwhich is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1alpha' Literal.String
|
|
'\\"' Literal.String
|
|
', which is higher than ' Literal.String
|
|
'\\"' Literal.String
|
|
'1snapshot' Literal.String
|
|
'\\"' Literal.String
|
|
'.\nAlso, ' Literal.String
|
|
'\\"' Literal.String
|
|
'-GIT' Literal.String
|
|
'\\"' Literal.String
|
|
', ' Literal.String
|
|
'\\"' Literal.String
|
|
'-CVS' Literal.String
|
|
'\\"' Literal.String
|
|
' and ' Literal.String
|
|
'\\"' Literal.String
|
|
'-NNN' Literal.String
|
|
'\\"' Literal.String
|
|
' are treated as snapshot versions.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-list-=' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v1' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'v2' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defvar' Keyword
|
|
' ' Text.Whitespace
|
|
'package--builtin-versions' Name.Variable
|
|
'\n ' Text.Whitespace
|
|
';; Mostly populated by loaddefs.el via autoload-builtin-package-versions.' Comment.Single
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'purecopy' Name.Function
|
|
' ' Text.Whitespace
|
|
'`' Operator
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'emacs' Name.Variable
|
|
' ' Text.Whitespace
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
',' Operator
|
|
'(' Punctuation
|
|
'version-to-list' Name.Variable
|
|
' ' Text.Whitespace
|
|
'emacs-version' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Alist giving the version of each versioned builtin package.\nI.e. each element of the list is of the form (NAME . VERSION) where\nNAME is the package name as a symbol, and VERSION is its version\nas a list.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'package--description-file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'dir' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'let' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'(' Punctuation
|
|
'subdir' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file-name-nondirectory' Name.Function
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'directory-file-name' Name.Function
|
|
' ' Text.Whitespace
|
|
'dir' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'if' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'([^.].*?' Literal.String
|
|
'\\\\' Literal.String
|
|
')-' Literal.String
|
|
'\\\\' Literal.String
|
|
'([0-9]+' Literal.String
|
|
'\\\\' Literal.String
|
|
'(?:[.][0-9]+' Literal.String
|
|
'\\\\' Literal.String
|
|
'|' Literal.String
|
|
'\\\\' Literal.String
|
|
'(?:pre' Literal.String
|
|
'\\\\' Literal.String
|
|
'|beta' Literal.String
|
|
'\\\\' Literal.String
|
|
'|alpha' Literal.String
|
|
'\\\\' Literal.String
|
|
')[0-9]+' Literal.String
|
|
'\\\\' Literal.String
|
|
')*' Literal.String
|
|
'\\\\' Literal.String
|
|
')' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'subdir' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'match-string' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'subdir' Name.Variable
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'subdir' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'-pkg.el' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n\x0c\n' Text.Whitespace
|
|
|
|
';;; Misc.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defconst' Keyword
|
|
' ' Text.Whitespace
|
|
'menu-bar-separator' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'" Operator
|
|
'(' Punctuation
|
|
'"' Literal.String
|
|
'--' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Separator for menus.' Literal.String
|
|
'"' Literal.String
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
";; The following statement ought to be in print.c, but `provide' can't" Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; be used there.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; http://lists.gnu.org/archive/html/emacs-devel/2009-08/msg00236.html' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'hash-table-p' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'car' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'read-from-string' Name.Function
|
|
'\n\t\t\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'prin1-to-string' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'make-hash-table' Name.Function
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'provide' Name.Builtin
|
|
' ' Text.Whitespace
|
|
"'hashtable-print-readable" Literal.String.Symbol
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n\n' Text.Whitespace
|
|
|
|
';; This is used in lisp/Makefile.in and in leim/Makefile.in to' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
';; generate file names for autoloads, custom-deps, and finder-data.' Comment.Single
|
|
'\n' Text.Whitespace
|
|
|
|
'(' Punctuation
|
|
'defun' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'unmsys--file-name' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'"' Literal.String
|
|
'Produce the canonical file name for FILE from its MSYS form.\n\nOn systems other than MS-Windows, just returns FILE.\nOn MS-Windows, converts /d/foo/bar form of file names\npassed by MSYS Make into d:/foo/bar that Emacs can grok.\n\nThis function is called from lisp/Makefile and leim/Makefile.' Literal.String
|
|
'"' Literal.String
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'when' Name.Builtin
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'and' Keyword
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'eq' Name.Function
|
|
' ' Text.Whitespace
|
|
'system-type' Name.Variable
|
|
' ' Text.Whitespace
|
|
"'windows-nt" Literal.String.Symbol
|
|
')' Punctuation
|
|
'\n\t ' Text.Whitespace
|
|
'(' Punctuation
|
|
'string-match' Name.Function
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
'\\\\' Literal.String
|
|
'`' Literal.String
|
|
'/[a-zA-Z]/' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'(' Punctuation
|
|
'setq' Keyword
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'concat' Name.Function
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'1' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
' ' Text.Whitespace
|
|
'"' Literal.String
|
|
':' Literal.String
|
|
'"' Literal.String
|
|
' ' Text.Whitespace
|
|
'(' Punctuation
|
|
'substring' Name.Function
|
|
' ' Text.Whitespace
|
|
'file' Name.Variable
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
')' Punctuation
|
|
'\n ' Text.Whitespace
|
|
'file' Name.Variable
|
|
')' Punctuation
|
|
'\n\n\n' Text.Whitespace
|
|
|
|
';;; subr.el ends here' Comment.Single
|
|
'\n' Text.Whitespace
|