Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
99d99081
Commit
99d99081
authored
Dec 18, 2011
by
Paul Eggert
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Spelling fixes.
parent
3771cb17
Changes
31
Show whitespace changes
Inline
Side-by-side
Showing
31 changed files
with
40 additions
and
41 deletions
+40
-41
admin/grammars/bovine-grammar.el
admin/grammars/bovine-grammar.el
+1
-1
admin/grammars/js.wy
admin/grammars/js.wy
+1
-1
doc/lispref/spellfile
doc/lispref/spellfile
+0
-1
doc/misc/idlwave.texi
doc/misc/idlwave.texi
+1
-1
etc/NEWS.19
etc/NEWS.19
+1
-1
leim/ChangeLog
leim/ChangeLog
+1
-1
leim/quail/hanja3.el
leim/quail/hanja3.el
+1
-1
lisp/ChangeLog.12
lisp/ChangeLog.12
+1
-1
lisp/allout.el
lisp/allout.el
+5
-5
lisp/cedet/data-debug.el
lisp/cedet/data-debug.el
+2
-2
lisp/cedet/semantic/analyze/debug.el
lisp/cedet/semantic/analyze/debug.el
+1
-1
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/bytecomp.el
+1
-1
lisp/font-lock.el
lisp/font-lock.el
+1
-1
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+1
-1
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+1
-1
lisp/gnus/gnus-msg.el
lisp/gnus/gnus-msg.el
+1
-1
lisp/gnus/gnus-spec.el
lisp/gnus/gnus-spec.el
+2
-2
lisp/gnus/gnus-win.el
lisp/gnus/gnus-win.el
+2
-2
lisp/gnus/message.el
lisp/gnus/message.el
+1
-1
lisp/mail/rmailmm.el
lisp/mail/rmailmm.el
+1
-1
lisp/progmodes/sql.el
lisp/progmodes/sql.el
+1
-1
lisp/progmodes/verilog-mode.el
lisp/progmodes/verilog-mode.el
+1
-1
lisp/reveal.el
lisp/reveal.el
+1
-1
lisp/simple.el
lisp/simple.el
+3
-3
lisp/textmodes/rst.el
lisp/textmodes/rst.el
+1
-1
lisp/textmodes/texnfo-upd.el
lisp/textmodes/texnfo-upd.el
+1
-1
lisp/vc/vc-hg.el
lisp/vc/vc-hg.el
+1
-1
src/ccl.c
src/ccl.c
+2
-2
src/w32term.c
src/w32term.c
+1
-1
src/xterm.c
src/xterm.c
+1
-1
test/indent/prolog.prolog
test/indent/prolog.prolog
+1
-1
No files found.
admin/grammars/bovine-grammar.el
View file @
99d99081
...
@@ -298,7 +298,7 @@ VALUE is a value, or range of values to match against. For
...
@@ -298,7 +298,7 @@ VALUE is a value, or range of values to match against. For
example, a SYMBOL might need to match \"foo\". Some TYPES will not
example, a SYMBOL might need to match \"foo\". Some TYPES will not
have matching criteria.
have matching criteria.
LAMBDA is a lambda expression which is evaled with the text of the
LAMBDA is a lambda expression which is eval
l
ed with the text of the
type when it is found. It is passed the list of all buffer text
type when it is found. It is passed the list of all buffer text
elements found since the last lambda expression. It should return a
elements found since the last lambda expression. It should return a
semantic element (see below.)
semantic element (see below.)
...
...
admin/grammars/js.wy
View file @
99d99081
...
@@ -66,7 +66,7 @@
...
@@ -66,7 +66,7 @@
;; Other Goals
;; Other Goals
%start FormalParameterList
%start FormalParameterList
;; with the terminals stuff, I used the javacript.y names,
;; with the terminals stuff, I used the java
s
cript.y names,
;; but the semantic/wisent/java-tags.wy types
;; but the semantic/wisent/java-tags.wy types
;; when possible
;; when possible
;; ------------------
;; ------------------
...
...
doc/lispref/spellfile
View file @
99d99081
...
@@ -337,7 +337,6 @@ fset
...
@@ -337,7 +337,6 @@ fset
fstab
fstab
ftp
ftp
fu
fu
funtions
garbles
garbles
gc
gc
gcpro
gcpro
...
...
doc/misc/idlwave.texi
View file @
99d99081
...
@@ -669,7 +669,7 @@ We have already used the routine info display in the first part of this
...
@@ -669,7 +669,7 @@ We have already used the routine info display in the first part of this
tutorial. This was the invoked using @kbd
{
C
-
c ?
}
, and displays
tutorial. This was the invoked using @kbd
{
C
-
c ?
}
, and displays
information about the IDL routine near the cursor position. Wouldn't it
information about the IDL routine near the cursor position. Wouldn't it
be nice to have the same kind of information available for your own
be nice to have the same kind of information available for your own
routines and for the huge amount of code in major libraries like JHUPL
routines and for the huge amount of code in major libraries like JHU
A
PL
or the IDL
-
Astro library? In many cases, you may already have this
or the IDL
-
Astro library? In many cases, you may already have this
information. Files named @file
{
.idlwave
_
catalog
}
in library directories
information. Files named @file
{
.idlwave
_
catalog
}
in library directories
contain scanned information on the routines in that directory; many
contain scanned information on the routines in that directory; many
...
...
etc/NEWS.19
View file @
99d99081
...
@@ -6114,7 +6114,7 @@ When you have edited both buffers as you wish, merge them with C-x 6
...
@@ -6114,7 +6114,7 @@ When you have edited both buffers as you wish, merge them with C-x 6
1. This copies the text from the right-hand buffer as a second column
1. This copies the text from the right-hand buffer as a second column
in the other buffer. To go back to two-column editing, use C-x 6 s.
in the other buffer. To go back to two-column editing, use C-x 6 s.
Use C-x 6 d to dis
as
sociate the two buffers, leaving each as it
Use C-x 6 d to dissociate the two buffers, leaving each as it
stands. (If the other buffer, the one that was not current when you
stands. (If the other buffer, the one that was not current when you
type C-x 6 d, is empty, C-x 6 d kills it.)
type C-x 6 d, is empty, C-x 6 d kills it.)
...
...
leim/ChangeLog
View file @
99d99081
...
@@ -1895,7 +1895,7 @@
...
@@ -1895,7 +1895,7 @@
*
Makefile
.
in
(${
TIT
}):
To
byte
-
compile
quail
packages
,
use
just
*
Makefile
.
in
(${
TIT
}):
To
byte
-
compile
quail
packages
,
use
just
built
quail
.
built
quail
.
1997
-
12
-
09
Koaunghi
Un
<
koa
n
ughi
.
un
@
zdv
.
uni
-
tuebingen
.
de
>
1997
-
12
-
09
Koaunghi
Un
<
koau
n
ghi
.
un
@
zdv
.
uni
-
tuebingen
.
de
>
*
quail
/
hanja3
.
el
:
New
file
.
*
quail
/
hanja3
.
el
:
New
file
.
...
...
leim/quail/hanja3.el
View file @
99d99081
...
@@ -2,7 +2,7 @@
...
@@ -2,7 +2,7 @@
;; Copyright (C) 1997, 1999, 2001-2011 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1999, 2001-2011 Free Software Foundation, Inc.
;; Author: Koaunghi Un <koa
n
ughi.un@zdv.uni-tuebingen.de>
;; Author: Koaunghi Un <koau
n
ghi.un@zdv.uni-tuebingen.de>
;; Keywords: mule, quail, multilingual, input method, Korean, Hanja
;; Keywords: mule, quail, multilingual, input method, Korean, Hanja
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
...
...
lisp/ChangeLog.12
View file @
99d99081
...
@@ -18459,7 +18459,7 @@
...
@@ -18459,7 +18459,7 @@
reveal-open-spots, so as to be more reliable. There were several
reveal-open-spots, so as to be more reliable. There were several
tricky corner cases where an open spot might be lost, or where
tricky corner cases where an open spot might be lost, or where
a closed spot might end up on the list of open spots.
a closed spot might end up on the list of open spots.
Only reveal text that's ellipsi
s
ed.
Only reveal text that's ellipsi
z
ed.
2005-11-07 Carsten Dominik <dominik@science.uva.nl>
2005-11-07 Carsten Dominik <dominik@science.uva.nl>
lisp/allout.el
View file @
99d99081
...
@@ -3334,7 +3334,7 @@ coordinating with allout activity.")
...
@@ -3334,7 +3334,7 @@ coordinating with allout activity.")
(
run-hooks
'allout-post-undo-hook
)
(
run-hooks
'allout-post-undo-hook
)
(
cond
((
and
(
=
buffer-saved-size
-1
)
(
cond
((
and
(
=
buffer-saved-size
-1
)
allout-auto-save-temporarily-disabled
)
allout-auto-save-temporarily-disabled
)
;; user possibly undid a decryption, d
e
inhibit auto-save:
;; user possibly undid a decryption, d
is
inhibit auto-save:
(
allout-maybe-resume-auto-save-info-after-encryption
))
(
allout-maybe-resume-auto-save-info-after-encryption
))
((
save-excursion
((
save-excursion
(
save-restriction
(
save-restriction
...
@@ -5871,7 +5871,7 @@ encryption.
...
@@ -5871,7 +5871,7 @@ encryption.
Further, encrypting with a KEYMODE-CUE universal argument greater
Further, encrypting with a KEYMODE-CUE universal argument greater
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
the specified recipients with the file, replacing those currently
the specified recipients with the file, replacing those currently
associated with it. This can be used to d
ea
ssociate any
associated with it. This can be used to d
i
ssociate any
recipients with the file, by selecting no recipients in the
recipients with the file, by selecting no recipients in the
dialog.
dialog.
...
@@ -5912,7 +5912,7 @@ encryption.
...
@@ -5912,7 +5912,7 @@ encryption.
Further, encrypting with a KEYMODE-CUE universal argument greater
Further, encrypting with a KEYMODE-CUE universal argument greater
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
the specified recipients with the file, replacing those currently
the specified recipients with the file, replacing those currently
associated with it. This can be used to d
ea
ssociate any
associated with it. This can be used to d
i
ssociate any
recipients with the file, by selecting no recipients in the
recipients with the file, by selecting no recipients in the
dialog.
dialog.
...
@@ -6045,7 +6045,7 @@ encryption.
...
@@ -6045,7 +6045,7 @@ encryption.
Further, encrypting with a KEYMODE-CUE universal argument greater
Further, encrypting with a KEYMODE-CUE universal argument greater
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
than 4 - eg, preceded by a doubled Ctrl-U - causes association of
the specified recipients with the file, replacing those currently
the specified recipients with the file, replacing those currently
associated with it. This can be used to d
ea
ssociate any
associated with it. This can be used to d
i
ssociate any
recipients with the file, by selecting no recipients in the
recipients with the file, by selecting no recipients in the
dialog.
dialog.
...
@@ -6661,7 +6661,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
...
@@ -6661,7 +6661,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
(
if
(
/=
arg
1
)
(
if
(
/=
arg
1
)
(
condition-case
nil
(
line-move
(
1-
arg
))
(
error
nil
)))
(
condition-case
nil
(
line-move
(
1-
arg
))
(
error
nil
)))
;; Move to beginning-of-line, ignoring fields and invisible
s
.
;; Move to beginning-of-line, ignoring fields and invisible
text
.
(
skip-chars-backward
"^\n"
)
(
skip-chars-backward
"^\n"
)
(
while
(
and
(
not
(
bobp
))
(
while
(
and
(
not
(
bobp
))
(
let
((
prop
(
let
((
prop
...
...
lisp/cedet/data-debug.el
View file @
99d99081
...
@@ -1060,11 +1060,11 @@ If the result is a list or vector, then use the data debugger to display it."
...
@@ -1060,11 +1060,11 @@ If the result is a list or vector, then use the data debugger to display it."
(
setq
values
(
cons
(
eval
expr
)
values
))
(
setq
values
(
cons
(
eval
expr
)
values
))
(
let
((
old-value
(
make-symbol
"t"
))
new-value
)
(
let
((
old-value
(
make-symbol
"t"
))
new-value
)
;; Bind debug-on-error to something unique so that we can
;; Bind debug-on-error to something unique so that we can
;; detect when evaled code changes it.
;; detect when eval
l
ed code changes it.
(
let
((
debug-on-error
old-value
))
(
let
((
debug-on-error
old-value
))
(
setq
values
(
cons
(
eval
expr
)
values
))
(
setq
values
(
cons
(
eval
expr
)
values
))
(
setq
new-value
debug-on-error
))
(
setq
new-value
debug-on-error
))
;; If evaled code has changed the value of debug-on-error,
;; If eval
l
ed code has changed the value of debug-on-error,
;; propagate that change to the global binding.
;; propagate that change to the global binding.
(
unless
(
eq
old-value
new-value
)
(
unless
(
eq
old-value
new-value
)
(
setq
debug-on-error
new-value
))))
(
setq
debug-on-error
new-value
))))
...
...
lisp/cedet/semantic/analyze/debug.el
View file @
99d99081
...
@@ -70,7 +70,7 @@
...
@@ -70,7 +70,7 @@
(
let
((
pentry
(
nth
idx
pf
))
(
let
((
pentry
(
nth
idx
pf
))
(
ptentry
(
nth
idx
pft
)))
(
ptentry
(
nth
idx
pft
)))
(
if
(
or
(
stringp
pentry
)
(
not
ptentry
))
(
if
(
or
(
stringp
pentry
)
(
not
ptentry
))
;; Found someting ok.
s
top
;; Found somet
h
ing ok.
S
top
.
(
setq
stop
t
)
(
setq
stop
t
)
(
setq
idx
(
1+
idx
)))))
(
setq
idx
(
1+
idx
)))))
;; We found the first non-tag entry. What is the situation?
;; We found the first non-tag entry. What is the situation?
...
...
lisp/emacs-lisp/bytecomp.el
View file @
99d99081
...
@@ -2637,7 +2637,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
...
@@ -2637,7 +2637,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(
setq
form
(
cdr
form
)))
(
setq
form
(
cdr
form
)))
(
setq
form
(
car
form
)))
(
setq
form
(
car
form
)))
(
if
(
and
(
eq
(
car-safe
form
)
'list
)
(
if
(
and
(
eq
(
car-safe
form
)
'list
)
;; The spec is evaled in callint.c in dynamic-scoping
;; The spec is eval
l
ed in callint.c in dynamic-scoping
;; mode, so just leaving the form unchanged would mean
;; mode, so just leaving the form unchanged would mean
;; it won't be eval'd in the right mode.
;; it won't be eval'd in the right mode.
(
not
lexical-binding
))
(
not
lexical-binding
))
...
...
lisp/font-lock.el
View file @
99d99081
...
@@ -294,7 +294,7 @@ If a number, only buffers greater than this size have fontification messages."
...
@@ -294,7 +294,7 @@ If a number, only buffers greater than this size have fontification messages."
;; and they give users another mechanism for changing face appearance.
;; and they give users another mechanism for changing face appearance.
;; We now allow a FACENAME in `font-lock-keywords' to be any expression that
;; We now allow a FACENAME in `font-lock-keywords' to be any expression that
;; returns a face. So the easiest thing is to continue using these variables,
;; returns a face. So the easiest thing is to continue using these variables,
;; rather than sometimes evaling FACENAME and sometimes not. sm.
;; rather than sometimes eval
l
ing FACENAME and sometimes not. sm.
;; Note that in new code, in the vast majority of cases there is no
;; Note that in new code, in the vast majority of cases there is no
;; need to create variables that specify face names. Simply using
;; need to create variables that specify face names. Simply using
...
...
lisp/gnus/ChangeLog
View file @
99d99081
...
@@ -21339,7 +21339,7 @@
...
@@ -21339,7 +21339,7 @@
(gnus-agent-cat-groups): Use eval-and-compile, not
(gnus-agent-cat-groups): Use eval-and-compile, not
eval-when-compile, to define gnus-agent-set-cat-groups as the setf
eval-when-compile, to define gnus-agent-set-cat-groups as the setf
method of gnus-agent-cat-groups even when the buffer has been
method of gnus-agent-cat-groups even when the buffer has been
evaled.
eval
l
ed.
(gnus-agent-save-active, gnus-agent-save-active-1): Merge to
(gnus-agent-save-active, gnus-agent-save-active-1): Merge to
delete gnus-agent-save-active-1.
delete gnus-agent-save-active-1.
(gnus-agent-save-groups): Delete. Identical to
(gnus-agent-save-groups): Delete. Identical to
...
...
lisp/gnus/gnus-art.el
View file @
99d99081
...
@@ -669,7 +669,7 @@ non-nil.
...
@@ -669,7 +669,7 @@ non-nil.
If the match is a string, it is used as a regexp match on the
If the match is a string, it is used as a regexp match on the
article. If the match is a symbol, that symbol will be funcalled
article. If the match is a symbol, that symbol will be funcalled
from the buffer of the article to be saved with the newsgroup as the
from the buffer of the article to be saved with the newsgroup as the
parameter. If it is a list, it will be evaled in the same buffer.
parameter. If it is a list, it will be eval
l
ed in the same buffer.
If this form or function returns a string, this string will be used as a
If this form or function returns a string, this string will be used as a
possible file name; and if it returns a non-nil list, that list will be
possible file name; and if it returns a non-nil list, that list will be
...
...
lisp/gnus/gnus-msg.el
View file @
99d99081
...
@@ -1784,7 +1784,7 @@ this is a reply."
...
@@ -1784,7 +1784,7 @@ this is a reply."
(and header
(and header
(string-match (nth 2 match) header)))))))
(string-match (nth 2 match) header)))))))
(t
(t
;; This is a form to be evaled.
;; This is a form to be eval
l
ed.
(eval match)))))
(eval match)))))
;; We have a match, so we set the variables.
;; We have a match, so we set the variables.
(dolist (attribute style)
(dolist (attribute style)
...
...
lisp/gnus/gnus-spec.el
View file @
99d99081
...
@@ -52,7 +52,7 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway."
...
@@ -52,7 +52,7 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway."
(
defvar
gnus-group-indentation
""
)
(
defvar
gnus-group-indentation
""
)
;; Format specs. The chunks below are the machine-generated forms
;; Format specs. The chunks below are the machine-generated forms
;; that are to be evaled as the result of the default format strings.
;; that are to be eval
l
ed as the result of the default format strings.
;; We write them in here to get them byte-compiled. That way the
;; We write them in here to get them byte-compiled. That way the
;; default actions will be quite fast, while still retaining the full
;; default actions will be quite fast, while still retaining the full
;; flexibility of the user-defined format specs.
;; flexibility of the user-defined format specs.
...
@@ -690,7 +690,7 @@ are supported for %s."
...
@@ -690,7 +690,7 @@ are supported for %s."
(
not
(
and
(
featurep
'xemacs
)
(
not
(
and
(
featurep
'xemacs
)
gnus-use-correct-string-widths
)))
gnus-use-correct-string-widths
)))
(
insert
(
number-to-string
pad-width
)))
(
insert
(
number-to-string
pad-width
)))
;; Create the form to be evaled.
;; Create the form to be eval
l
ed.
(
if
(
or
max-width
cut-width
ignore-value
(
if
(
or
max-width
cut-width
ignore-value
(
and
(
featurep
'xemacs
)
(
and
(
featurep
'xemacs
)
gnus-use-correct-string-widths
))
gnus-use-correct-string-widths
))
...
...
lisp/gnus/gnus-win.el
View file @
99d99081
...
@@ -242,7 +242,7 @@ See the Gnus manual for an explanation of the syntax used.")
...
@@ -242,7 +242,7 @@ See the Gnus manual for an explanation of the syntax used.")
(
let*
((
current-window
(
or
(
get-buffer-window
(
current-buffer
))
(
selected-window
)))
(
let*
((
current-window
(
or
(
get-buffer-window
(
current-buffer
))
(
selected-window
)))
(
window
(
or
window
current-window
)))
(
window
(
or
window
current-window
)))
(
select-window
window
)
(
select-window
window
)
;; The SPLIT might be something that is to be evaled to
;; The SPLIT might be something that is to be eval
l
ed to
;; return a new SPLIT.
;; return a new SPLIT.
(
while
(
and
(
not
(
assq
(
car
split
)
gnus-window-to-buffer
))
(
while
(
and
(
not
(
assq
(
car
split
)
gnus-window-to-buffer
))
(
symbolp
(
car
split
))
(
fboundp
(
car
split
)))
(
symbolp
(
car
split
))
(
fboundp
(
car
split
)))
...
@@ -447,7 +447,7 @@ should have point."
...
@@ -447,7 +447,7 @@ should have point."
(
when
(
consp
(
car
split
))
(
when
(
consp
(
car
split
))
(
push
1.0
split
)
(
push
1.0
split
)
(
push
'vertical
split
))
(
push
'vertical
split
))
;; The SPLIT might be something that is to be evaled to
;; The SPLIT might be something that is to be eval
l
ed to
;; return a new SPLIT.
;; return a new SPLIT.
(
while
(
and
(
not
(
assq
(
car
split
)
gnus-window-to-buffer
))
(
while
(
and
(
not
(
assq
(
car
split
)
gnus-window-to-buffer
))
(
symbolp
(
car
split
))
(
fboundp
(
car
split
)))
(
symbolp
(
car
split
))
(
fboundp
(
car
split
)))
...
...
lisp/gnus/message.el
View file @
99d99081
...
@@ -4409,7 +4409,7 @@ This function could be useful in `message-setup-hook'."
...
@@ -4409,7 +4409,7 @@ This function could be useful in `message-setup-hook'."
;; A simple function.
;; A simple function.
((functionp action)
((functionp action)
(funcall action))
(funcall action))
;; Something to be evaled.
;; Something to be eval
l
ed.
(t
(t
(eval action))))))
(eval action))))))
...
...
lisp/mail/rmailmm.el
View file @
99d99081
...
@@ -320,7 +320,7 @@ The value is a vector [INDEX HEADER TAGLINE BODY END], where
...
@@ -320,7 +320,7 @@ The value is a vector [INDEX HEADER TAGLINE BODY END], where
(
setq
index
2
))
(
setq
index
2
))
;; If the tagline is displayed, get past it to the body.
;; If the tagline is displayed, get past it to the body.
(
if
(
rmail-mime-display-tagline
current
)
(
if
(
rmail-mime-display-tagline
current
)
;; The next foward-line call must be in sync with how
;; The next fo
r
ward-line call must be in sync with how
;; `rmail-mime-insert-tagline' formats the tagline. The
;; `rmail-mime-insert-tagline' formats the tagline. The
;; body begins after the empty line that ends the tagline.
;; body begins after the empty line that ends the tagline.
(
forward-line
3
))
(
forward-line
3
))
...
...
lisp/progmodes/sql.el
View file @
99d99081
...
@@ -4224,7 +4224,7 @@ The default comes from `process-coding-system-alist' and
...
@@ -4224,7 +4224,7 @@ The default comes from `process-coding-system-alist' and
"^\\(.+\\) (hex ..)$"
"^\\(.+\\) (hex ..)$"
"SET \\1"
)
"SET \\1"
)
;; FE
D
DBACK ON for 99 or more rows
;; FE
E
DBACK ON for 99 or more rows
;; feedback OFF
;; feedback OFF
(
sql-redirect-value
(
sql-redirect-value
sqlbuf
sqlbuf
...
...
lisp/progmodes/verilog-mode.el
View file @
99d99081
...
@@ -10932,7 +10932,7 @@ Typing \\[verilog-auto] will make this into:
...
@@ -10932,7 +10932,7 @@ Typing \\[verilog-auto] will make this into:
(defun verilog-auto-logic ()
(defun verilog-auto-logic ()
"Expand AUTOLOGIC statements, as part of \\[verilog-auto].
"Expand AUTOLOGIC statements, as part of \\[verilog-auto].
Make wire statements using the SystemVerilog logic keyword.
Make wire statements using the SystemVerilog logic keyword.
This is currently equiv
e
lent to:
This is currently equiv
a
lent to:
/*AUTOWIRE*/
/*AUTOWIRE*/
...
...
lisp/reveal.el
View file @
99d99081
...
@@ -106,7 +106,7 @@ Each element has the form (WINDOW . OVERLAY).")
...
@@ -106,7 +106,7 @@ Each element has the form (WINDOW . OVERLAY).")
(
let
((
inv
(
overlay-get
ol
'invisible
))
open
)
(
let
((
inv
(
overlay-get
ol
'invisible
))
open
)
(
when
(
and
inv
(
when
(
and
inv
;; There's an `invisible' property. Make sure it's
;; There's an `invisible' property. Make sure it's
;; actually invisible, and ellipsi
s
ed.
;; actually invisible, and ellipsi
z
ed.
(
and
(
consp
buffer-invisibility-spec
)
(
and
(
consp
buffer-invisibility-spec
)
(
cdr
(
assq
inv
buffer-invisibility-spec
)))
(
cdr
(
assq
inv
buffer-invisibility-spec
)))
(
or
(
setq
open
(
or
(
setq
open
...
...
lisp/simple.el
View file @
99d99081
...
@@ -1225,11 +1225,11 @@ this command arranges for all errors to enter the debugger."
...
@@ -1225,11 +1225,11 @@ this command arranges for all errors to enter the debugger."
(
push
(
eval
eval-expression-arg
lexical-binding
)
values
)
(
push
(
eval
eval-expression-arg
lexical-binding
)
values
)
(
let
((
old-value
(
make-symbol
"t"
))
new-value
)
(
let
((
old-value
(
make-symbol
"t"
))
new-value
)
;; Bind debug-on-error to something unique so that we can
;; Bind debug-on-error to something unique so that we can
;; detect when evaled code changes it.
;; detect when eval
l
ed code changes it.
(
let
((
debug-on-error
old-value
))
(
let
((
debug-on-error
old-value
))
(
push
(
eval
eval-expression-arg
lexical-binding
)
values
)
(
push
(
eval
eval-expression-arg
lexical-binding
)
values
)
(
setq
new-value
debug-on-error
))
(
setq
new-value
debug-on-error
))
;; If evaled code has changed the value of debug-on-error,
;; If eval
l
ed code has changed the value of debug-on-error,
;; propagate that change to the global binding.
;; propagate that change to the global binding.
(
unless
(
eq
old-value
new-value
)
(
unless
(
eq
old-value
new-value
)
(
setq
debug-on-error
new-value
))))
(
setq
debug-on-error
new-value
))))
...
@@ -4729,7 +4729,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
...
@@ -4729,7 +4729,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
(let ((line-move-visual nil))
(let ((line-move-visual nil))
(line-move (1- arg) t)))
(line-move (1- arg) t)))
;; Move to beginning-of-line, ignoring fields and invisible
s
.
;; Move to beginning-of-line, ignoring fields and invisible
text
.
(skip-chars-backward "
^\n
")
(skip-chars-backward "
^\n
")
(while (and (not (bobp)) (invisible-p (1- (point))))
(while (and (not (bobp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point)))
(goto-char (previous-char-property-change (point)))
...
...
lisp/textmodes/rst.el
View file @
99d99081
...
@@ -243,7 +243,7 @@
...
@@ -243,7 +243,7 @@
(
define-key
map
[
(
control
?=
)
]
'rst-adjust
)
;; (Does not work on the Mac OSX.)
(
define-key
map
[
(
control
?=
)
]
'rst-adjust
)
;; (Does not work on the Mac OSX.)
;; Display the hierarchy of decorations implied by the current document contents.
;; Display the hierarchy of decorations implied by the current document contents.
(
define-key
map
[
(
control
c
)
(
control
h
)
]
'rst-display-decorations-hierarchy
)
(
define-key
map
[
(
control
c
)
(
control
h
)
]
'rst-display-decorations-hierarchy
)
;; Homogen
e
ize the decorations in the document.
;; Homogenize the decorations in the document.
(
define-key
map
[
(
control
c
)
(
control
s
)
]
'rst-straighten-decorations
)
(
define-key
map
[
(
control
c
)
(
control
s
)
]
'rst-straighten-decorations
)
;; (define-key map [(control c) (control s)] 'rst-straighten-deco-spacing)
;; (define-key map [(control c) (control s)] 'rst-straighten-deco-spacing)
...
...
lisp/textmodes/texnfo-upd.el
View file @
99d99081
...
@@ -1165,7 +1165,7 @@ error if the node is not the top node and a section is not found."
...
@@ -1165,7 +1165,7 @@ error if the node is not the top node and a section is not found."
"texinfo-specific-section-type: Chapter or section not found"
))))))
"texinfo-specific-section-type: Chapter or section not found"
))))))
(
defun
texinfo-hierarchic-level
()
(
defun
texinfo-hierarchic-level
()
"Return the general hierarchal level of the next node in a texinfo file.
"Return the general hierarch
ic
al level of the next node in a texinfo file.
Thus, a subheading or appendixsubsec is of type subsection."
Thus, a subheading or appendixsubsec is of type subsection."
(
let
((
case-fold-search
t
))
(
let
((
case-fold-search
t
))
(
cadr
(
assoc
(
cadr
(
assoc
...
...
lisp/vc/vc-hg.el
View file @
99d99081
...
@@ -216,7 +216,7 @@ highlighting the Log View buffer."
...
@@ -216,7 +216,7 @@ highlighting the Log View buffer."
((
eq
state
?R
)
'removed
)
((
eq
state
?R
)
'removed
)
((
eq
state
?!
)
'missing
)
((
eq
state
?!
)
'missing
)
((
eq
state
??
)
'unregistered
)
((
eq
state
??
)
'unregistered
)
((
eq
state
?C
)
'up-to-date
)
;; Older mercurials use this
((
eq
state
?C
)
'up-to-date
)
;; Older mercurial
version
s use this
.
(
t
'up-to-date
)))))))
(
t
'up-to-date
)))))))
(
defun
vc-hg-working-revision
(
file
)
(
defun
vc-hg-working-revision
(
file
)
...
...
src/ccl.c
View file @
99d99081
...
@@ -210,8 +210,8 @@ static Lisp_Object Vccl_program_table;
...
@@ -210,8 +210,8 @@ static Lisp_Object Vccl_program_table;
#define CCL_WriteArrayReadJump 0x0B
/* Write an array element, read, and jump:
#define CCL_WriteArrayReadJump 0x0B
/* Write an array element, read, and jump:
1:A--D--D--R--E--S--S-rrrXXXXX
1:A--D--D--R--E--S--S-rrrXXXXX
2:LENGTH
2:LENGTH
3:ELEMEN
E
T[0]
3:ELEMENT[0]
4:ELEMEN
E
T[1]
4:ELEMENT[1]
...
...
N:A--D--D--R--E--S--S-rrrYYYYY
N:A--D--D--R--E--S--S-rrrYYYYY
------------------------------
------------------------------
...
...
src/w32term.c
View file @
99d99081
...
@@ -3556,7 +3556,7 @@ x_scroll_bar_remove (struct scroll_bar *bar)
...
@@ -3556,7 +3556,7 @@ x_scroll_bar_remove (struct scroll_bar *bar)
/* Destroy the window. */
/* Destroy the window. */
my_destroy_window
(
f
,
SCROLL_BAR_W32_WINDOW
(
bar
));
my_destroy_window
(
f
,
SCROLL_BAR_W32_WINDOW
(
bar
));
/* Dis
as
sociate this scroll bar from its window. */
/* Dissociate this scroll bar from its window. */
XWINDOW
(
bar
->
window
)
->
vertical_scroll_bar
=
Qnil
;
XWINDOW
(
bar
->
window
)
->
vertical_scroll_bar
=
Qnil
;
UNBLOCK_INPUT
;
UNBLOCK_INPUT
;
...
...
src/xterm.c
View file @
99d99081
...
@@ -5151,7 +5151,7 @@ x_scroll_bar_remove (struct scroll_bar *bar)
...
@@ -5151,7 +5151,7 @@ x_scroll_bar_remove (struct scroll_bar *bar)
XDestroyWindow (FRAME_X_DISPLAY (f), bar->x_window);
XDestroyWindow (FRAME_X_DISPLAY (f), bar->x_window);
#endif
#endif
/* Dis
as
sociate this scroll bar from its window. */
/* Dissociate this scroll bar from its window. */
XWINDOW (bar->window)->vertical_scroll_bar = Qnil;
XWINDOW (bar->window)->vertical_scroll_bar = Qnil;
UNBLOCK_INPUT;
UNBLOCK_INPUT;
...
...
test/indent/prolog.prolog
View file @
99d99081
...
@@ -200,7 +200,7 @@ elaborate(fix(F,T,B,E), Env, Ee) :-
...
@@ -200,7 +200,7 @@ elaborate(fix(F,T,B,E), Env, Ee) :-
elaborate
(
let
(
F
,
T
,
app
(
fix
,
lambda
(
F
,
T
,
B
)),
E
),
Env
,
Ee
).
elaborate
(
let
(
F
,
T
,
app
(
fix
,
lambda
(
F
,
T
,
B
)),
E
),
Env
,
Ee
).
%% elab_bindings(+TS, +Env, -TS).
%% elab_bindings(+TS, +Env, -TS).
%% Applique `elaborate' sur l'environnment de type TS.
%% Applique `elaborate' sur l'environn
e
ment de type TS.
elab_tenv
([],
_
,
[]).
elab_tenv
([],
_
,
[]).
elab_tenv
([(
X
,
T
)|
TS
],
Env
,
[(
X
,
Tg
)|
TSe
])
:-
elab_tenv
([(
X
,
T
)|
TS
],
Env
,
[(
X
,
Tg
)|
TSe
])
:-
elaborate
(
T
,
Env
,
Te
),
elaborate
(
T
,
Env
,
Te
),
...
...
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