Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
4
Issues
4
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
bbd240ce
Commit
bbd240ce
authored
Dec 14, 2011
by
Paul Eggert
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Spelling fixes.
parent
100d5755
Changes
24
Hide whitespace changes
Inline
Side-by-side
Showing
24 changed files
with
47 additions
and
48 deletions
+47
-48
configure.in
configure.in
+1
-1
doc/misc/ede.texi
doc/misc/ede.texi
+2
-2
doc/misc/semantic.texi
doc/misc/semantic.texi
+1
-1
etc/NEWS.22
etc/NEWS.22
+1
-1
lisp/arc-mode.el
lisp/arc-mode.el
+2
-2
lisp/cedet/semantic/scope.el
lisp/cedet/semantic/scope.el
+1
-1
lisp/dframe.el
lisp/dframe.el
+1
-1
lisp/emacs-lisp/pcase.el
lisp/emacs-lisp/pcase.el
+5
-5
lisp/filesets.el
lisp/filesets.el
+1
-1
lisp/international/ccl.el
lisp/international/ccl.el
+1
-1
lisp/international/quail.el
lisp/international/quail.el
+2
-2
lisp/international/titdic-cnv.el
lisp/international/titdic-cnv.el
+2
-2
lisp/org/org-protocol.el
lisp/org/org-protocol.el
+2
-2
lisp/printing.el
lisp/printing.el
+5
-5
lisp/progmodes/cperl-mode.el
lisp/progmodes/cperl-mode.el
+7
-7
lisp/progmodes/gdb-mi.el
lisp/progmodes/gdb-mi.el
+1
-1
lisp/progmodes/idlwave.el
lisp/progmodes/idlwave.el
+1
-1
src/ChangeLog.11
src/ChangeLog.11
+1
-1
src/ChangeLog.8
src/ChangeLog.8
+1
-1
src/charset.c
src/charset.c
+1
-1
src/charset.h
src/charset.h
+2
-2
src/font.h
src/font.h
+1
-1
src/w16select.c
src/w16select.c
+4
-5
src/w32font.c
src/w32font.c
+1
-1
No files found.
configure.in
View file @
bbd240ce
...
...
@@ -1683,7 +1683,7 @@ if test "$doug_lea_malloc" = "yes" ; then
## Use mmap directly for allocating larger buffers.
## FIXME this comes from src/s/{gnu,gnu-linux}.h:
## #ifdef DOUG_LEA_MALLOC; #undef REL_ALLOC; #endif
## Does the AC_FUNC_MMAP test below make this check unecessary?
## Does the AC_FUNC_MMAP test below make this check un
n
ecessary?
case "$opsys" in
gnu*) REL_ALLOC=no ;;
esac
...
...
doc/misc/ede.texi
View file @
bbd240ce
...
...
@@ -705,11 +705,11 @@ A brief description of the project or target. This is currently used
by the @samp
{
ede-speedbar
}
interface.
@item ede-want-file-p
Return non-nil if a target will accept a given file.
It is generally unecessary to override this. See the section on source
It is generally un
n
ecessary to override this. See the section on source
code.
@item ede-buffer-mine
Return non-nil if a buffer belongs to this target. Used during
association when a file is loaded. It is generally unecessary to
association when a file is loaded. It is generally un
n
ecessary to
override this unless you keep auxiliary files.
@end table
...
...
doc/misc/semantic.texi
View file @
bbd240ce
...
...
@@ -380,7 +380,7 @@ with the search results format.
@item semanticdb-ref.el
Tracks crossreferences. Cross references are needed when buffer is
reparsed, and must alert other tables that any depend
a
nt caches may
reparsed, and must alert other tables that any depend
e
nt caches may
need to be flushed. References are in the form of include files.
@end table
...
...
etc/NEWS.22
View file @
bbd240ce
...
...
@@ -4273,7 +4273,7 @@ of suffixes. The function also accepts a predicate argument to
further filter candidate files.
One advantage of using this function is that the list of suffixes in
`exec-suffixes'
is
OS
-
depend
a
nt
,
so
this
function
will
find
`exec-suffixes'
is
OS
-
depend
e
nt
,
so
this
function
will
find
executables
without
polluting
Lisp
code
with
OS
dependencies
.
***
The
new
function
`
file
-
remote
-
p
' tests a file name and returns
...
...
lisp/arc-mode.el
View file @
bbd240ce
...
...
@@ -860,13 +860,13 @@ using `make-temp-file', and the generated name is returned."
dir
)))
(
if
(
or
alien
(
file-exists-p
fullname
))
(
progn
;; Make
d
sure all the leading directories in
;; Make sure all the leading directories in
;; archive-local-name exist under archive-tmpdir, so that
;; the directory structure recorded in the archive is
;; reconstructed in the temporary directory.
(
make-directory
(
file-name-directory
tmpfile
)
t
)
(
make-temp-file
tmpfile
))
;; Make
d
sure all the leading directories in `fullname' exist
;; Make sure all the leading directories in `fullname' exist
;; under archive-tmpdir. This is necessary for nested archives
;; (`archive-extract' sets `archive-remote' to t in case
;; an archive occurs inside another archive).
...
...
lisp/cedet/semantic/scope.el
View file @
bbd240ce
...
...
@@ -725,7 +725,7 @@ The class returned from the scope calculation is variable
(
oset
scopecache
localargs
localargs
)
(
oset
scopecache
localvar
localvar
)
)))
;; Make sure we become depend
a
nt on the typecache.
;; Make sure we become depend
e
nt on the typecache.
(
semanticdb-typecache-add-dependant
scopecache
)
;; Handy debug output.
(
when
(
called-interactively-p
'any
)
...
...
lisp/dframe.el
View file @
bbd240ce
...
...
@@ -221,7 +221,7 @@ Local to those buffers, as a function called that created it.")
(
define-key
map
[mouse-2]
'dframe-click
)
;; This is the power click for new frames, or refreshing a cache
(
define-key
map
[S-mouse-2]
'dframe-power-click
)
;; This adds a small unecessary visual effect
;; This adds a small un
n
ecessary visual effect
;;(define-key map [down-mouse-2] 'dframe-quick-mouse)
(
define-key
map
[down-mouse-3]
'dframe-popup-kludge
)
...
...
lisp/emacs-lisp/pcase.el
View file @
bbd240ce
...
...
@@ -363,12 +363,12 @@ MATCH is the pattern that needs to be matched, of the form:
(
dolist
(
branch
rest
)
(
let*
((
match
(
car
branch
))
(
code&vars
(
cdr
branch
))
(
split
ted
(
split
(
pcase--split-match
sym
splitter
match
)))
(
unless
(
eq
(
car
split
ted
)
:pcase--fail
)
(
push
(
cons
(
car
split
ted
)
code&vars
)
then-rest
))
(
unless
(
eq
(
cdr
split
ted
)
:pcase--fail
)
(
push
(
cons
(
cdr
split
ted
)
code&vars
)
else-rest
))))
(
unless
(
eq
(
car
split
)
:pcase--fail
)
(
push
(
cons
(
car
split
)
code&vars
)
then-rest
))
(
unless
(
eq
(
cdr
split
)
:pcase--fail
)
(
push
(
cons
(
cdr
split
)
code&vars
)
else-rest
))))
(
cons
(
nreverse
then-rest
)
(
nreverse
else-rest
))))
(
defun
pcase--split-consp
(
syma
symd
pat
)
...
...
lisp/filesets.el
View file @
bbd240ce
...
...
@@ -453,7 +453,7 @@ will not be rewrapped if their length exceeds this value."
:group
'filesets
)
(
defcustom
filesets-max-entry-length
50
"Truncate names of split
ted
submenus to this length."
"Truncate names of split submenus to this length."
:set
(
function
filesets-set-default
)
:type
'integer
:group
'filesets
)
...
...
lisp/international/ccl.el
View file @
bbd240ce
...
...
@@ -1469,7 +1469,7 @@ OPERATOR :=
| de-sjis
;; If ARG_0 and ARG_1 are the first and second code point of
;; JISX0208 character CHAR, and SJIS is the correponding
;; JISX0208 character CHAR, and SJIS is the corre
s
ponding
;; Shift-JIS code,
;; (REG = ARG_0 en-sjis ARG_1) means:
;; ((REG = HIGH)
...
...
lisp/international/quail.el
View file @
bbd240ce
...
...
@@ -2832,7 +2832,7 @@ STATE-n are symbols to denote state. STATE-0 is the initial state.
TRANSITION-n-m
are
transition
rules
from
STATE-n,
and
have
the
form
\(RULES
.
STATE-x
)
or
RULES,
where
STATE-x
is
one
of
STATE-n
above,
RULES
is
a
symbol
whose
value
is
an
alist
of
keys
\(string
)
vs
the
correponding
characters
or
strings.
The
format
of
the
symbol
value
of
corre
s
ponding
characters
or
strings.
The
format
of
the
symbol
value
of
RULES
is
the
same
as
arguments
to
`
quail-define-rules
'.
If
TRANSITION-n-m
has
the
form
(
RULES
.
STATE-x
)
,
it
means
that
...
...
@@ -2846,7 +2846,7 @@ The generated map can be set for the current Quail package by the
function
`
quail-install-map
'
(
which
see
)
.
"
(let ((state-alist (mapcar (lambda (x) (list (car x))) table))
tail elt)
;; STATE-ALIST is an alist of states vs the correponding sub Quail
;; STATE-ALIST is an alist of states vs the corre
s
ponding sub Quail
;; map. It is now initialized to ((STATE-0) (STATE-1) ...).
;; Set key sequence mapping rules in cdr part of each element.
(while table
...
...
lisp/international/titdic-cnv.el
View file @
bbd240ce
...
...
@@ -103,7 +103,7 @@ For example:
\\<quail-translation-docstring>
For double-width GB2312 characters correponding to ASCII, use the
For double-width GB2312 characters corre
s
ponding to ASCII, use the
input method `chinese-qj'."
)
(
"chinese-ecdict"
"$(05CKH(B"
...
...
@@ -191,7 +191,7 @@ For instance, to input $ADc(B, you type \"n i 3 3\", the first \"n i\" is
a
Pinyin,
the
next
\"3\"
specifies
tone,
and
the
last
\"3\"
selects
the
third
character
from
the
candidate
list.
For
double-width
GB2312
characters
correponding
to
ASCII,
use
the
For
double-width
GB2312
characters
corre
s
ponding
to
ASCII,
use
the
input
method
`
chinese-qj
'.
")
("
chinese-zozy
" "
$
(
0I\0D
(
B
"
...
...
lisp/org/org-protocol.el
View file @
bbd240ce
...
...
@@ -546,8 +546,8 @@ as filename."
(
when
(
string-match
proto
fname
)
(
let*
((
func
(
plist-get
(
cdr
prolist
)
:function
))
(
greedy
(
plist-get
(
cdr
prolist
)
:greedy
))
(
split
ted
(
split-string
fname
proto
))
(
result
(
if
greedy
restoffiles
(
cadr
split
ted
))))
(
split
(
split-string
fname
proto
))
(
result
(
if
greedy
restoffiles
(
cadr
split
))))
(
when
(
plist-get
(
cdr
prolist
)
:kill-client
)
(
message
"Greedy org-protocol handler. Killing client."
)
(
server-edit
))
...
...
lisp/printing.el
View file @
bbd240ce
...
...
@@ -4710,12 +4710,12 @@ Interactively, you have the following situations:
M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value and printing will
immediatel
l
y be done using the current active printer.
immediately be done using the current active printer.
C-u M-x pr-ps-fast-fire RET
C-u 0 M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value and also for a current
PostScript printer, then printing will immediatel
l
y be done using the new
PostScript printer, then printing will immediately be done using the new
current active printer.
C-u 1 M-x pr-ps-fast-fire RET
...
...
@@ -4736,7 +4736,7 @@ zero and the argument SELECT is treated as follows:
If it's nil, send the image to the printer.
If it's a list or an integer lesser or equal to zero, the command prompts
the user for a current PostScript printer, then printing will immediatel
l
y
the user for a current PostScript printer, then printing will immediately
be done using the new current active printer.
If it's an integer equal to 1, the command prompts the user for a file name
...
...
@@ -4749,7 +4749,7 @@ zero and the argument SELECT is treated as follows:
instead of sending it to the printer.
If it's a symbol which it's defined in `pr-ps-printer-alist', it's the new
active printer and printing will immediatel
l
y be done using the new active
active printer and printing will immediately be done using the new active
printer.
Otherwise, send the image to the printer.
...
...
@@ -4800,7 +4800,7 @@ Noninteractively, the argument SELECT-PRINTER is treated as follows:
If it's nil, the printing is sent to the current active text printer.
If it's a symbol which it's defined in `pr-txt-printer-alist', it's the new
active printer and printing will immediatel
l
y be done using the new active
active printer and printing will immediately be done using the new active
printer.
If it's non-nil, the command prompts the user for a new active text printer.
...
...
lisp/progmodes/cperl-mode.el
View file @
bbd240ce
...
...
@@ -958,7 +958,7 @@ B) Speed of editing operations.
`cperl-array-face' Array names
`cperl-hash-face' Hash names
`font-lock-comment-face' Comments, PODs and whatever is considered
synta
x
ically to be not code
synta
ct
ically to be not code
`font-lock-constant-face' HERE-doc delimiters, labels, delimiters of
2-arg operators s/y/tr/ or of RExen,
`font-lock-warning-face' Special-cased m// and s//foo/,
...
...
@@ -970,7 +970,7 @@ B) Speed of editing operations.
`cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen
`font-lock-string-face' Strings, qw() constructs, RExen, POD sections,
literal parts and the terminator of formats
and whatever is synta
x
ically considered
and whatever is synta
ct
ically considered
as string literals
`font-lock-type-face' Overridable keywords
`font-lock-variable-name-face' Variable declarations, indirect array and
...
...
@@ -1537,8 +1537,8 @@ default.) You can always quote (with \\[quoted-insert]) the left
since most the time you mean \"less\". CPerl mode tries to guess
whether you want to type pair <>, and inserts is if it
appropriate. You can set `cperl-electric-parens-string' to the string that
contains the paren
th
s from the above list you want to be electrical.
Electricity of paren
th
s is controlled by `cperl-electric-parens'.
contains the parens from the above list you want to be electrical.
Electricity of parens is controlled by `cperl-electric-parens'.
You may also set `cperl-electric-parens-mark' to have electric parens
look for active mark and \"embrace\" a region if possible.'
...
...
@@ -3517,7 +3517,7 @@ Works before syntax recognition is done."
(defvar font-lock-warning-face)
(defun cperl-find-sub-attrs (&optional st-l b-fname e-fname pos)
"Synta
x
ically mark (and fontify) attributes of a subroutine.
"Synta
ct
ically mark (and fontify) attributes of a subroutine.
Should be called with the point before leading colon of an attribute."
;; Works *before* syntax recognition is done
(or st-l (setq st-l (list nil))) ; Avoid overwriting '()
...
...
@@ -4994,7 +4994,7 @@ conditional/loop constructs."
(setq top (point))
;; Plan A: if line has an unfinished paren-group, go to end-of-group
(while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
(setq top (point))) ; Get the outermost paren
th
s in line
(setq top (point))) ; Get the outermost parens in line
(goto-char top)
(while (< (point) tmp-end)
(parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
...
...
@@ -5906,7 +5906,7 @@ indentation and initial hashes. Behaves usually outside of comment."
3 font-lock-variable-name-face)))
'("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
4 font-lock-variable-name-face)
;; Avoid $!, and s!!, qq!! etc. when not fontifying synta
x
ically
;; Avoid $!, and s!!, qq!! etc. when not fontifying synta
ct
ically
'("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
'("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
(setq
...
...
lisp/progmodes/gdb-mi.el
View file @
bbd240ce
...
...
@@ -3865,7 +3865,7 @@ overlay arrow in source buffer."
If
BUF
is
already
displayed
in
some
window,
show
it,
deiconifying
the
frame
if
necessary.
Otherwise,
find
least
recently
used
window
and
show
BUF
there,
if
the
window
is
not
used
for
GDB
already,
in
which
case
that
window
is
split
ted
first.
"
already,
in
which
case
that
window
is
split
first.
"
(let ((answer (get-buffer-window buf (or frame 0))))
(if answer
(display-buffer buf nil (or frame 0)) ;Deiconify frame if necessary.
...
...
lisp/progmodes/idlwave.el
View file @
bbd240ce
...
...
@@ -2464,7 +2464,7 @@ If prefix ARG < 0 then move forward to enclosing block end."
(defun idlwave-down-block (&optional arg)
"Go down a block.
With ARG: ARG >= 0 go forwards, ARG < 0 go backwards.
Returns non-nil if successful
l
."
Returns non-nil if successful."
(interactive "p")
(let (status)
(if (< arg 0)
...
...
src/ChangeLog.11
View file @
bbd240ce
...
...
@@ -30657,7 +30657,7 @@
(display_buffer): Do not set split_height_threshold to twice the
value of window_min_height to avoid changing the value of a
customizable variable. Rather explicitly check whether the
height of the window that shall be split
ted
is at least as large
height of the window that shall be split is at least as large
as split_height_threshold.
(Fwindow_full_width_p): New defun.
(syms_of_window): Defsubr it.
src/ChangeLog.8
View file @
bbd240ce
...
...
@@ -11485,7 +11485,7 @@
Substitute homedir by `~' also in default_filename.
* xdisp.c (try_window_id): Fix computation of tab_offset when
backing up over a character that is split
ted
across lines.
backing up over a character that is split across lines.
1999-05-08 Kenichi HANDA <handa@etl.go.jp>
...
...
src/charset.c
View file @
bbd240ce
...
...
@@ -1660,7 +1660,7 @@ maybe_unify_char (int c, Lisp_Object val)
}
/* Return a character correponding to the code-point CODE of
/* Return a character corre
s
ponding to the code-point CODE of
CHARSET. */
int
...
...
src/charset.h
View file @
bbd240ce
...
...
@@ -238,7 +238,7 @@ struct charset
int
unified_p
;
};
/* Hash table of charset symbols vs. the correponding attribute
/* Hash table of charset symbols vs. the corre
s
ponding attribute
vectors. */
extern
Lisp_Object
Vcharset_hash_table
;
...
...
@@ -389,7 +389,7 @@ extern Lisp_Object Vchar_charset_set;
#endif
/* Return a character correponding to the code-point CODE of CHARSET.
/* Return a character corre
s
ponding to the code-point CODE of CHARSET.
Try some optimization before calling decode_char. */
#define DECODE_CHAR(charset, code) \
...
...
src/font.h
View file @
bbd240ce
...
...
@@ -621,7 +621,7 @@ struct font_driver
/* Optional.
Get coordinates of the INDEXth anchor point of the glyph whose
code is CODE. Store the coordinates in *X and *Y. Return 0 if
the operations was successful
l
. Otherwise return -1. */
the operations was successful. Otherwise return -1. */
int
(
*
anchor_point
)
(
struct
font
*
font
,
unsigned
code
,
int
index
,
int
*
x
,
int
*
y
);
...
...
src/w16select.c
View file @
bbd240ce
...
...
@@ -114,7 +114,7 @@ identify_winoldap_version (void)
return
regs
.
x
.
ax
;
}
/* Open the clipboard, return non-zero if successful
l
. */
/* Open the clipboard, return non-zero if successful. */
unsigned
open_clipboard
(
void
)
{
...
...
@@ -137,7 +137,7 @@ open_clipboard (void)
return
regs
.
x
.
ax
;
}
/* Empty clipboard, return non-zero if successful
l
. */
/* Empty clipboard, return non-zero if successful. */
unsigned
empty_clipboard
(
void
)
{
...
...
@@ -207,7 +207,7 @@ free_xfer_buf (void)
}
}
/* Copy data into the clipboard, return zero if successful
l
. */
/* Copy data into the clipboard, return zero if successful. */
unsigned
set_clipboard_data
(
unsigned
Format
,
void
*
Data
,
unsigned
Size
,
int
Raw
)
{
...
...
@@ -405,7 +405,7 @@ get_clipboard_data (unsigned Format, void *Data, unsigned Size, int Raw)
return
(
unsigned
)
(
dp
-
(
unsigned
char
*
)
Data
-
1
);
}
/* Close clipboard, return non-zero if successful
l
. */
/* Close clipboard, return non-zero if successful. */
unsigned
close_clipboard
(
void
)
{
...
...
@@ -730,4 +730,3 @@ After the communication, this variable is set to nil. */);
}
#endif
/* MSDOS */
src/w32font.c
View file @
bbd240ce
...
...
@@ -786,7 +786,7 @@ w32font_free_outline (struct font *font, void *outline);
Optional.
Get coordinates of the INDEXth anchor point of the glyph whose
code is CODE. Store the coordinates in *X and *Y. Return 0 if
the operations was successful
l
. Otherwise return -1.
the operations was successful. Otherwise return -1.
static int
w32font_anchor_point (struct font *font, unsigned code,
int index, int *x, int *y);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment