mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 09:14:18 +00:00
Merge from origin/emacs-25
facb5e2Update Emacs manual section related to character folding4efea8e; * etc/DEBUG: Fix a typo. (Bug#22984)f8df21bUpdate admin/notes/unicode950be68Add symref-filepattern entries for c?perl-mode8b8a6adDon't use XRANDR 1.3 extensions if the server doesn't support them.985dacf; NEWS update for the last change in etags741a6f8Sync with gnulib7352c6cRework C source files to avoid ^(a589e9aBy default, etags produces unqualified Perl tag names72c7438Indent methods with keyword names correctly28532a9Propertize character literals and special global variables differentlya7d6f39; Fix last change in NEWS83b2a20Change how /etc/NEWS presents character foldingb417c5aRevert "Revert "Backport: * lisp/isearch.el: Turn char-folding off by default""711ca36Properly handle lambda as read function (bug 22961)1b9d616Propertize operator symbol names with symbol syntax class9b16bc2Stop recognizing :#{} as symbol in ruby-mode366ec77Allow using the left shift operator without spaces on both sides02bf7ccProperly handle unquoting in wdired (bug 22938)16cf469; Spelling fix and tighten up commentf50bc04Allow splat operator before percent literal991c801Don't apply the return value of goto-char as syntax class6e63b3eGuard against nested percent literals066f3bcRecognize iuwu-mod after an escaped newline6f7a57cFix symbolic mode string conversion for s and t50b9826Update 'ucs-names' database993b2fbImprove doc string of 'shell-command'b71c717Make the code in movemail_strftime more generalcc057e4Speed up redisplay of binary files with long series of nullse51b27eRemove the highlighting support for quoting 'like this' inside Lisp docstringsb1abce1Restore leading space in movemail pop output98b8d44Fix bidi-paragraph-direction in Rmail view bufferdc9d837Don't misindent computed property generator methods7923112Fix mbox files produced by movemail on MS-Windowsc45a1cadoc string file descriptor exhaustion fix265141bFix Bug#22814
This commit is contained in:
John Wiegley
commit
63efcc2686
257 changed files with 1375 additions and 1305 deletions
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -10,7 +10,9 @@ Emacs uses the following files from the Unicode Character Database
|
|||
(a.k.a. "UCD):
|
||||
|
||||
. UnicodeData.txt
|
||||
. Blocks.txt
|
||||
. BidiMirroring.txt
|
||||
. BidiBrackets.txt
|
||||
. IVD_Sequences.txt
|
||||
|
||||
First, these files need to be copied into admin/unidata/, and then
|
||||
|
|
@ -37,6 +39,11 @@ Any new scripts added by UnicodeData.txt will also need updates to
|
|||
script-representative-chars defined in fontset.el. Other databases in
|
||||
fontset.el might also need to be updated as needed.
|
||||
|
||||
The function 'ucs-names', defined in lisp/international/mule-cmds.el,
|
||||
might need to be updated because it knows about used and unused ranges
|
||||
of Unicode codepoints, which a new release of the Unicode Standard
|
||||
could change.
|
||||
|
||||
Problems, fixmes and other unicode-related issues
|
||||
-------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
12
configure.ac
12
configure.ac
|
|
@ -3600,14 +3600,6 @@ if test "${HAVE_X11}" = "yes"; then
|
|||
fi
|
||||
fi
|
||||
if test $HAVE_XRANDR = yes; then
|
||||
SAVE_CFLAGS="$CFLAGS"
|
||||
SAVE_LIBS="$LIBS"
|
||||
CFLAGS="$XRANDR_CFLAGS $CFLAGS"
|
||||
LIBS="$XRANDR_LIBS $LIBS"
|
||||
AC_CHECK_FUNCS(XRRGetOutputPrimary XRRGetScreenResourcesCurrent)
|
||||
CFLAGS="$SAVE_CFLAGS"
|
||||
LIBS="$SAVE_LIBS"
|
||||
|
||||
AC_DEFINE(HAVE_XRANDR, 1, [Define to 1 if you have the XRandr extension.])
|
||||
fi
|
||||
fi
|
||||
|
|
@ -5116,8 +5108,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -1265,14 +1265,14 @@ character sequences}.
|
|||
|
||||
@kindex M-s ' @r{(Incremental Search)}
|
||||
@findex isearch-toggle-character-fold
|
||||
Generally, search commands in Emacs by default perform character
|
||||
folding, thus matching equivalent character sequences. You can
|
||||
disable this behavior by customizing the variable
|
||||
@code{search-default-mode} to @code{nil}. @xref{Search
|
||||
Customizations}. Within an incremental search, typing @kbd{M-s '}
|
||||
(@code{isearch-toggle-character-fold}) toggles character folding, but
|
||||
only for that search. (Replace commands have a different default,
|
||||
controlled by a separate option; see @ref{Replacement and Lax
|
||||
Generally, search commands in Emacs do not by default perform
|
||||
character folding in order to match equivalent character sequences.
|
||||
You can enable this behavior by customizing the variable
|
||||
@code{search-default-mode} to @code{character-fold-to-regexp}.
|
||||
@xref{Search Customizations}. Within an incremental search, typing
|
||||
@kbd{M-s '} (@code{isearch-toggle-character-fold}) toggles character
|
||||
folding, but only for that search. (Replace commands have a different
|
||||
default, controlled by a separate option; see @ref{Replacement and Lax
|
||||
Matches}.)
|
||||
|
||||
Like with case folding, typing an explicit variant of a character,
|
||||
|
|
@ -1806,9 +1806,8 @@ do literal searches without character folding, but with case folding
|
|||
and lax-whitespace matches as determined by @code{case-fold-search}
|
||||
and @code{search-whitespace-regexp}, respectively (@pxref{Lax
|
||||
Search}). If the value is @code{t}, incremental search defaults to
|
||||
regexp searches. The default value specifies a function that causes
|
||||
the default search mode to perform character folding in addition to
|
||||
case folding and lax-whitespace matching.
|
||||
regexp searches. The default value specifies a function that only
|
||||
performs case folding and lax-whitespace matching.
|
||||
|
||||
@vindex search-highlight
|
||||
The current match of an on-going incremental search is highlighted
|
||||
|
|
|
|||
|
|
@ -139,10 +139,10 @@ May be used (only once) in place of a file name on the command line.
|
|||
\fBetags\fP will read from standard input and mark the produced tags
|
||||
as belonging to the file \fBFILE\fP.
|
||||
.TP
|
||||
\fB\-\-class\-qualify\fP
|
||||
Qualify tag names with their class name in C++, ObjC, and Java.
|
||||
\fB \-Q, \-\-class\-qualify\fP
|
||||
Qualify tag names with their class name in C++, ObjC, Java, and Perl.
|
||||
This produces tag names of the form \fIclass\fP\fB::\fP\fImember\fP
|
||||
for C++,
|
||||
for C++ and Perl,
|
||||
\fIclass\fP\fB(\fP\fIcategory\fP\fB)\fP for Objective C, and \fIclass\fP\fB.\fP\fImember\fP for Java.
|
||||
For Objective C, this also produces class methods qualified with
|
||||
their arguments, as in \fIfoo\fP\fB:\fP\fIbar\fP\fB:\fP\fIbaz\fP\fB:\fP\fImore\fP.
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
% Load plain if necessary, i.e., if running under initex.
|
||||
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
|
||||
%
|
||||
\def\texinfoversion{2016-02-16.15}
|
||||
\def\texinfoversion{2016-03-06.18}
|
||||
%
|
||||
% Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
|
||||
% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
|
|
@ -1525,7 +1525,7 @@
|
|||
\def\pdfmkdest#1{{%
|
||||
% We have to set dummies so commands such as @code, and characters
|
||||
% such as \, aren't expanded when present in a section title.
|
||||
\indexnofonts
|
||||
\indexnofonts % For avoiding UTF-16 convert issue of xdvipdfmx 20150315.
|
||||
\makevalueexpandable
|
||||
% In the case of XeTeX, xdvipdfmx converts strings to UTF-16.
|
||||
% Therefore \txiescapepdf is not necessary.
|
||||
|
|
@ -1574,7 +1574,7 @@
|
|||
% In the case of XeTeX, xdvipdfmx converts strings to UTF-16.
|
||||
% Therefore, the encoding and the language may not be considered.
|
||||
%
|
||||
\indexnofonts
|
||||
\indexnofonts % For avoiding UTF-16 convert issue of xdvipdfmx 20150315.
|
||||
\setupdatafile
|
||||
% We can have normal brace characters in the PDF outlines, unlike
|
||||
% Texinfo index files. So set that up.
|
||||
|
|
@ -1591,16 +1591,11 @@
|
|||
]
|
||||
|
||||
\special{pdf:docview << /PageMode /UseOutlines >> }
|
||||
\openin 1 uptex.tex % upTeX has UTF8-UTF16 cmap
|
||||
\ifeof 1
|
||||
% upTeX does not exist. To use UTF8-UCS2 cmap.
|
||||
% In this case, non-BMP characters (over U+FFFF) can not be used.
|
||||
\special{pdf:tounicode UTF8-UCS2}
|
||||
\else
|
||||
% upTeX exists. To use UTF8-UTF16 cmap.
|
||||
% Non-BMP characters (over U+FFFF) can be used.
|
||||
\special{pdf:tounicode UTF8-UTF16}
|
||||
\fi
|
||||
% ``\special{pdf:tounicode ...}'' is not necessary
|
||||
% because xdvipdfmx converts strings from UTF-8 to UTF-16 without it.
|
||||
% However, due to UTF-16 convert issue of xdvipdfmx 20150315,
|
||||
% ``\special{pdf:dest ...}'' can not handle non-ASCII strings.
|
||||
% It fixed by xdvipdfmx 20160106 (TeX Live SVN r39753).
|
||||
\fi
|
||||
|
||||
%
|
||||
|
|
@ -3477,13 +3472,16 @@
|
|||
\newif\ifseenauthor
|
||||
\newif\iffinishedtitlepage
|
||||
|
||||
% Do an implicit @contents or @shortcontents after @end titlepage if the
|
||||
% user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage.
|
||||
%
|
||||
\newif\ifsetcontentsaftertitlepage
|
||||
\let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue
|
||||
\newif\ifsetshortcontentsaftertitlepage
|
||||
\let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue
|
||||
% @setcontentsaftertitlepage used to do an implicit @contents or
|
||||
% @shortcontents after @end titlepage, but it is now obsolete.
|
||||
\def\setcontentsaftertitlepage{%
|
||||
\errmessage{@setcontentsaftertitlepage has been removed as a Texinfo
|
||||
command; move your @contents command if you want the contents
|
||||
after the title page.}}%
|
||||
\def\setshortcontentsaftertitlepage{%
|
||||
\errmessage{@setshortcontentsaftertitlepage has been removed as a Texinfo
|
||||
command; move your @shortcontents and @contents commands if you
|
||||
want the contents after the title page.}}%
|
||||
|
||||
\parseargdef\shorttitlepage{%
|
||||
\begingroup \hbox{}\vskip 1.5in \chaprm \centerline{#1}%
|
||||
|
|
@ -3525,20 +3523,6 @@
|
|||
% Need this before the \...aftertitlepage checks so that if they are
|
||||
% in effect the toc pages will come out with page numbers.
|
||||
\HEADINGSon
|
||||
%
|
||||
% If they want short, they certainly want long too.
|
||||
\ifsetshortcontentsaftertitlepage
|
||||
\shortcontents
|
||||
\contents
|
||||
\global\let\shortcontents = \relax
|
||||
\global\let\contents = \relax
|
||||
\fi
|
||||
%
|
||||
\ifsetcontentsaftertitlepage
|
||||
\contents
|
||||
\global\let\contents = \relax
|
||||
\global\let\shortcontents = \relax
|
||||
\fi
|
||||
}
|
||||
|
||||
\def\finishtitlepage{%
|
||||
|
|
@ -6371,30 +6355,6 @@
|
|||
}
|
||||
|
||||
|
||||
% I don't think this chapter style is supported any more, so I'm not
|
||||
% updating it with the new noderef stuff. We'll see. --karl, 11aug03.
|
||||
%
|
||||
\parseargdef\setchapterstyle{\csname CHAPF#1\endcsname}
|
||||
%
|
||||
\def\unnchfopen #1{%
|
||||
\chapoddpage
|
||||
\vbox{\chapfonts \raggedtitlesettings #1\par}%
|
||||
\nobreak\bigskip\nobreak
|
||||
}
|
||||
\def\chfopen #1#2{\chapoddpage {\chapfonts
|
||||
\vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}%
|
||||
\par\penalty 5000 %
|
||||
}
|
||||
\def\centerchfopen #1{%
|
||||
\chapoddpage
|
||||
\vbox{\chapfonts \raggedtitlesettings \hfill #1\hfill}%
|
||||
\nobreak\bigskip \nobreak
|
||||
}
|
||||
\def\CHAPFopen{%
|
||||
\global\let\chapmacro=\chfopen
|
||||
\global\let\centerchapmacro=\centerchfopen}
|
||||
|
||||
|
||||
% Section titles. These macros combine the section number parts and
|
||||
% call the generic \sectionheading to do the printing.
|
||||
%
|
||||
|
|
@ -7839,7 +7799,7 @@
|
|||
% Argument is macro body with arguments substituted
|
||||
\def\scanmacro#1{%
|
||||
\newlinechar`\^^M
|
||||
\def\xprocessmacroarg{\eatspaces}%
|
||||
\def\xeatspaces{\eatspaces}%
|
||||
%
|
||||
% Process the macro body under the current catcode regime.
|
||||
\scantokens{#1\texinfoc}\aftermacro%
|
||||
|
|
@ -7935,7 +7895,7 @@
|
|||
\catcode`\_=\other
|
||||
\catcode`\|=\other
|
||||
\catcode`\~=\other
|
||||
\ifx\declaredencoding\ascii \else \setcharscatcodeothernonglobal \fi
|
||||
\passthroughcharstrue
|
||||
}
|
||||
|
||||
\def\scanargctxt{% used for copying and captions, not macros.
|
||||
|
|
@ -8069,7 +8029,7 @@
|
|||
\paramno=0\def\paramlist{}%
|
||||
\let\hash\relax
|
||||
% \hash is redefined to `#' later to get it into definitions
|
||||
\let\processmacroarg\relax
|
||||
\let\xeatspaces\relax
|
||||
\parsemargdefxxx#1,;,%
|
||||
\ifnum\paramno<10\relax\else
|
||||
\paramno0\relax
|
||||
|
|
@ -8081,7 +8041,7 @@
|
|||
\else \let\next=\parsemargdefxxx
|
||||
\advance\paramno by 1
|
||||
\expandafter\edef\csname macarg.\eatspaces{#1}\endcsname
|
||||
{\processmacroarg{\hash\the\paramno}}%
|
||||
{\xeatspaces{\hash\the\paramno}}%
|
||||
\edef\paramlist{\paramlist\hash\the\paramno,}%
|
||||
\fi\next}
|
||||
|
||||
|
|
@ -8307,16 +8267,9 @@
|
|||
%%%%%%%%%%%%%% End of code for > 10 arguments %%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
|
||||
% Remove following spaces at the expansion stage.
|
||||
% This works because spaces are discarded before each argument when TeX is
|
||||
% getting the arguments for a macro.
|
||||
% This must not be immediately followed by a }.
|
||||
\long\def\gobblespaces#1{#1}
|
||||
|
||||
% This defines a Texinfo @macro or @rmacro, called by \parsemacbody.
|
||||
% \macrobody has the body of the macro in it, with placeholders for
|
||||
% its parameters, looking like "\processmacroarg{\hash 1}".
|
||||
% its parameters, looking like "\xeatspaces{\hash 1}".
|
||||
% \paramno is the number of parameters
|
||||
% \paramlist is a TeX parameter text, e.g. "#1,#2,#3,"
|
||||
% There are eight cases: recursive and nonrecursive macros of zero, one,
|
||||
|
|
@ -8327,14 +8280,13 @@
|
|||
\def\defmacro{%
|
||||
\let\hash=##% convert placeholders to macro parameter chars
|
||||
\ifnum\paramno=1
|
||||
\def\processmacroarg{\gobblespaces}%
|
||||
\def\xeatspaces##1{##1}%
|
||||
% This removes the pair of braces around the argument. We don't
|
||||
% use \eatspaces, because this can cause ends of lines to be lost
|
||||
% when the argument to \eatspaces is read, leading to line-based
|
||||
% commands like "@itemize" not being read correctly.
|
||||
\else
|
||||
\def\processmacroarg{\xprocessmacroarg}%
|
||||
\let\xprocessmacroarg\relax
|
||||
\let\xeatspaces\relax % suppress expansion
|
||||
\fi
|
||||
\ifrecursive %%%%%%%%%%%%%% Recursive %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
\ifcase\paramno
|
||||
|
|
@ -8347,12 +8299,9 @@
|
|||
\noexpand\braceorline
|
||||
\expandafter\noexpand\csname\the\macname @@@\endcsname}%
|
||||
\expandafter\xdef\csname\the\macname @@@\endcsname##1{%
|
||||
\expandafter\noexpand\csname\the\macname @@@@\endcsname{%
|
||||
\noexpand\gobblespaces##1\empty}%
|
||||
% The \empty is for \gobblespaces in case #1 is empty
|
||||
}%
|
||||
\expandafter\xdef\csname\the\macname @@@@\endcsname##1{%
|
||||
\egroup\noexpand\scanmacro{\macrobody}}%
|
||||
\egroup
|
||||
\noexpand\scanmacro{\macrobody}%
|
||||
}%
|
||||
\else
|
||||
\ifnum\paramno<10\relax % at most 9
|
||||
% See non-recursive section below for comments
|
||||
|
|
@ -8391,11 +8340,6 @@
|
|||
\noexpand\braceorline
|
||||
\expandafter\noexpand\csname\the\macname @@@\endcsname}%
|
||||
\expandafter\xdef\csname\the\macname @@@\endcsname##1{%
|
||||
\expandafter\noexpand\csname\the\macname @@@@\endcsname{%
|
||||
\noexpand\gobblespaces##1\empty}%
|
||||
% The \empty is for \gobblespaces in case #1 is empty
|
||||
}%
|
||||
\expandafter\xdef\csname\the\macname @@@@\endcsname##1{%
|
||||
\egroup
|
||||
\noexpand\scanmacro{\macrobody}%
|
||||
}%
|
||||
|
|
@ -9049,9 +8993,6 @@
|
|||
% now. --karl, 15jan04.
|
||||
\catcode`\\=\other
|
||||
%
|
||||
% Make the characters 128-255 be printing characters.
|
||||
{\setcharscatcodeothernonglobal}%
|
||||
%
|
||||
% @ is our escape character in .aux files, and we need braces.
|
||||
\catcode`\{=1
|
||||
\catcode`\}=2
|
||||
|
|
@ -9815,109 +9756,119 @@
|
|||
% macros containing the character definitions.
|
||||
\setnonasciicharscatcode\active
|
||||
%
|
||||
|
||||
\def\gdefchar#1#2{%
|
||||
\gdef#1{%
|
||||
\ifpassthroughchars
|
||||
\string#1%
|
||||
\else
|
||||
#2%
|
||||
\fi
|
||||
}}
|
||||
|
||||
% Latin1 (ISO-8859-1) character definitions.
|
||||
\def\latonechardefs{%
|
||||
\gdef^^a0{\tie}
|
||||
\gdef^^a1{\exclamdown}
|
||||
\gdef^^a2{{\tcfont \char162}} % cent
|
||||
\gdef^^a3{\pounds}
|
||||
\gdef^^a4{{\tcfont \char164}} % currency
|
||||
\gdef^^a5{{\tcfont \char165}} % yen
|
||||
\gdef^^a6{{\tcfont \char166}} % broken bar
|
||||
\gdef^^a7{\S}
|
||||
\gdef^^a8{\"{}}
|
||||
\gdef^^a9{\copyright}
|
||||
\gdef^^aa{\ordf}
|
||||
\gdef^^ab{\guillemetleft}
|
||||
\gdef^^ac{\ensuremath\lnot}
|
||||
\gdef^^ad{\-}
|
||||
\gdef^^ae{\registeredsymbol}
|
||||
\gdef^^af{\={}}
|
||||
\gdefchar^^a0{\tie}
|
||||
\gdefchar^^a1{\exclamdown}
|
||||
\gdefchar^^a2{{\tcfont \char162}} % cent
|
||||
\gdefchar^^a3{\pounds}
|
||||
\gdefchar^^a4{{\tcfont \char164}} % currency
|
||||
\gdefchar^^a5{{\tcfont \char165}} % yen
|
||||
\gdefchar^^a6{{\tcfont \char166}} % broken bar
|
||||
\gdefchar^^a7{\S}
|
||||
\gdefchar^^a8{\"{}}
|
||||
\gdefchar^^a9{\copyright}
|
||||
\gdefchar^^aa{\ordf}
|
||||
\gdefchar^^ab{\guillemetleft}
|
||||
\gdefchar^^ac{\ensuremath\lnot}
|
||||
\gdefchar^^ad{\-}
|
||||
\gdefchar^^ae{\registeredsymbol}
|
||||
\gdefchar^^af{\={}}
|
||||
%
|
||||
\gdef^^b0{\textdegree}
|
||||
\gdef^^b1{$\pm$}
|
||||
\gdef^^b2{$^2$}
|
||||
\gdef^^b3{$^3$}
|
||||
\gdef^^b4{\'{}}
|
||||
\gdef^^b5{$\mu$}
|
||||
\gdef^^b6{\P}
|
||||
\gdef^^b7{\ensuremath\cdot}
|
||||
\gdef^^b8{\cedilla\ }
|
||||
\gdef^^b9{$^1$}
|
||||
\gdef^^ba{\ordm}
|
||||
\gdef^^bb{\guillemetright}
|
||||
\gdef^^bc{$1\over4$}
|
||||
\gdef^^bd{$1\over2$}
|
||||
\gdef^^be{$3\over4$}
|
||||
\gdef^^bf{\questiondown}
|
||||
\gdefchar^^b0{\textdegree}
|
||||
\gdefchar^^b1{$\pm$}
|
||||
\gdefchar^^b2{$^2$}
|
||||
\gdefchar^^b3{$^3$}
|
||||
\gdefchar^^b4{\'{}}
|
||||
\gdefchar^^b5{$\mu$}
|
||||
\gdefchar^^b6{\P}
|
||||
\gdefchar^^b7{\ensuremath\cdot}
|
||||
\gdefchar^^b8{\cedilla\ }
|
||||
\gdefchar^^b9{$^1$}
|
||||
\gdefchar^^ba{\ordm}
|
||||
\gdefchar^^bb{\guillemetright}
|
||||
\gdefchar^^bc{$1\over4$}
|
||||
\gdefchar^^bd{$1\over2$}
|
||||
\gdefchar^^be{$3\over4$}
|
||||
\gdefchar^^bf{\questiondown}
|
||||
%
|
||||
\gdef^^c0{\`A}
|
||||
\gdef^^c1{\'A}
|
||||
\gdef^^c2{\^A}
|
||||
\gdef^^c3{\~A}
|
||||
\gdef^^c4{\"A}
|
||||
\gdef^^c5{\ringaccent A}
|
||||
\gdef^^c6{\AE}
|
||||
\gdef^^c7{\cedilla C}
|
||||
\gdef^^c8{\`E}
|
||||
\gdef^^c9{\'E}
|
||||
\gdef^^ca{\^E}
|
||||
\gdef^^cb{\"E}
|
||||
\gdef^^cc{\`I}
|
||||
\gdef^^cd{\'I}
|
||||
\gdef^^ce{\^I}
|
||||
\gdef^^cf{\"I}
|
||||
\gdefchar^^c0{\`A}
|
||||
\gdefchar^^c1{\'A}
|
||||
\gdefchar^^c2{\^A}
|
||||
\gdefchar^^c3{\~A}
|
||||
\gdefchar^^c4{\"A}
|
||||
\gdefchar^^c5{\ringaccent A}
|
||||
\gdefchar^^c6{\AE}
|
||||
\gdefchar^^c7{\cedilla C}
|
||||
\gdefchar^^c8{\`E}
|
||||
\gdefchar^^c9{\'E}
|
||||
\gdefchar^^ca{\^E}
|
||||
\gdefchar^^cb{\"E}
|
||||
\gdefchar^^cc{\`I}
|
||||
\gdefchar^^cd{\'I}
|
||||
\gdefchar^^ce{\^I}
|
||||
\gdefchar^^cf{\"I}
|
||||
%
|
||||
\gdef^^d0{\DH}
|
||||
\gdef^^d1{\~N}
|
||||
\gdef^^d2{\`O}
|
||||
\gdef^^d3{\'O}
|
||||
\gdef^^d4{\^O}
|
||||
\gdef^^d5{\~O}
|
||||
\gdef^^d6{\"O}
|
||||
\gdef^^d7{$\times$}
|
||||
\gdef^^d8{\O}
|
||||
\gdef^^d9{\`U}
|
||||
\gdef^^da{\'U}
|
||||
\gdef^^db{\^U}
|
||||
\gdef^^dc{\"U}
|
||||
\gdef^^dd{\'Y}
|
||||
\gdef^^de{\TH}
|
||||
\gdef^^df{\ss}
|
||||
\gdefchar^^d0{\DH}
|
||||
\gdefchar^^d1{\~N}
|
||||
\gdefchar^^d2{\`O}
|
||||
\gdefchar^^d3{\'O}
|
||||
\gdefchar^^d4{\^O}
|
||||
\gdefchar^^d5{\~O}
|
||||
\gdefchar^^d6{\"O}
|
||||
\gdefchar^^d7{$\times$}
|
||||
\gdefchar^^d8{\O}
|
||||
\gdefchar^^d9{\`U}
|
||||
\gdefchar^^da{\'U}
|
||||
\gdefchar^^db{\^U}
|
||||
\gdefchar^^dc{\"U}
|
||||
\gdefchar^^dd{\'Y}
|
||||
\gdefchar^^de{\TH}
|
||||
\gdefchar^^df{\ss}
|
||||
%
|
||||
\gdef^^e0{\`a}
|
||||
\gdef^^e1{\'a}
|
||||
\gdef^^e2{\^a}
|
||||
\gdef^^e3{\~a}
|
||||
\gdef^^e4{\"a}
|
||||
\gdef^^e5{\ringaccent a}
|
||||
\gdef^^e6{\ae}
|
||||
\gdef^^e7{\cedilla c}
|
||||
\gdef^^e8{\`e}
|
||||
\gdef^^e9{\'e}
|
||||
\gdef^^ea{\^e}
|
||||
\gdef^^eb{\"e}
|
||||
\gdef^^ec{\`{\dotless i}}
|
||||
\gdef^^ed{\'{\dotless i}}
|
||||
\gdef^^ee{\^{\dotless i}}
|
||||
\gdef^^ef{\"{\dotless i}}
|
||||
\gdefchar^^e0{\`a}
|
||||
\gdefchar^^e1{\'a}
|
||||
\gdefchar^^e2{\^a}
|
||||
\gdefchar^^e3{\~a}
|
||||
\gdefchar^^e4{\"a}
|
||||
\gdefchar^^e5{\ringaccent a}
|
||||
\gdefchar^^e6{\ae}
|
||||
\gdefchar^^e7{\cedilla c}
|
||||
\gdefchar^^e8{\`e}
|
||||
\gdefchar^^e9{\'e}
|
||||
\gdefchar^^ea{\^e}
|
||||
\gdefchar^^eb{\"e}
|
||||
\gdefchar^^ec{\`{\dotless i}}
|
||||
\gdefchar^^ed{\'{\dotless i}}
|
||||
\gdefchar^^ee{\^{\dotless i}}
|
||||
\gdefchar^^ef{\"{\dotless i}}
|
||||
%
|
||||
\gdef^^f0{\dh}
|
||||
\gdef^^f1{\~n}
|
||||
\gdef^^f2{\`o}
|
||||
\gdef^^f3{\'o}
|
||||
\gdef^^f4{\^o}
|
||||
\gdef^^f5{\~o}
|
||||
\gdef^^f6{\"o}
|
||||
\gdef^^f7{$\div$}
|
||||
\gdef^^f8{\o}
|
||||
\gdef^^f9{\`u}
|
||||
\gdef^^fa{\'u}
|
||||
\gdef^^fb{\^u}
|
||||
\gdef^^fc{\"u}
|
||||
\gdef^^fd{\'y}
|
||||
\gdef^^fe{\th}
|
||||
\gdef^^ff{\"y}
|
||||
\gdefchar^^f0{\dh}
|
||||
\gdefchar^^f1{\~n}
|
||||
\gdefchar^^f2{\`o}
|
||||
\gdefchar^^f3{\'o}
|
||||
\gdefchar^^f4{\^o}
|
||||
\gdefchar^^f5{\~o}
|
||||
\gdefchar^^f6{\"o}
|
||||
\gdefchar^^f7{$\div$}
|
||||
\gdefchar^^f8{\o}
|
||||
\gdefchar^^f9{\`u}
|
||||
\gdefchar^^fa{\'u}
|
||||
\gdefchar^^fb{\^u}
|
||||
\gdefchar^^fc{\"u}
|
||||
\gdefchar^^fd{\'y}
|
||||
\gdefchar^^fe{\th}
|
||||
\gdefchar^^ff{\"y}
|
||||
}
|
||||
|
||||
% Latin9 (ISO-8859-15) encoding character definitions.
|
||||
|
|
@ -9925,119 +9876,119 @@
|
|||
% Encoding is almost identical to Latin1.
|
||||
\latonechardefs
|
||||
%
|
||||
\gdef^^a4{\euro}
|
||||
\gdef^^a6{\v S}
|
||||
\gdef^^a8{\v s}
|
||||
\gdef^^b4{\v Z}
|
||||
\gdef^^b8{\v z}
|
||||
\gdef^^bc{\OE}
|
||||
\gdef^^bd{\oe}
|
||||
\gdef^^be{\"Y}
|
||||
\gdefchar^^a4{\euro}
|
||||
\gdefchar^^a6{\v S}
|
||||
\gdefchar^^a8{\v s}
|
||||
\gdefchar^^b4{\v Z}
|
||||
\gdefchar^^b8{\v z}
|
||||
\gdefchar^^bc{\OE}
|
||||
\gdefchar^^bd{\oe}
|
||||
\gdefchar^^be{\"Y}
|
||||
}
|
||||
|
||||
% Latin2 (ISO-8859-2) character definitions.
|
||||
\def\lattwochardefs{%
|
||||
\gdef^^a0{\tie}
|
||||
\gdef^^a1{\ogonek{A}}
|
||||
\gdef^^a2{\u{}}
|
||||
\gdef^^a3{\L}
|
||||
\gdef^^a4{\missingcharmsg{CURRENCY SIGN}}
|
||||
\gdef^^a5{\v L}
|
||||
\gdef^^a6{\'S}
|
||||
\gdef^^a7{\S}
|
||||
\gdef^^a8{\"{}}
|
||||
\gdef^^a9{\v S}
|
||||
\gdef^^aa{\cedilla S}
|
||||
\gdef^^ab{\v T}
|
||||
\gdef^^ac{\'Z}
|
||||
\gdef^^ad{\-}
|
||||
\gdef^^ae{\v Z}
|
||||
\gdef^^af{\dotaccent Z}
|
||||
\gdefchar^^a0{\tie}
|
||||
\gdefchar^^a1{\ogonek{A}}
|
||||
\gdefchar^^a2{\u{}}
|
||||
\gdefchar^^a3{\L}
|
||||
\gdefchar^^a4{\missingcharmsg{CURRENCY SIGN}}
|
||||
\gdefchar^^a5{\v L}
|
||||
\gdefchar^^a6{\'S}
|
||||
\gdefchar^^a7{\S}
|
||||
\gdefchar^^a8{\"{}}
|
||||
\gdefchar^^a9{\v S}
|
||||
\gdefchar^^aa{\cedilla S}
|
||||
\gdefchar^^ab{\v T}
|
||||
\gdefchar^^ac{\'Z}
|
||||
\gdefchar^^ad{\-}
|
||||
\gdefchar^^ae{\v Z}
|
||||
\gdefchar^^af{\dotaccent Z}
|
||||
%
|
||||
\gdef^^b0{\textdegree}
|
||||
\gdef^^b1{\ogonek{a}}
|
||||
\gdef^^b2{\ogonek{ }}
|
||||
\gdef^^b3{\l}
|
||||
\gdef^^b4{\'{}}
|
||||
\gdef^^b5{\v l}
|
||||
\gdef^^b6{\'s}
|
||||
\gdef^^b7{\v{}}
|
||||
\gdef^^b8{\cedilla\ }
|
||||
\gdef^^b9{\v s}
|
||||
\gdef^^ba{\cedilla s}
|
||||
\gdef^^bb{\v t}
|
||||
\gdef^^bc{\'z}
|
||||
\gdef^^bd{\H{}}
|
||||
\gdef^^be{\v z}
|
||||
\gdef^^bf{\dotaccent z}
|
||||
\gdefchar^^b0{\textdegree}
|
||||
\gdefchar^^b1{\ogonek{a}}
|
||||
\gdefchar^^b2{\ogonek{ }}
|
||||
\gdefchar^^b3{\l}
|
||||
\gdefchar^^b4{\'{}}
|
||||
\gdefchar^^b5{\v l}
|
||||
\gdefchar^^b6{\'s}
|
||||
\gdefchar^^b7{\v{}}
|
||||
\gdefchar^^b8{\cedilla\ }
|
||||
\gdefchar^^b9{\v s}
|
||||
\gdefchar^^ba{\cedilla s}
|
||||
\gdefchar^^bb{\v t}
|
||||
\gdefchar^^bc{\'z}
|
||||
\gdefchar^^bd{\H{}}
|
||||
\gdefchar^^be{\v z}
|
||||
\gdefchar^^bf{\dotaccent z}
|
||||
%
|
||||
\gdef^^c0{\'R}
|
||||
\gdef^^c1{\'A}
|
||||
\gdef^^c2{\^A}
|
||||
\gdef^^c3{\u A}
|
||||
\gdef^^c4{\"A}
|
||||
\gdef^^c5{\'L}
|
||||
\gdef^^c6{\'C}
|
||||
\gdef^^c7{\cedilla C}
|
||||
\gdef^^c8{\v C}
|
||||
\gdef^^c9{\'E}
|
||||
\gdef^^ca{\ogonek{E}}
|
||||
\gdef^^cb{\"E}
|
||||
\gdef^^cc{\v E}
|
||||
\gdef^^cd{\'I}
|
||||
\gdef^^ce{\^I}
|
||||
\gdef^^cf{\v D}
|
||||
\gdefchar^^c0{\'R}
|
||||
\gdefchar^^c1{\'A}
|
||||
\gdefchar^^c2{\^A}
|
||||
\gdefchar^^c3{\u A}
|
||||
\gdefchar^^c4{\"A}
|
||||
\gdefchar^^c5{\'L}
|
||||
\gdefchar^^c6{\'C}
|
||||
\gdefchar^^c7{\cedilla C}
|
||||
\gdefchar^^c8{\v C}
|
||||
\gdefchar^^c9{\'E}
|
||||
\gdefchar^^ca{\ogonek{E}}
|
||||
\gdefchar^^cb{\"E}
|
||||
\gdefchar^^cc{\v E}
|
||||
\gdefchar^^cd{\'I}
|
||||
\gdefchar^^ce{\^I}
|
||||
\gdefchar^^cf{\v D}
|
||||
%
|
||||
\gdef^^d0{\DH}
|
||||
\gdef^^d1{\'N}
|
||||
\gdef^^d2{\v N}
|
||||
\gdef^^d3{\'O}
|
||||
\gdef^^d4{\^O}
|
||||
\gdef^^d5{\H O}
|
||||
\gdef^^d6{\"O}
|
||||
\gdef^^d7{$\times$}
|
||||
\gdef^^d8{\v R}
|
||||
\gdef^^d9{\ringaccent U}
|
||||
\gdef^^da{\'U}
|
||||
\gdef^^db{\H U}
|
||||
\gdef^^dc{\"U}
|
||||
\gdef^^dd{\'Y}
|
||||
\gdef^^de{\cedilla T}
|
||||
\gdef^^df{\ss}
|
||||
\gdefchar^^d0{\DH}
|
||||
\gdefchar^^d1{\'N}
|
||||
\gdefchar^^d2{\v N}
|
||||
\gdefchar^^d3{\'O}
|
||||
\gdefchar^^d4{\^O}
|
||||
\gdefchar^^d5{\H O}
|
||||
\gdefchar^^d6{\"O}
|
||||
\gdefchar^^d7{$\times$}
|
||||
\gdefchar^^d8{\v R}
|
||||
\gdefchar^^d9{\ringaccent U}
|
||||
\gdefchar^^da{\'U}
|
||||
\gdefchar^^db{\H U}
|
||||
\gdefchar^^dc{\"U}
|
||||
\gdefchar^^dd{\'Y}
|
||||
\gdefchar^^de{\cedilla T}
|
||||
\gdefchar^^df{\ss}
|
||||
%
|
||||
\gdef^^e0{\'r}
|
||||
\gdef^^e1{\'a}
|
||||
\gdef^^e2{\^a}
|
||||
\gdef^^e3{\u a}
|
||||
\gdef^^e4{\"a}
|
||||
\gdef^^e5{\'l}
|
||||
\gdef^^e6{\'c}
|
||||
\gdef^^e7{\cedilla c}
|
||||
\gdef^^e8{\v c}
|
||||
\gdef^^e9{\'e}
|
||||
\gdef^^ea{\ogonek{e}}
|
||||
\gdef^^eb{\"e}
|
||||
\gdef^^ec{\v e}
|
||||
\gdef^^ed{\'{\dotless{i}}}
|
||||
\gdef^^ee{\^{\dotless{i}}}
|
||||
\gdef^^ef{\v d}
|
||||
\gdefchar^^e0{\'r}
|
||||
\gdefchar^^e1{\'a}
|
||||
\gdefchar^^e2{\^a}
|
||||
\gdefchar^^e3{\u a}
|
||||
\gdefchar^^e4{\"a}
|
||||
\gdefchar^^e5{\'l}
|
||||
\gdefchar^^e6{\'c}
|
||||
\gdefchar^^e7{\cedilla c}
|
||||
\gdefchar^^e8{\v c}
|
||||
\gdefchar^^e9{\'e}
|
||||
\gdefchar^^ea{\ogonek{e}}
|
||||
\gdefchar^^eb{\"e}
|
||||
\gdefchar^^ec{\v e}
|
||||
\gdefchar^^ed{\'{\dotless{i}}}
|
||||
\gdefchar^^ee{\^{\dotless{i}}}
|
||||
\gdefchar^^ef{\v d}
|
||||
%
|
||||
\gdef^^f0{\dh}
|
||||
\gdef^^f1{\'n}
|
||||
\gdef^^f2{\v n}
|
||||
\gdef^^f3{\'o}
|
||||
\gdef^^f4{\^o}
|
||||
\gdef^^f5{\H o}
|
||||
\gdef^^f6{\"o}
|
||||
\gdef^^f7{$\div$}
|
||||
\gdef^^f8{\v r}
|
||||
\gdef^^f9{\ringaccent u}
|
||||
\gdef^^fa{\'u}
|
||||
\gdef^^fb{\H u}
|
||||
\gdef^^fc{\"u}
|
||||
\gdef^^fd{\'y}
|
||||
\gdef^^fe{\cedilla t}
|
||||
\gdef^^ff{\dotaccent{}}
|
||||
\gdefchar^^f0{\dh}
|
||||
\gdefchar^^f1{\'n}
|
||||
\gdefchar^^f2{\v n}
|
||||
\gdefchar^^f3{\'o}
|
||||
\gdefchar^^f4{\^o}
|
||||
\gdefchar^^f5{\H o}
|
||||
\gdefchar^^f6{\"o}
|
||||
\gdefchar^^f7{$\div$}
|
||||
\gdefchar^^f8{\v r}
|
||||
\gdefchar^^f9{\ringaccent u}
|
||||
\gdefchar^^fa{\'u}
|
||||
\gdefchar^^fb{\H u}
|
||||
\gdefchar^^fc{\"u}
|
||||
\gdefchar^^fd{\'y}
|
||||
\gdefchar^^fe{\cedilla t}
|
||||
\gdefchar^^ff{\dotaccent{}}
|
||||
}
|
||||
|
||||
% UTF-8 character definitions.
|
||||
|
|
@ -10067,35 +10018,56 @@
|
|||
\fi
|
||||
}
|
||||
|
||||
% Give non-ASCII bytes the active definitions for processing UTF-8 sequences
|
||||
\begingroup
|
||||
\catcode`\~13
|
||||
\catcode`\$12
|
||||
\catcode`\"12
|
||||
|
||||
% Loop from \countUTFx to \countUTFy, performing \UTFviiiTmp
|
||||
% substituting ~ and $ with a character token of that value.
|
||||
\def\UTFviiiLoop{%
|
||||
\global\catcode\countUTFx\active
|
||||
\uccode`\~\countUTFx
|
||||
\uccode`\$\countUTFx
|
||||
\uppercase\expandafter{\UTFviiiTmp}%
|
||||
\advance\countUTFx by 1
|
||||
\ifnum\countUTFx < \countUTFy
|
||||
\expandafter\UTFviiiLoop
|
||||
\fi}
|
||||
|
||||
% For bytes other than the first in a UTF-8 sequence. Not expected to
|
||||
% be expanded except when writing to auxiliary files.
|
||||
\countUTFx = "80
|
||||
\countUTFy = "C2
|
||||
\def\UTFviiiTmp{%
|
||||
\gdef~{
|
||||
\ifpassthroughchars $\fi}}%
|
||||
\UTFviiiLoop
|
||||
|
||||
\countUTFx = "C2
|
||||
\countUTFy = "E0
|
||||
\def\UTFviiiTmp{%
|
||||
\xdef~{\noexpand\UTFviiiTwoOctets\string~}}
|
||||
\gdef~{%
|
||||
\ifpassthroughchars $%
|
||||
\else\expandafter\UTFviiiTwoOctets\expandafter$\fi}}%
|
||||
\UTFviiiLoop
|
||||
|
||||
\countUTFx = "E0
|
||||
\countUTFy = "F0
|
||||
\def\UTFviiiTmp{%
|
||||
\xdef~{\noexpand\UTFviiiThreeOctets\string~}}
|
||||
\gdef~{%
|
||||
\ifpassthroughchars $%
|
||||
\else\expandafter\UTFviiiThreeOctets\expandafter$\fi}}%
|
||||
\UTFviiiLoop
|
||||
|
||||
\countUTFx = "F0
|
||||
\countUTFy = "F4
|
||||
\def\UTFviiiTmp{%
|
||||
\xdef~{\noexpand\UTFviiiFourOctets\string~}}
|
||||
\gdef~{%
|
||||
\ifpassthroughchars $%
|
||||
\else\expandafter\UTFviiiFourOctets\expandafter$\fi
|
||||
}}%
|
||||
\UTFviiiLoop
|
||||
\endgroup
|
||||
|
||||
|
|
@ -10134,9 +10106,10 @@
|
|||
\catcode`\~=13
|
||||
\gdef\DeclareUnicodeCharacterUTFviii#1#2{%
|
||||
\countUTFz = "#1\relax
|
||||
%\wlog{\space\space defining Unicode char U+#1 (decimal \the\countUTFz)}%
|
||||
\begingroup
|
||||
\parseXMLCharref
|
||||
%
|
||||
% Access definitions of characters given UTF-8 sequences
|
||||
\def\UTFviiiTwoOctets##1##2{%
|
||||
\csname u8:##1\string ##2\endcsname}%
|
||||
\def\UTFviiiThreeOctets##1##2##3{%
|
||||
|
|
@ -10154,7 +10127,8 @@
|
|||
% define an additional control sequence for this code point.
|
||||
\expandafter\globallet\csname uni:#1\endcsname \UTFviiiTmp
|
||||
\endgroup}
|
||||
|
||||
%
|
||||
% Given the value in \countUTFz as a Unicode code point, set \UTFviiiTmp.
|
||||
\gdef\parseXMLCharref{%
|
||||
\ifnum\countUTFz < "A0\relax
|
||||
\errhelp = \EMsimple
|
||||
|
|
@ -10184,6 +10158,7 @@
|
|||
\uccode `#1\countUTFx
|
||||
\countUTFz = \countUTFy}
|
||||
|
||||
% Used to set \UTFviiiTmp to a UTF-8 byte sequence
|
||||
\gdef\parseUTFviiiB#1#2#3#4{%
|
||||
\advance\countUTFz by "#10\relax
|
||||
\uccode `#3\countUTFz
|
||||
|
|
@ -10937,84 +10912,17 @@
|
|||
\unicodechardefs
|
||||
}
|
||||
|
||||
% Native Unicode (XeTeX and LuaTeX) catcode other non global definitions
|
||||
\def\nativeunicodecharscatcodeothernonglobal{%
|
||||
\let\DeclareUnicodeCharacter\DeclareUnicodeCharacterNativeOther
|
||||
\unicodechardefs
|
||||
}
|
||||
|
||||
% Catcode (non-ASCII or native Unicode) are set to \other (non-global
|
||||
% assignments).
|
||||
\def\setcharscatcodeothernonglobal{%
|
||||
\iftxiusebytewiseio
|
||||
\setnonasciicharscatcodenonglobal\other
|
||||
\else
|
||||
\nativeunicodecharscatcodeothernonglobal
|
||||
\fi
|
||||
}
|
||||
|
||||
% US-ASCII character definitions.
|
||||
\def\asciichardefs{% nothing need be done
|
||||
\relax
|
||||
}
|
||||
|
||||
% Redefine the active definitions of non-ASCII characters to expand to
|
||||
% non-active tokens with the same character code.
|
||||
\def\nonasciistringdefs{%
|
||||
\setnonasciicharscatcode\active
|
||||
\def\defstringchar##1{\def##1{\string##1}}%
|
||||
%
|
||||
\defstringchar^^80\defstringchar^^81\defstringchar^^82\defstringchar^^83%
|
||||
\defstringchar^^84\defstringchar^^85\defstringchar^^86\defstringchar^^87%
|
||||
\defstringchar^^88\defstringchar^^89\defstringchar^^8a\defstringchar^^8b%
|
||||
\defstringchar^^8c\defstringchar^^8d\defstringchar^^8e\defstringchar^^8f%
|
||||
%
|
||||
\defstringchar^^90\defstringchar^^91\defstringchar^^92\defstringchar^^93%
|
||||
\defstringchar^^94\defstringchar^^95\defstringchar^^96\defstringchar^^97%
|
||||
\defstringchar^^98\defstringchar^^99\defstringchar^^9a\defstringchar^^9b%
|
||||
\defstringchar^^9c\defstringchar^^9d\defstringchar^^9e\defstringchar^^9f%
|
||||
%
|
||||
\defstringchar^^a0\defstringchar^^a1\defstringchar^^a2\defstringchar^^a3%
|
||||
\defstringchar^^a4\defstringchar^^a5\defstringchar^^a6\defstringchar^^a7%
|
||||
\defstringchar^^a8\defstringchar^^a9\defstringchar^^aa\defstringchar^^ab%
|
||||
\defstringchar^^ac\defstringchar^^ad\defstringchar^^ae\defstringchar^^af%
|
||||
%
|
||||
\defstringchar^^b0\defstringchar^^b1\defstringchar^^b2\defstringchar^^b3%
|
||||
\defstringchar^^b4\defstringchar^^b5\defstringchar^^b6\defstringchar^^b7%
|
||||
\defstringchar^^b8\defstringchar^^b9\defstringchar^^ba\defstringchar^^bb%
|
||||
\defstringchar^^bc\defstringchar^^bd\defstringchar^^be\defstringchar^^bf%
|
||||
%
|
||||
\defstringchar^^c0\defstringchar^^c1\defstringchar^^c2\defstringchar^^c3%
|
||||
\defstringchar^^c4\defstringchar^^c5\defstringchar^^c6\defstringchar^^c7%
|
||||
\defstringchar^^c8\defstringchar^^c9\defstringchar^^ca\defstringchar^^cb%
|
||||
\defstringchar^^cc\defstringchar^^cd\defstringchar^^ce\defstringchar^^cf%
|
||||
%
|
||||
\defstringchar^^d0\defstringchar^^d1\defstringchar^^d2\defstringchar^^d3%
|
||||
\defstringchar^^d4\defstringchar^^d5\defstringchar^^d6\defstringchar^^d7%
|
||||
\defstringchar^^d8\defstringchar^^d9\defstringchar^^da\defstringchar^^db%
|
||||
\defstringchar^^dc\defstringchar^^dd\defstringchar^^de\defstringchar^^df%
|
||||
%
|
||||
\defstringchar^^e0\defstringchar^^e1\defstringchar^^e2\defstringchar^^e3%
|
||||
\defstringchar^^e4\defstringchar^^e5\defstringchar^^e6\defstringchar^^e7%
|
||||
\defstringchar^^e8\defstringchar^^e9\defstringchar^^ea\defstringchar^^eb%
|
||||
\defstringchar^^ec\defstringchar^^ed\defstringchar^^ee\defstringchar^^ef%
|
||||
%
|
||||
\defstringchar^^f0\defstringchar^^f1\defstringchar^^f2\defstringchar^^f3%
|
||||
\defstringchar^^f4\defstringchar^^f5\defstringchar^^f6\defstringchar^^f7%
|
||||
\defstringchar^^f8\defstringchar^^f9\defstringchar^^fa\defstringchar^^fb%
|
||||
\defstringchar^^fc\defstringchar^^fd\defstringchar^^fe\defstringchar^^ff%
|
||||
}
|
||||
|
||||
% Write characters literally, instead of using active definitions for
|
||||
% Whether the active definitions of non-ASCII characters expand to
|
||||
% non-active tokens with the same character code. This is used to
|
||||
% write characters literally, instead of using active definitions for
|
||||
% printing the correct glyphs.
|
||||
\def\passthroughcharacters{%
|
||||
\iftxiusebytewiseio
|
||||
\nonasciistringdefs
|
||||
\else
|
||||
\passthroughcharstrue
|
||||
\fi
|
||||
}
|
||||
|
||||
\newif\ifpassthroughchars
|
||||
\passthroughcharsfalse
|
||||
|
||||
% define all the unicode characters we know about, for the sake of @U.
|
||||
\iftxinativeunicodecapable
|
||||
|
|
@ -11370,7 +11278,7 @@
|
|||
%
|
||||
{@catcode`- = @active
|
||||
@gdef@normalturnoffactive{%
|
||||
@passthroughcharacters
|
||||
@passthroughcharstrue
|
||||
@let-=@normaldash
|
||||
@let"=@normaldoublequote
|
||||
@let$=@normaldollar %$ font-lock fix
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@ prompt, to unconditionally load the GDB init file.
|
|||
*** Use the Emacs GDB UI front-end
|
||||
|
||||
We recommend using the GUI front-end for GDB provided by Emacs. With
|
||||
it, you can start GDB by typing "M-x GDB RET". This will suggest the
|
||||
it, you can start GDB by typing "M-x gdb RET". This will suggest the
|
||||
default binary to debug; if you are going to start a new Emacs
|
||||
process, change it as needed to point to the correct binary.
|
||||
Alternatively, if you want to attach the debugger to an already
|
||||
|
|
|
|||
40
etc/NEWS
40
etc/NEWS
|
|
@ -804,30 +804,30 @@ item as before.
|
|||
|
||||
+++
|
||||
*** `isearch' and `query-replace' can now perform character folding in matches.
|
||||
Isearch does that by default, while `query-replace' will do that if
|
||||
the new variable `replace-character-fold' is customized to a non-nil
|
||||
value. This is analogous to case folding, but instead of disregarding
|
||||
case variants, it disregards wider classes of distinctions between
|
||||
similar characters. (Case folding is a special case of character
|
||||
folding.) This means many characters in the search string will match
|
||||
entire groups of characters instead of just themselves.
|
||||
This is analogous to case folding, but instead of disregarding case
|
||||
variants, it disregards wider classes of distinctions between similar
|
||||
characters. (Case folding is a special case of character folding.)
|
||||
This means many characters in the search string will match entire
|
||||
groups of characters instead of just themselves.
|
||||
|
||||
For instance, the " will match all variants of double quotes (like “
|
||||
and ”), and the letter a will match all of its accented cousins, even
|
||||
those composed of multiple characters, as well as many other symbols
|
||||
like ℀, ℁, ⒜, and ⓐ.
|
||||
For instance, the ASCII double quote character " will match all
|
||||
variants of double quotes (like “ and ”), and the letter a will match
|
||||
all of its accented cousins, even those composed of multiple
|
||||
characters, as well as many other symbols like ℀, ℁, ⒜, and ⓐ.
|
||||
|
||||
Character folding is enabled by customizing `search-default-mode' to
|
||||
the value `character-fold-to-regexp'. If you want to turn character
|
||||
folding off, customize the value of `search-default-mode' to the `nil'
|
||||
value. You can also toggle character folding in the middle of a
|
||||
search by typing `M-s ''.
|
||||
the value `character-fold-to-regexp'. You can also toggle character
|
||||
folding in the middle of a search by typing `M-s ''.
|
||||
|
||||
`query-replace' honors character folding if the new variable
|
||||
`replace-character-fold' is customized to a non-nil value.
|
||||
|
||||
+++
|
||||
*** New user option `search-default-mode'.
|
||||
This option specifies the default mode for Isearch. The default
|
||||
value, `character-fold-to-regexp' specifies that Isearch should fold
|
||||
characters when searching.
|
||||
value, nil specifies that Isearch does literal searches (however,
|
||||
`case-fold-search' and `isearch-lax-whitespace' may still be applied,
|
||||
as in previous Emacs versions).
|
||||
|
||||
+++
|
||||
*** New function `character-fold-to-regexp' can be used
|
||||
|
|
@ -2196,7 +2196,7 @@ Those features have been deprecated in Gtk+ for a long time.
|
|||
+++
|
||||
*** etags no longer qualifies class members by default.
|
||||
|
||||
By default, `etags' will not qualify class members for C-like
|
||||
By default, `etags' will not qualify class members for Perl and C-like
|
||||
object-oriented languages with their class names and namespaces, and
|
||||
will remove qualifications used explicitly in the code from the tag
|
||||
names it puts in TAGS files. This is so the etags.el back-end for
|
||||
|
|
@ -2204,8 +2204,8 @@ names it puts in TAGS files. This is so the etags.el back-end for
|
|||
positives.
|
||||
|
||||
Use --class-qualify (-Q) if you want the old default behavior of
|
||||
qualifying class members in C++, Java, and Objective C. Note that
|
||||
using -Q might make some class members become "unknown" to `M-.'
|
||||
qualifying class members in C++, Java, Objective C, and Perl. Note
|
||||
that using -Q might make some class members become "unknown" to `M-.'
|
||||
(`xref-find-definitions'); if so, you can use `C-u M-.' to specify the
|
||||
qualified names by hand.
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -35,8 +35,8 @@ This file is not considered part of GNU Emacs.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -680,8 +680,8 @@ static const char *Objc_suffixes [] =
|
|||
static const char Objc_help [] =
|
||||
"In Objective C code, tags include Objective C definitions for classes,\n\
|
||||
class categories, methods and protocols. Tags for variables and\n\
|
||||
functions in classes are named 'CLASS::VARIABLE' and 'CLASS::FUNCTION'.\n\
|
||||
(Use --help --lang=c --lang=objc --lang=java for full help.)";
|
||||
functions in classes are named 'CLASS::VARIABLE' and 'CLASS::FUNCTION'.\
|
||||
\n(Use --help --lang=c --lang=objc --lang=java for full help.)";
|
||||
|
||||
static const char *Pascal_suffixes [] =
|
||||
{ "p", "pas", NULL };
|
||||
|
|
@ -972,11 +972,12 @@ Relative ones are stored relative to the output file's directory.\n");
|
|||
in some languages.");
|
||||
|
||||
puts ("-Q, --class-qualify\n\
|
||||
Qualify tag names with their class name in C++, ObjC, and Java.\n\
|
||||
Qualify tag names with their class name in C++, ObjC, Java, and Perl.\n\
|
||||
This produces tag names of the form \"class::member\" for C++,\n\
|
||||
\"class(category)\" for Objective C, and \"class.member\" for Java.\n\
|
||||
For Objective C, this also produces class methods qualified with\n\
|
||||
their arguments, as in \"foo:bar:baz:more\".");
|
||||
their arguments, as in \"foo:bar:baz:more\".\n\
|
||||
For Perl, this produces \"package::member\".");
|
||||
puts ("-r REGEXP, --regex=REGEXP or --regex=@regexfile\n\
|
||||
Make a tag for each line matching a regular expression pattern\n\
|
||||
in the following files. {LANGUAGE}REGEXP uses REGEXP for LANGUAGE\n\
|
||||
|
|
@ -4535,10 +4536,21 @@ Perl_functions (FILE *inf)
|
|||
continue; /* nothing found */
|
||||
pos = strchr (sp, ':');
|
||||
if (pos && pos < cp && pos[1] == ':')
|
||||
/* The name is already qualified. */
|
||||
make_tag (sp, cp - sp, true,
|
||||
lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
|
||||
else
|
||||
{
|
||||
/* The name is already qualified. */
|
||||
if (!class_qualify)
|
||||
{
|
||||
char *q = pos + 2, *qpos;
|
||||
while ((qpos = strchr (q, ':')) != NULL
|
||||
&& qpos < cp
|
||||
&& qpos[1] == ':')
|
||||
q = qpos + 2;
|
||||
sp = q;
|
||||
}
|
||||
make_tag (sp, cp - sp, true,
|
||||
lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
|
||||
}
|
||||
else if (class_qualify)
|
||||
/* Qualify it. */
|
||||
{
|
||||
char savechar, *name;
|
||||
|
|
@ -4551,6 +4563,9 @@ Perl_functions (FILE *inf)
|
|||
lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
|
||||
free (name);
|
||||
}
|
||||
else
|
||||
make_tag (sp, cp - sp, true,
|
||||
lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
|
||||
}
|
||||
else if (LOOKING_AT (cp, "use constant")
|
||||
|| LOOKING_AT (cp, "use constant::defer"))
|
||||
|
|
|
|||
|
|
@ -1,15 +1,14 @@
|
|||
/* Convert files for Emacs Hexl mode.
|
||||
Copyright (C) 1989, 2001-2016 Free Software Foundation, Inc.
|
||||
|
||||
Author: Keith Gabryelski
|
||||
(according to authors.el)
|
||||
Author: Keith Gabryelski (according to authors.el)
|
||||
|
||||
This file is not considered part of GNU Emacs.
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -8,8 +8,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -799,6 +799,51 @@ mbx_write (char *line, int len, FILE *mbf)
|
|||
return fwrite (line, 1, len, mbf) == len && 0 <= fputc ('\n', mbf);
|
||||
}
|
||||
|
||||
#ifdef WINDOWSNT
|
||||
/* Work around MS-Windows lack of support for %e or %T with a
|
||||
special-purpose strftime that assumes the exact format that
|
||||
movemail uses. */
|
||||
static size_t
|
||||
movemail_strftime (char *s, size_t size, char const *format,
|
||||
struct tm const *tm)
|
||||
{
|
||||
char fmt[size + 6], *q;
|
||||
const char *p;
|
||||
|
||||
for (p = format, q = &fmt[0]; *p; )
|
||||
{
|
||||
if (*p == '%' && p[1] == 'e')
|
||||
{
|
||||
memcpy (q, "%d", 2);
|
||||
q += 2;
|
||||
p += 2;
|
||||
}
|
||||
else if (*p == '%' && p[1] == 'T')
|
||||
{
|
||||
memcpy (q, "%H:%M:%S", 8);
|
||||
q += 8;
|
||||
p += 2;
|
||||
}
|
||||
else if (*p == '%' && p[1] == '%')
|
||||
{
|
||||
memcpy (q, p, 2);
|
||||
q += 2;
|
||||
p += 2;
|
||||
}
|
||||
else
|
||||
*q++ = *p++;
|
||||
}
|
||||
|
||||
size_t n = strftime (s, size, fmt, tm);
|
||||
char *mday = s + sizeof "From movemail Sun Jan " - 1;
|
||||
if (*mday == '0')
|
||||
*mday = ' ';
|
||||
return n;
|
||||
}
|
||||
# undef strftime
|
||||
# define strftime movemail_strftime
|
||||
#endif
|
||||
|
||||
static bool
|
||||
mbx_delimit_begin (FILE *mbf)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -9,8 +9,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -102,4 +102,3 @@ int mkostemp (char * template, int flags);
|
|||
#undef _WINSOCK_H
|
||||
|
||||
/* end of ntlib.h */
|
||||
|
||||
|
|
|
|||
|
|
@ -9,8 +9,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -8,8 +8,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -8,8 +8,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
/* intprops.h -- properties of integer types
|
||||
|
||||
Copyright (C) 2001-2005, 2009-2016 Free Software Foundation, Inc.
|
||||
Copyright (C) 2001-2016 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 3 of the License, or
|
||||
This program is free software: you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published
|
||||
by the Free Software Foundation; either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
|
|
|
|||
|
|
@ -269,6 +269,7 @@ set_acls_from_mode (const char *name, int desc, mode_t mode, bool *must_chmod)
|
|||
}
|
||||
return -1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -48,6 +48,8 @@ and those hits returned.")
|
|||
(html-mode "*.s?html" "*.php")
|
||||
(ruby-mode "*.r[bu]" "*.rake" "*.gemspec" "*.erb" "*.haml"
|
||||
"Rakefile" "Thorfile" "Capfile" "Guardfile" "Vagrantfile")
|
||||
(perl-mode "*.pl" "*.PL")
|
||||
(cperl-mode "*.pl" "*.PL")
|
||||
)
|
||||
"List of major modes and file extension pattern.
|
||||
See find -name man page for format.")
|
||||
|
|
|
|||
|
|
@ -411,8 +411,8 @@ This will generate compile-time constants from BINDINGS."
|
|||
;; Words inside \\[] tend to be for `substitute-command-keys'.
|
||||
(,(concat "\\\\\\\\\\[\\(" lisp-mode-symbol-regexp "\\)\\]")
|
||||
(1 font-lock-constant-face prepend))
|
||||
;; Words inside ‘’ and '' and `' tend to be symbol names.
|
||||
(,(concat "['`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)"
|
||||
;; Words inside ‘’ and `' tend to be symbol names.
|
||||
(,(concat "[`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)"
|
||||
lisp-mode-symbol-regexp "\\)['’]")
|
||||
(1 font-lock-constant-face prepend))
|
||||
;; Constant values.
|
||||
|
|
@ -463,8 +463,8 @@ This will generate compile-time constants from BINDINGS."
|
|||
;; Erroneous structures.
|
||||
(,(concat "(" cl-errs-re "\\_>")
|
||||
(1 font-lock-warning-face))
|
||||
;; Words inside ‘’ and '' and `' tend to be symbol names.
|
||||
(,(concat "['`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)"
|
||||
;; Words inside ‘’ and `' tend to be symbol names.
|
||||
(,(concat "[`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)"
|
||||
lisp-mode-symbol-regexp "\\)['’]")
|
||||
(1 font-lock-constant-face prepend))
|
||||
;; Constant values.
|
||||
|
|
|
|||
|
|
@ -6843,8 +6843,8 @@ If CHAR is in [Xugo], the value is taken from FROM (or 0 if omitted)."
|
|||
(cond ((= char ?r) #o0444)
|
||||
((= char ?w) #o0222)
|
||||
((= char ?x) #o0111)
|
||||
((= char ?s) #o1000)
|
||||
((= char ?t) #o6000)
|
||||
((= char ?s) #o6000)
|
||||
((= char ?t) #o1000)
|
||||
;; Rights relative to the previous file modes.
|
||||
((= char ?X) (if (= (logand from #o111) 0) 0 #o0111))
|
||||
((= char ?u) (let ((uright (logand #o4700 from)))
|
||||
|
|
@ -6900,7 +6900,7 @@ as in \"og+rX-w\"."
|
|||
(mapcar 'file-modes-char-to-who
|
||||
(match-string 1 modes)))))
|
||||
(when (= num-who 0)
|
||||
(setq num-who (default-file-modes)))
|
||||
(setq num-who (logior #o7000 (default-file-modes))))
|
||||
(setq num-modes
|
||||
(file-modes-rights-to-number (substring modes (match-end 1))
|
||||
num-who num-modes)
|
||||
|
|
|
|||
|
|
@ -2935,11 +2935,15 @@ on encoding."
|
|||
(#xA000 . #xD7FF)
|
||||
;; (#xD800 . #xFAFF) Surrogate/Private
|
||||
(#xFB00 . #x134FF)
|
||||
;; (#x13500 . #x167FF) unused
|
||||
(#x16800 . #x16A3F)
|
||||
;; (#x16A40 . #x1AFFF) unused
|
||||
;; (#x13500 . #x143FF) unused
|
||||
(#x14400 . #x14646)
|
||||
;; (#x14647 . #x167FF) unused
|
||||
(#x16800 . #x16F9F)
|
||||
;; (#x16FA0 . #x1AFFF) unused
|
||||
(#x1B000 . #x1B0FF)
|
||||
;; (#x1B100 . #x1CFFF) unused
|
||||
;; (#x1B100 . #x1BBFF) unused
|
||||
(#x1BC00 . #x1BCAF)
|
||||
;; (#x1BCB0 . #x1CFFF) unused
|
||||
(#x1D000 . #x1FFFF)
|
||||
;; (#x20000 . #xDFFFF) CJK Ideograph Extension A, B, etc, unused
|
||||
(#xE0000 . #xE01FF)))
|
||||
|
|
|
|||
|
|
@ -224,7 +224,7 @@ Default value, nil, means edit the string instead."
|
|||
|
||||
(autoload 'character-fold-to-regexp "character-fold")
|
||||
|
||||
(defcustom search-default-mode #'character-fold-to-regexp
|
||||
(defcustom search-default-mode nil
|
||||
"Default mode to use when starting isearch.
|
||||
Value is nil, t, or a function.
|
||||
|
||||
|
|
|
|||
|
|
@ -2800,7 +2800,12 @@ The current mail message becomes the message displayed."
|
|||
;; rmail-header-style based on the binding in effect when
|
||||
;; this function is called; `rmail-toggle-headers' can
|
||||
;; inspect this value to determine how to toggle.
|
||||
(set (make-local-variable 'rmail-header-style) header-style))
|
||||
(set (make-local-variable 'rmail-header-style) header-style)
|
||||
;; In case viewing the previous message sets the paragraph
|
||||
;; direction non-nil, we reset it here to allow independent
|
||||
;; dynamic determination of paragraph direction in every
|
||||
;; message.
|
||||
(setq bidi-paragraph-direction nil))
|
||||
(if (and rmail-enable-mime
|
||||
rmail-show-mime-function
|
||||
(re-search-forward "mime-version: 1.0" nil t))
|
||||
|
|
|
|||
|
|
@ -1758,12 +1758,13 @@ This performs fontification according to `js--class-styles'."
|
|||
(eq (char-after) ??))))
|
||||
(not (and
|
||||
(eq (char-after) ?*)
|
||||
(looking-at (concat "\\* *" js--name-re " *("))
|
||||
;; Generator method (possibly using computed property).
|
||||
(looking-at (concat "\\* *\\(?:\\[\\|" js--name-re " *(\\)"))
|
||||
(save-excursion
|
||||
(goto-char (1- (match-end 0)))
|
||||
(let (forward-sexp-function) (forward-sexp))
|
||||
(js--forward-syntactic-ws)
|
||||
(eq (char-after) ?{)))))))
|
||||
(js--backward-syntactic-ws)
|
||||
;; We might misindent some expressions that would
|
||||
;; return NaN anyway. Shouldn't be a problem.
|
||||
(memq (char-before) '(?, ?} ?{))))))))
|
||||
|
||||
(defun js--continued-expression-p ()
|
||||
"Return non-nil if the current line continues an expression."
|
||||
|
|
|
|||
|
|
@ -420,7 +420,10 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
|
||||
(defun ruby-smie--bosp ()
|
||||
(save-excursion (skip-chars-backward " \t")
|
||||
(or (bolp) (memq (char-before) '(?\; ?=)))))
|
||||
(or (and (bolp)
|
||||
;; Newline is escaped.
|
||||
(not (eq (char-before (1- (point))) ?\\)))
|
||||
(memq (char-before) '(?\; ?=)))))
|
||||
|
||||
(defun ruby-smie--implicit-semi-p ()
|
||||
(save-excursion
|
||||
|
|
@ -428,17 +431,11 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
(not (or (bolp)
|
||||
(memq (char-before) '(?\[ ?\())
|
||||
(and (memq (char-before)
|
||||
'(?\; ?- ?+ ?* ?/ ?: ?. ?, ?\\ ?& ?> ?< ?% ?~ ?^))
|
||||
;; Not a binary operator symbol.
|
||||
(not (eq (char-before (1- (point))) ?:))
|
||||
;; Not the end of a regexp or a percent literal.
|
||||
(not (memq (car (syntax-after (1- (point)))) '(7 15))))
|
||||
(and (eq (char-before) ?\?)
|
||||
(equal (save-excursion (ruby-smie--backward-token)) "?"))
|
||||
(and (eq (char-before) ?=)
|
||||
;; Not a symbol :==, :!=, or a foo= method.
|
||||
(string-match "\\`\\s." (save-excursion
|
||||
(ruby-smie--backward-token))))
|
||||
'(?\; ?- ?+ ?* ?/ ?: ?. ?, ?\\ ?& ?> ?< ?% ?~ ?^ ?= ??))
|
||||
;; Not a binary operator symbol like :+ or :[]=.
|
||||
;; Or a (method or symbol) name ending with ?.
|
||||
;; Or the end of a regexp or a percent literal.
|
||||
(not (memq (car (syntax-after (1- (point)))) '(3 7 15))))
|
||||
(and (eq (char-before) ?|)
|
||||
(member (save-excursion (ruby-smie--backward-token))
|
||||
'("|" "||")))
|
||||
|
|
@ -482,12 +479,16 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
"else" "elsif" "do" "end" "and")
|
||||
'symbols))))
|
||||
(memq (car (syntax-after pos)) '(7 15))
|
||||
(looking-at "[([]\\|[-+!~]\\sw\\|:\\(?:\\sw\\|\\s.\\)")))))
|
||||
(looking-at "[([]\\|[-+!~:]\\(?:\\sw\\|\\s_\\)")))))
|
||||
|
||||
(defun ruby-smie--at-dot-call ()
|
||||
(defun ruby-smie--before-method-name ()
|
||||
;; Only need to be accurate when method has keyword name.
|
||||
(and (eq ?w (char-syntax (following-char)))
|
||||
(eq (char-before) ?.)
|
||||
(not (eq (char-before (1- (point))) ?.))))
|
||||
(or
|
||||
(and
|
||||
(eq (char-before) ?.)
|
||||
(not (eq (char-before (1- (point))) ?.)))
|
||||
(looking-back "^\\s *def\\s +\\=" (line-beginning-position)))))
|
||||
|
||||
(defun ruby-smie--forward-token ()
|
||||
(let ((pos (point)))
|
||||
|
|
@ -508,11 +509,9 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
(save-excursion
|
||||
(ruby-smie--args-separator-p (prog1 (point) (goto-char pos)))))
|
||||
" @ ")
|
||||
((looking-at ":\\s.+")
|
||||
(goto-char (match-end 0)) (match-string 0)) ;bug#15208.
|
||||
((looking-at "\\s\"") "") ;A string.
|
||||
(t
|
||||
(let ((dot (ruby-smie--at-dot-call))
|
||||
(let ((dot (ruby-smie--before-method-name))
|
||||
(tok (smie-default-forward-token)))
|
||||
(when dot
|
||||
(setq tok (concat "." tok)))
|
||||
|
|
@ -556,11 +555,9 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
" @ ")
|
||||
(t
|
||||
(let ((tok (smie-default-backward-token))
|
||||
(dot (ruby-smie--at-dot-call)))
|
||||
(dot (ruby-smie--before-method-name)))
|
||||
(when dot
|
||||
(setq tok (concat "." tok)))
|
||||
(when (and (eq ?: (char-before)) (string-match "\\`\\s." tok))
|
||||
(forward-char -1) (setq tok (concat ":" tok))) ;; bug#15208.
|
||||
(cond
|
||||
((member tok '("unless" "if" "while" "until"))
|
||||
(if (ruby-smie--bosp)
|
||||
|
|
@ -669,7 +666,7 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
;; Align to the previous `when', but look up the virtual
|
||||
;; indentation of `case'.
|
||||
(if (smie-rule-sibling-p) 0 (smie-rule-parent)))
|
||||
(`(:after . ,(or "=" "iuwu-mod" "+" "-" "*" "/" "&&" "||" "%" "**" "^" "&"
|
||||
(`(:after . ,(or "=" "+" "-" "*" "/" "&&" "||" "%" "**" "^" "&"
|
||||
"<=>" ">" "<" ">=" "<=" "==" "===" "!=" "<<" ">>"
|
||||
"+=" "-=" "*=" "/=" "%=" "**=" "&=" "|=" "^=" "|"
|
||||
"<<=" ">>=" "&&=" "||=" "and" "or"))
|
||||
|
|
@ -682,6 +679,8 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
|
|||
(if (ruby-smie--indent-to-stmt-p token)
|
||||
(ruby-smie--indent-to-stmt)
|
||||
(cons 'column (current-column)))))
|
||||
(`(:before . "iuwu-mod")
|
||||
(smie-rule-parent ruby-indent-level))
|
||||
))
|
||||
|
||||
(defun ruby--at-indentation-p (&optional point)
|
||||
|
|
@ -889,12 +888,18 @@ and `\\' when preceded by `?'."
|
|||
((and (eq c ?:) (or (not b) (eq (char-syntax b) ? ))))
|
||||
((eq c ?\\) (eq b ??)))))
|
||||
|
||||
(defun ruby-singleton-class-p (&optional pos)
|
||||
(defun ruby-verify-heredoc (&optional pos)
|
||||
(save-excursion
|
||||
(when pos (goto-char pos))
|
||||
(forward-word -1)
|
||||
(and (or (bolp) (not (eq (char-before (point)) ?_)))
|
||||
(looking-at ruby-singleton-class-re))))
|
||||
;; Not right after a symbol or prefix character.
|
||||
;; Method names are only allowed when separated by
|
||||
;; whitespace. Not a limitation in Ruby, but it's hard for
|
||||
;; us to do better.
|
||||
(when (not (memq (car (syntax-after (1- (point)))) '(2 3 6 10)))
|
||||
(or (not (memq (char-before) '(?\s ?\t)))
|
||||
(ignore (forward-word -1))
|
||||
(eq (char-before) ?_)
|
||||
(not (looking-at ruby-singleton-class-re))))))
|
||||
|
||||
(defun ruby-expr-beg (&optional option)
|
||||
"Check if point is possibly at the beginning of an expression.
|
||||
|
|
@ -914,7 +919,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
|
|||
nil)
|
||||
((looking-at ruby-operator-re))
|
||||
((eq option 'heredoc)
|
||||
(and (< space 0) (not (ruby-singleton-class-p start))))
|
||||
(and (< space 0) (ruby-verify-heredoc start)))
|
||||
((or (looking-at "[\\[({,;]")
|
||||
(and (looking-at "[!?]")
|
||||
(or (not (eq option 'modifier))
|
||||
|
|
@ -1842,17 +1847,22 @@ It will be properly highlighted even when the call omits parens.")
|
|||
(syntax-propertize-rules
|
||||
;; $' $" $` .... are variables.
|
||||
;; ?' ?" ?` are character literals (one-char strings in 1.9+).
|
||||
("\\([?$]\\)[#\"'`]"
|
||||
("\\([?$]\\)[#\"'`:?]"
|
||||
(1 (if (save-excursion
|
||||
(nth 3 (syntax-ppss (match-beginning 0))))
|
||||
;; Within a string, skip.
|
||||
(goto-char (match-end 1))
|
||||
(string-to-syntax "\\"))))
|
||||
;; Part of symbol when at the end of a method name.
|
||||
(ignore
|
||||
(goto-char (match-end 1)))
|
||||
(put-text-property (match-end 1) (match-end 0)
|
||||
'syntax-table (string-to-syntax "_"))
|
||||
(string-to-syntax "'"))))
|
||||
;; Symbols with special characters.
|
||||
("\\(^\\|[^:]\\)\\(:\\([-+~]@?\\|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|![~=]?\\|\\[\\]=?\\)\\)"
|
||||
(3 (string-to-syntax "_")))
|
||||
;; Part of method name when at the end of it.
|
||||
("[!?]"
|
||||
(0 (unless (save-excursion
|
||||
(or (nth 8 (syntax-ppss (match-beginning 0)))
|
||||
(eq (char-before) ?:)
|
||||
(let (parse-sexp-lookup-properties)
|
||||
(zerop (skip-syntax-backward "w_")))
|
||||
(memq (preceding-char) '(?@ ?$))))
|
||||
|
|
@ -1887,15 +1897,18 @@ It will be properly highlighted even when the call omits parens.")
|
|||
("^\\(=\\)begin\\_>" (1 "!"))
|
||||
;; Handle here documents.
|
||||
((concat ruby-here-doc-beg-re ".*\\(\n\\)")
|
||||
(7 (unless (or (nth 8 (save-excursion
|
||||
(syntax-ppss (match-beginning 0))))
|
||||
(ruby-singleton-class-p (match-beginning 0)))
|
||||
(7 (when (and (not (nth 8 (save-excursion
|
||||
(syntax-ppss (match-beginning 0)))))
|
||||
(ruby-verify-heredoc (match-beginning 0)))
|
||||
(put-text-property (match-beginning 7) (match-end 7)
|
||||
'syntax-table (string-to-syntax "\""))
|
||||
(ruby-syntax-propertize-heredoc end))))
|
||||
;; Handle percent literals: %w(), %q{}, etc.
|
||||
((concat "\\(?:^\\|[[ \t\n<+(,=]\\)" ruby-percent-literal-beg-re)
|
||||
(1 (prog1 "|" (ruby-syntax-propertize-percent-literal end)))))
|
||||
((concat "\\(?:^\\|[[ \t\n<+(,=*]\\)" ruby-percent-literal-beg-re)
|
||||
(1 (unless (nth 8 (save-excursion (syntax-ppss (match-beginning 1))))
|
||||
;; Not inside a string, a comment, or a percent literal.
|
||||
(ruby-syntax-propertize-percent-literal end)
|
||||
(string-to-syntax "|")))))
|
||||
(point) end)))
|
||||
|
||||
(define-obsolete-function-alias
|
||||
|
|
@ -1910,7 +1923,7 @@ It will be properly highlighted even when the call omits parens.")
|
|||
(beginning-of-line)
|
||||
(while (re-search-forward ruby-here-doc-beg-re
|
||||
(line-end-position) t)
|
||||
(unless (ruby-singleton-class-p (match-beginning 0))
|
||||
(when (ruby-verify-heredoc (match-beginning 0))
|
||||
(push (concat (ruby-here-doc-end-match) "\n") res))))
|
||||
(save-excursion
|
||||
;; With multiple openers on the same line, we don't know in which
|
||||
|
|
@ -1938,35 +1951,33 @@ It will be properly highlighted even when the call omits parens.")
|
|||
|
||||
(defun ruby-syntax-propertize-percent-literal (limit)
|
||||
(goto-char (match-beginning 2))
|
||||
;; Not inside a simple string or comment.
|
||||
(when (eq t (nth 3 (syntax-ppss)))
|
||||
(let* ((op (char-after))
|
||||
(ops (char-to-string op))
|
||||
(cl (or (cdr (aref (syntax-table) op))
|
||||
(cdr (assoc op '((?< . ?>))))))
|
||||
parse-sexp-lookup-properties)
|
||||
(save-excursion
|
||||
(condition-case nil
|
||||
(progn
|
||||
(if cl ; Paired delimiters.
|
||||
;; Delimiter pairs of the same kind can be nested
|
||||
;; inside the literal, as long as they are balanced.
|
||||
;; Create syntax table that ignores other characters.
|
||||
(with-syntax-table (make-char-table 'syntax-table nil)
|
||||
(modify-syntax-entry op (concat "(" (char-to-string cl)))
|
||||
(modify-syntax-entry cl (concat ")" ops))
|
||||
(modify-syntax-entry ?\\ "\\")
|
||||
(save-restriction
|
||||
(narrow-to-region (point) limit)
|
||||
(forward-list))) ; skip to the paired character
|
||||
;; Single character delimiter.
|
||||
(re-search-forward (concat "[^\\]\\(?:\\\\\\\\\\)*"
|
||||
(regexp-quote ops)) limit nil))
|
||||
;; Found the closing delimiter.
|
||||
(put-text-property (1- (point)) (point) 'syntax-table
|
||||
(string-to-syntax "|")))
|
||||
;; Unclosed literal, do nothing.
|
||||
((scan-error search-failed)))))))
|
||||
(let* ((op (char-after))
|
||||
(ops (char-to-string op))
|
||||
(cl (or (cdr (aref (syntax-table) op))
|
||||
(cdr (assoc op '((?< . ?>))))))
|
||||
parse-sexp-lookup-properties)
|
||||
(save-excursion
|
||||
(condition-case nil
|
||||
(progn
|
||||
(if cl ; Paired delimiters.
|
||||
;; Delimiter pairs of the same kind can be nested
|
||||
;; inside the literal, as long as they are balanced.
|
||||
;; Create syntax table that ignores other characters.
|
||||
(with-syntax-table (make-char-table 'syntax-table nil)
|
||||
(modify-syntax-entry op (concat "(" (char-to-string cl)))
|
||||
(modify-syntax-entry cl (concat ")" ops))
|
||||
(modify-syntax-entry ?\\ "\\")
|
||||
(save-restriction
|
||||
(narrow-to-region (point) limit)
|
||||
(forward-list))) ; skip to the paired character
|
||||
;; Single character delimiter.
|
||||
(re-search-forward (concat "[^\\]\\(?:\\\\\\\\\\)*"
|
||||
(regexp-quote ops)) limit nil))
|
||||
;; Found the closing delimiter.
|
||||
(put-text-property (1- (point)) (point) 'syntax-table
|
||||
(string-to-syntax "|")))
|
||||
;; Unclosed literal, do nothing.
|
||||
((scan-error search-failed))))))
|
||||
|
||||
(defun ruby-syntax-propertize-expansion ()
|
||||
;; Save the match data to a text property, for font-locking later.
|
||||
|
|
@ -2158,7 +2169,7 @@ See `font-lock-syntax-table'.")
|
|||
(1 font-lock-builtin-face))
|
||||
;; Here-doc beginnings.
|
||||
(,ruby-here-doc-beg-re
|
||||
(0 (unless (ruby-singleton-class-p (match-beginning 0))
|
||||
(0 (when (ruby-verify-heredoc (match-beginning 0))
|
||||
'font-lock-string-face)))
|
||||
;; Perl-ish keywords.
|
||||
"\\_<\\(?:BEGIN\\|END\\)\\_>\\|^__END__$"
|
||||
|
|
@ -2169,17 +2180,14 @@ See `font-lock-syntax-table'.")
|
|||
;; Keywords that evaluate to certain values.
|
||||
("\\_<__\\(?:LINE\\|ENCODING\\|FILE\\)__\\_>"
|
||||
(0 font-lock-builtin-face))
|
||||
;; Symbols with symbol characters.
|
||||
;; Symbols.
|
||||
("\\(^\\|[^:]\\)\\(:@?\\(?:\\w\\|_\\)+\\)\\([!?=]\\)?"
|
||||
(2 font-lock-constant-face)
|
||||
(3 (unless (and (eq (char-before (match-end 3)) ?=)
|
||||
(eq (char-after (match-end 3)) ?>))
|
||||
;; bug#18466
|
||||
;; bug#18644
|
||||
font-lock-constant-face)
|
||||
nil t))
|
||||
;; Symbols with special characters.
|
||||
("\\(^\\|[^:]\\)\\(:\\([-+~]@?\\|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|![~=]?\\|\\[\\]=?\\|#{[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\)\\)"
|
||||
2 font-lock-constant-face)
|
||||
;; Special globals.
|
||||
(,(concat "\\$\\(?:[:\"!@;,/\\._><\\$?~=*&`'+0-9]\\|-[0adFiIlpvw]\\|"
|
||||
(regexp-opt '("LOAD_PATH" "LOADED_FEATURES" "PROGRAM_NAME"
|
||||
|
|
@ -2219,7 +2227,7 @@ See `font-lock-syntax-table'.")
|
|||
1 font-lock-negation-char-face)
|
||||
;; Character literals.
|
||||
;; FIXME: Support longer escape sequences.
|
||||
("\\_<\\?\\\\?\\S " 0 font-lock-string-face)
|
||||
("\\?\\\\?\\_<.\\_>" 0 font-lock-string-face)
|
||||
;; Regexp options.
|
||||
("\\(?:\\s|\\|/\\)\\([imxo]+\\)"
|
||||
1 (when (save-excursion
|
||||
|
|
|
|||
|
|
@ -3195,6 +3195,8 @@ shell (with its need to quote arguments)."
|
|||
"Execute string COMMAND in inferior shell; display output, if any.
|
||||
With prefix argument, insert the COMMAND's output at point.
|
||||
|
||||
Interactively, prompt for COMMAND in the minibuffer.
|
||||
|
||||
If COMMAND ends in `&', execute it asynchronously.
|
||||
The output appears in the buffer `*Async Shell Command*'.
|
||||
That buffer is in shell mode. You can also use
|
||||
|
|
|
|||
|
|
@ -304,14 +304,15 @@ or \\[wdired-abort-changes] to abort changes")))
|
|||
(put-text-property b-protection (point-max) 'read-only t))))
|
||||
|
||||
;; This code is a copy of some dired-get-filename lines.
|
||||
(defsubst wdired-normalize-filename (file)
|
||||
(setq file
|
||||
;; FIXME: shouldn't we check for a `b' argument or somesuch before
|
||||
;; doing such unquoting? --Stef
|
||||
(read (concat
|
||||
"\"" (replace-regexp-in-string
|
||||
"\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" file)
|
||||
"\"")))
|
||||
(defsubst wdired-normalize-filename (file unquotep)
|
||||
(when unquotep
|
||||
(setq file
|
||||
;; FIXME: shouldn't we check for a `b' argument or somesuch before
|
||||
;; doing such unquoting? --Stef
|
||||
(read (concat
|
||||
"\"" (replace-regexp-in-string
|
||||
"\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" file)
|
||||
"\""))))
|
||||
(and file buffer-file-coding-system
|
||||
(not file-name-coding-system)
|
||||
(not default-file-name-coding-system)
|
||||
|
|
@ -339,7 +340,8 @@ non-nil means return old filename."
|
|||
;; deletion.
|
||||
(setq end (next-single-property-change beg 'end-name))
|
||||
(setq file (buffer-substring-no-properties (1+ beg) end)))
|
||||
(and file (setq file (wdired-normalize-filename file))))
|
||||
;; Don't unquote the old name, it wasn't quoted in the first place
|
||||
(and file (setq file (wdired-normalize-filename file (not old)))))
|
||||
(if (or no-dir old)
|
||||
file
|
||||
(and file (> (length file) 0)
|
||||
|
|
@ -644,7 +646,7 @@ If OLD, return the old target. If MOVE, move point before it."
|
|||
(setq end (next-single-property-change beg 'end-link))
|
||||
(setq target (buffer-substring-no-properties (1+ beg) end)))
|
||||
(if move (goto-char (1- beg)))))
|
||||
(and target (wdired-normalize-filename target))))
|
||||
(and target (wdired-normalize-filename target t))))
|
||||
|
||||
(declare-function make-symbolic-link "fileio.c")
|
||||
|
||||
|
|
|
|||
|
|
@ -54,6 +54,7 @@ AC_DEFUN([gl_EXTERN_INLINE],
|
|||
? defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \
|
||||
: (199901L <= __STDC_VERSION__ \
|
||||
&& !defined __HP_cc \
|
||||
&& !defined __PGI \
|
||||
&& !(defined __SUNPRO_C && __STDC__))) \
|
||||
&& !defined _GL_EXTERN_INLINE_STDHEADER_BUG)
|
||||
# define _GL_INLINE inline
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -16,8 +16,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -70,4 +70,3 @@ main (int argc, char *argv[])
|
|||
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -34,4 +34,3 @@ extern unsigned getegid (void);
|
|||
extern struct group *getgrgid(gid_t);
|
||||
|
||||
#endif /* _GRP_H */
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -58,4 +58,3 @@ enum {
|
|||
extern char *nl_langinfo (nl_item);
|
||||
|
||||
#endif /* _LANGINFO_H */
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -4,8 +4,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
13
nt/preprep.c
13
nt/preprep.c
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -34,11 +34,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
|||
/* Include relevant definitions from IMAGEHLP.H, which can be found
|
||||
in \\win32sdk\mstools\samples\image\include\imagehlp.h. */
|
||||
|
||||
PIMAGE_NT_HEADERS
|
||||
(__stdcall * pfnCheckSumMappedFile) (LPVOID BaseAddress,
|
||||
DWORD_PTR FileLength,
|
||||
PDWORD_PTR HeaderSum,
|
||||
PDWORD_PTR CheckSum);
|
||||
PIMAGE_NT_HEADERS (__stdcall * pfnCheckSumMappedFile) (LPVOID BaseAddress,
|
||||
DWORD_PTR FileLength,
|
||||
PDWORD_PTR HeaderSum,
|
||||
PDWORD_PTR CheckSum);
|
||||
|
||||
#undef min
|
||||
#undef max
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ Copyright (C) 2001-2016 Free Software Foundation, Inc.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ Copyright (C) 1993-1994, 2001-2016 Free Software Foundation, Inc.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ Copyright (C) 2001-2016 Free Software Foundation, Inc.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ Copyright (C) 1993, 1996, 2001-2016 Free Software Foundation, Inc.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -3,8 +3,8 @@ Copyright (C) 1993-1998, 2001-2016 Free Software Foundation, Inc.
|
|||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
44
src/bidi.c
44
src/bidi.c
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -2318,7 +2318,31 @@ bidi_resolve_weak (struct bidi_it *bidi_it)
|
|||
if (bidi_it->next_en_type == WEAK_EN) /* ET/BN with EN after it */
|
||||
type = WEAK_EN;
|
||||
}
|
||||
else if (bidi_it->next_en_pos >=0)
|
||||
else if (type == WEAK_BN
|
||||
/* This condition is for the following important case:
|
||||
|
||||
. we are at level zero
|
||||
. either previous strong character was L,
|
||||
or we've seen no strong characters since sos
|
||||
and the base paragraph direction is L2R
|
||||
. this BN is NOT a bidi directional control
|
||||
|
||||
For such a situation, either this BN will be
|
||||
converted to EN per W5, and then to L by virtue
|
||||
of W7; or it will become ON per W6, and then L
|
||||
because of N1/N2. So we take a shortcut here
|
||||
and make it L right away, to avoid the
|
||||
potentially costly loop below. This is
|
||||
important when the buffer has a long series of
|
||||
control characters, like binary nulls, and no
|
||||
R2L characters at all. */
|
||||
&& new_level == 0
|
||||
&& !bidi_explicit_dir_char (bidi_it->ch)
|
||||
&& ((bidi_it->last_strong.type == STRONG_L)
|
||||
|| (bidi_it->last_strong.type == UNKNOWN_BT
|
||||
&& bidi_it->sos == L2R)))
|
||||
type = STRONG_L;
|
||||
else if (bidi_it->next_en_pos >= 0)
|
||||
{
|
||||
/* We overstepped the last known position for ET
|
||||
resolution but there could be other such characters
|
||||
|
|
@ -2981,9 +3005,10 @@ bidi_resolve_neutral (struct bidi_it *bidi_it)
|
|||
entering the expensive loop in the "else" clause. */
|
||||
else if (current_level == 0
|
||||
&& bidi_it->prev_for_neutral.type == STRONG_L
|
||||
&& type != WEAK_BN
|
||||
&& !bidi_explicit_dir_char (bidi_it->ch)
|
||||
&& !bidi_isolate_fmt_char (type))
|
||||
&& (ASCII_CHAR_P (bidi_it->ch)
|
||||
|| (type != WEAK_BN
|
||||
&& !bidi_explicit_dir_char (bidi_it->ch)
|
||||
&& !bidi_isolate_fmt_char (type))))
|
||||
type = bidi_resolve_neutral_1 (bidi_it->prev_for_neutral.type,
|
||||
STRONG_L, current_level);
|
||||
else if (/* current level is 1 */
|
||||
|
|
@ -3163,7 +3188,7 @@ bidi_level_of_next_char (struct bidi_it *bidi_it)
|
|||
}
|
||||
}
|
||||
|
||||
/* Perhaps the character we want is already cached s fully resolved.
|
||||
/* Perhaps the character we want is already cached as fully resolved.
|
||||
If it is, the call to bidi_cache_find below will return a type
|
||||
other than UNKNOWN_BT. */
|
||||
if (bidi_cache_idx > bidi_cache_start && !bidi_it->first_elt)
|
||||
|
|
@ -3223,7 +3248,10 @@ bidi_level_of_next_char (struct bidi_it *bidi_it)
|
|||
if ((bidi_it->orig_type == NEUTRAL_WS
|
||||
|| bidi_it->orig_type == WEAK_BN
|
||||
|| bidi_isolate_fmt_char (bidi_it->orig_type))
|
||||
&& bidi_it->next_for_ws.charpos < bidi_it->charpos)
|
||||
&& bidi_it->next_for_ws.charpos < bidi_it->charpos
|
||||
/* If this character is already at base level, we don't need to
|
||||
reset it, so avoid the potentially costly loop below. */
|
||||
&& level != bidi_it->level_stack[0].level)
|
||||
{
|
||||
int ch;
|
||||
ptrdiff_t clen = bidi_it->ch_len;
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
18
src/buffer.c
18
src/buffer.c
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -1044,7 +1044,7 @@ DEFUN ("generate-new-buffer-name", Fgenerate_new_buffer_name,
|
|||
doc: /* Return a string that is the name of no existing buffer based on NAME.
|
||||
If there is no live buffer named NAME, then return NAME.
|
||||
Otherwise modify name by appending `<NUMBER>', incrementing NUMBER
|
||||
(starting at 2) until an unused name is found, and then return that name.
|
||||
\(starting at 2) until an unused name is found, and then return that name.
|
||||
Optional second argument IGNORE specifies a name that is okay to use (if
|
||||
it is in the sequence to be tried) even if a buffer with that name exists.
|
||||
|
||||
|
|
@ -3793,10 +3793,10 @@ If omitted, BUFFER defaults to the current buffer.
|
|||
BEG and END may be integers or markers.
|
||||
The fourth arg FRONT-ADVANCE, if non-nil, makes the marker
|
||||
for the front of the overlay advance when text is inserted there
|
||||
(which means the text *is not* included in the overlay).
|
||||
\(which means the text *is not* included in the overlay).
|
||||
The fifth arg REAR-ADVANCE, if non-nil, makes the marker
|
||||
for the rear of the overlay advance when text is inserted there
|
||||
(which means the text *is* included in the overlay). */)
|
||||
\(which means the text *is* included in the overlay). */)
|
||||
(Lisp_Object beg, Lisp_Object end, Lisp_Object buffer,
|
||||
Lisp_Object front_advance, Lisp_Object rear_advance)
|
||||
{
|
||||
|
|
@ -6028,7 +6028,7 @@ between 0.0 and 1.0, inclusive. */);
|
|||
doc: /* List of functions to call before each text change.
|
||||
Two arguments are passed to each function: the positions of
|
||||
the beginning and end of the range of old text to be changed.
|
||||
(For an insertion, the beginning and end are at the same place.)
|
||||
\(For an insertion, the beginning and end are at the same place.)
|
||||
No information is given about the length of the text after the change.
|
||||
|
||||
Buffer changes made while executing the `before-change-functions'
|
||||
|
|
@ -6045,7 +6045,7 @@ from happening repeatedly and making Emacs nonfunctional. */);
|
|||
Three arguments are passed to each function: the positions of
|
||||
the beginning and end of the range of changed text,
|
||||
and the length in chars of the pre-change text replaced by that range.
|
||||
(For an insertion, the pre-change length is zero;
|
||||
\(For an insertion, the pre-change length is zero;
|
||||
for a deletion, that length is the number of chars deleted,
|
||||
and the post-change beginning and end are at the same place.)
|
||||
|
||||
|
|
@ -6090,7 +6090,7 @@ was modified between BEG and END. PROPERTY is the property name,
|
|||
and VALUE is the old value.
|
||||
|
||||
An entry (apply FUN-NAME . ARGS) means undo the change with
|
||||
(apply FUN-NAME ARGS).
|
||||
\(apply FUN-NAME ARGS).
|
||||
|
||||
An entry (apply DELTA BEG END FUN-NAME . ARGS) supports selective undo
|
||||
in the active region. BEG and END is the range affected by this entry
|
||||
|
|
@ -6250,7 +6250,7 @@ to the default frame line height. A value of nil means add no extra space. */)
|
|||
doc: /* Non-nil means show a cursor in non-selected windows.
|
||||
If nil, only shows a cursor in the selected window.
|
||||
If t, displays a cursor related to the usual cursor type
|
||||
(a solid box becomes hollow, a bar becomes a narrower bar).
|
||||
\(a solid box becomes hollow, a bar becomes a narrower bar).
|
||||
You can also specify the cursor type as in the `cursor-type' variable.
|
||||
Use Custom to set this variable and update the display. */);
|
||||
|
||||
|
|
|
|||
26
src/buffer.h
26
src/buffer.h
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -352,9 +352,9 @@ extern void enlarge_buffer_text (struct buffer *, ptrdiff_t);
|
|||
/* Convert PTR, the address of a byte in the buffer, into a byte position. */
|
||||
|
||||
#define PTR_BYTE_POS(ptr) \
|
||||
((ptr) - (current_buffer)->text->beg \
|
||||
- (ptr - (current_buffer)->text->beg <= GPT_BYTE - BEG_BYTE ? 0 : GAP_SIZE) \
|
||||
+ BEG_BYTE)
|
||||
((ptr) - (current_buffer)->text->beg \
|
||||
- (ptr - (current_buffer)->text->beg <= GPT_BYTE - BEG_BYTE ? 0 : GAP_SIZE) \
|
||||
+ BEG_BYTE)
|
||||
|
||||
/* Return character at byte position POS. See the caveat WARNING for
|
||||
FETCH_MULTIBYTE_CHAR below. */
|
||||
|
|
@ -386,24 +386,24 @@ extern void enlarge_buffer_text (struct buffer *, ptrdiff_t);
|
|||
Note that both arguments can be computed more than once. */
|
||||
|
||||
#define BUF_BYTE_ADDRESS(buf, pos) \
|
||||
((buf)->text->beg + (pos) - BEG_BYTE \
|
||||
+ ((pos) >= (buf)->text->gpt_byte ? (buf)->text->gap_size : 0))
|
||||
((buf)->text->beg + (pos) - BEG_BYTE \
|
||||
+ ((pos) >= (buf)->text->gpt_byte ? (buf)->text->gap_size : 0))
|
||||
|
||||
/* Return the address of character at char position POS in buffer BUF.
|
||||
Note that both arguments can be computed more than once. */
|
||||
|
||||
#define BUF_CHAR_ADDRESS(buf, pos) \
|
||||
((buf)->text->beg + buf_charpos_to_bytepos ((buf), (pos)) - BEG_BYTE \
|
||||
+ ((pos) >= (buf)->text->gpt ? (buf)->text->gap_size : 0))
|
||||
((buf)->text->beg + buf_charpos_to_bytepos ((buf), (pos)) - BEG_BYTE \
|
||||
+ ((pos) >= (buf)->text->gpt ? (buf)->text->gap_size : 0))
|
||||
|
||||
/* Convert PTR, the address of a char in buffer BUF,
|
||||
into a character position. */
|
||||
|
||||
#define BUF_PTR_BYTE_POS(buf, ptr) \
|
||||
((ptr) - (buf)->text->beg \
|
||||
- (ptr - (buf)->text->beg <= BUF_GPT_BYTE (buf) - BEG_BYTE \
|
||||
? 0 : BUF_GAP_SIZE ((buf))) \
|
||||
+ BEG_BYTE)
|
||||
((ptr) - (buf)->text->beg \
|
||||
- (ptr - (buf)->text->beg <= BUF_GPT_BYTE (buf) - BEG_BYTE \
|
||||
? 0 : BUF_GAP_SIZE ((buf))) \
|
||||
+ BEG_BYTE)
|
||||
|
||||
/* Return the character at byte position POS in buffer BUF. */
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -1996,9 +1996,9 @@ syms_of_bytecode (void)
|
|||
|
||||
DEFVAR_LISP ("byte-code-meter", Vbyte_code_meter,
|
||||
doc: /* A vector of vectors which holds a histogram of byte-code usage.
|
||||
(aref (aref byte-code-meter 0) CODE) indicates how many times the byte
|
||||
\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte
|
||||
opcode CODE has been executed.
|
||||
(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,
|
||||
\(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,
|
||||
indicates how many times the byte opcodes CODE1 and CODE2 have been
|
||||
executed in succession. */);
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -1457,7 +1457,7 @@ This function searches `process-environment' for VARIABLE.
|
|||
|
||||
If optional parameter ENV is a list, then search this list instead of
|
||||
`process-environment', and return t when encountering a negative entry
|
||||
(an entry for a variable with no value). */)
|
||||
\(an entry for a variable with no value). */)
|
||||
(Lisp_Object variable, Lisp_Object env)
|
||||
{
|
||||
char *value;
|
||||
|
|
@ -1668,7 +1668,7 @@ Each element is a string (directory name) or nil (try default directory).
|
|||
|
||||
By default the last element of this list is `exec-directory'. The
|
||||
last element is not always used, for example in shell completion
|
||||
(`shell-dynamic-complete-command'). */);
|
||||
\(`shell-dynamic-complete-command'). */);
|
||||
|
||||
DEFVAR_LISP ("exec-suffixes", Vexec_suffixes,
|
||||
doc: /* List of suffixes to try to find executable file names.
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -13,8 +13,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -462,7 +462,7 @@ Emacs treats a sequence of word constituent characters as a single
|
|||
word (i.e. finds no word boundary between them) only if they belong to
|
||||
the same script. But, exceptions are allowed in the following cases.
|
||||
|
||||
(1) The case that characters are in different scripts is controlled
|
||||
\(1) The case that characters are in different scripts is controlled
|
||||
by the variable `word-combining-categories'.
|
||||
|
||||
Emacs finds no word boundary between characters of different scripts
|
||||
|
|
@ -476,7 +476,7 @@ For instance, to tell that Han characters followed by Hiragana
|
|||
characters can form a single word, the element `(?C . ?H)' should be
|
||||
in this list.
|
||||
|
||||
(2) The case that character are in the same script is controlled by
|
||||
\(2) The case that character are in the same script is controlled by
|
||||
the variable `word-separating-categories'.
|
||||
|
||||
Emacs finds a word boundary between characters of the same script
|
||||
|
|
|
|||
|
|
@ -11,8 +11,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -12,8 +12,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -11,8 +11,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -11,8 +11,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -9,8 +9,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -15,8 +15,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -13,8 +13,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -533,7 +533,7 @@ DEFUN ("char-table-parent", Fchar_table_parent, Schar_table_parent,
|
|||
The value is either nil or another char-table.
|
||||
If CHAR-TABLE holds nil for a given character,
|
||||
then the actual applicable value is inherited from the parent char-table
|
||||
(or from its parents, if necessary). */)
|
||||
\(or from its parents, if necessary). */)
|
||||
(Lisp_Object char_table)
|
||||
{
|
||||
CHECK_CHAR_TABLE (char_table);
|
||||
|
|
|
|||
4
src/cm.c
4
src/cm.c
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
4
src/cm.h
4
src/cm.h
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -106,7 +106,7 @@ right or to the left on the screen. This is in contrast with
|
|||
DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "^p",
|
||||
doc: /* Move N lines forward (backward if N is negative).
|
||||
Precisely, if point is on line I, move to the start of line I + N
|
||||
("start of line" in the logical order).
|
||||
\("start of line" in the logical order).
|
||||
If there isn't room, go as far as possible (no error).
|
||||
|
||||
Returns the count of lines left to move. If moving forward,
|
||||
|
|
|
|||
|
|
@ -12,8 +12,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -9790,7 +9790,7 @@ DEFUN ("find-operation-coding-system", Ffind_operation_coding_system,
|
|||
doc: /* Choose a coding system for an operation based on the target name.
|
||||
The value names a pair of coding systems: (DECODING-SYSTEM . ENCODING-SYSTEM).
|
||||
DECODING-SYSTEM is the coding system to use for decoding
|
||||
(in case OPERATION does decoding), and ENCODING-SYSTEM is the coding system
|
||||
\(in case OPERATION does decoding), and ENCODING-SYSTEM is the coding system
|
||||
for encoding (in case OPERATION does encoding).
|
||||
|
||||
The first argument OPERATION specifies an I/O primitive:
|
||||
|
|
@ -11165,7 +11165,7 @@ the cdr part is used for encoding a text to be sent to a process. */);
|
|||
Table of extra Latin codes in the range 128..159 (inclusive).
|
||||
This is a vector of length 256.
|
||||
If Nth element is non-nil, the existence of code N in a file
|
||||
(or output of subprocess) doesn't prevent it to be detected as
|
||||
\(or output of subprocess) doesn't prevent it to be detected as
|
||||
a coding system of ISO 2022 variant which has a flag
|
||||
`accept-latin-extra-code' t (e.g. iso-latin-1) on reading a file
|
||||
or reading output of a subprocess.
|
||||
|
|
|
|||
|
|
@ -12,8 +12,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -11,8 +11,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -11,8 +11,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -1673,7 +1673,7 @@ DEFUN ("make-local-variable", Fmake_local_variable, Smake_local_variable,
|
|||
1, 1, "vMake Local Variable: ",
|
||||
doc: /* Make VARIABLE have a separate value in the current buffer.
|
||||
Other buffers will continue to share a common default value.
|
||||
(The buffer-local value of VARIABLE starts out as the same value
|
||||
\(The buffer-local value of VARIABLE starts out as the same value
|
||||
VARIABLE previously had. If VARIABLE was void, it remains void.)
|
||||
Return VARIABLE.
|
||||
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -5669,7 +5669,7 @@ DEFUN ("sleep-for", Fsleep_for, Ssleep_for, 1, 2, 0,
|
|||
SECONDS may be a floating-point value, meaning that you can wait for a
|
||||
fraction of a second. Optional second arg MILLISECONDS specifies an
|
||||
additional wait period, in milliseconds; this is for backwards compatibility.
|
||||
(Not all operating systems support waiting for a fraction of a second.) */)
|
||||
\(Not all operating systems support waiting for a fraction of a second.) */)
|
||||
(Lisp_Object seconds, Lisp_Object milliseconds)
|
||||
{
|
||||
double duration = extract_float (seconds);
|
||||
|
|
|
|||
|
|
@ -5,8 +5,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -138,6 +138,9 @@ get_doc_string (Lisp_Object filepos, bool unibyte, bool definition)
|
|||
#endif
|
||||
if (fd < 0)
|
||||
{
|
||||
if (errno == EMFILE || errno == ENFILE)
|
||||
report_file_error ("Read error on documentation file", file);
|
||||
|
||||
SAFE_FREE ();
|
||||
AUTO_STRING (cannot_open, "Cannot open doc string file \"");
|
||||
AUTO_STRING (quote_nl, "\"\n");
|
||||
|
|
@ -716,7 +719,7 @@ is not on any keys.
|
|||
Each substring of the form \\=\\{MAPVAR} is replaced by a summary of
|
||||
the value of MAPVAR as a keymap. This summary is similar to the one
|
||||
produced by `describe-bindings'. The summary ends in two newlines
|
||||
(used by the helper function `help-make-xrefs' to find the end of the
|
||||
\(used by the helper function `help-make-xrefs' to find the end of the
|
||||
summary).
|
||||
|
||||
Each substring of the form \\=\\<MAPVAR> specifies the use of MAPVAR
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -9,8 +9,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -29,4 +29,3 @@ extern int msdos_stdcolor_idx (const char *);
|
|||
extern Lisp_Object msdos_stdcolor_name (int);
|
||||
extern void x_set_title (struct frame *, Lisp_Object);
|
||||
#endif
|
||||
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
|
|||
|
|
@ -6,8 +6,8 @@ This file is part of GNU Emacs.
|
|||
|
||||
GNU Emacs is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
GNU Emacs is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
|
|
@ -1895,7 +1895,7 @@ DEFUN ("float-time", Ffloat_time, Sfloat_time, 0, 1, 0,
|
|||
doc: /* Return the current time, as a float number of seconds since the epoch.
|
||||
If SPECIFIED-TIME is given, it is the time to convert to float
|
||||
instead of the current time. The argument should have the form
|
||||
(HIGH LOW) or (HIGH LOW USEC) or (HIGH LOW USEC PSEC). Thus,
|
||||
\(HIGH LOW) or (HIGH LOW USEC) or (HIGH LOW USEC PSEC). Thus,
|
||||
you can use times from `current-time' and from `file-attributes'.
|
||||
SPECIFIED-TIME can also have the form (HIGH . LOW), but this is
|
||||
considered obsolete.
|
||||
|
|
@ -2284,7 +2284,7 @@ OFFSET is an integer number of seconds ahead of UTC (east of Greenwich).
|
|||
NAME is a string giving the name of the time zone.
|
||||
If SPECIFIED-TIME is given, the time zone offset is determined from it
|
||||
instead of using the current time. The argument should have the form
|
||||
(HIGH LOW . IGNORED). Thus, you can use times obtained from
|
||||
\(HIGH LOW . IGNORED). Thus, you can use times obtained from
|
||||
`current-time' and from `file-attributes'. SPECIFIED-TIME can also
|
||||
have the form (HIGH . LOW), but this is considered obsolete.
|
||||
Optional second arg ZONE is omitted or nil for the local time zone, or
|
||||
|
|
@ -3627,7 +3627,7 @@ save_restriction_restore (Lisp_Object data)
|
|||
DEFUN ("save-restriction", Fsave_restriction, Ssave_restriction, 0, UNEVALLED, 0,
|
||||
doc: /* Execute BODY, saving and restoring current buffer's restrictions.
|
||||
The buffer's restrictions make parts of the beginning and end invisible.
|
||||
(They are set up with `narrow-to-region' and eliminated with `widen'.)
|
||||
\(They are set up with `narrow-to-region' and eliminated with `widen'.)
|
||||
This special form, `save-restriction', saves the current buffer's restrictions
|
||||
when it is entered, and restores them when it is exited.
|
||||
So any `narrow-to-region' within BODY lasts only until the end of the form.
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue