Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f6b1b0a8
Commit
f6b1b0a8
authored
Nov 12, 2011
by
Paul Eggert
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Spelling fixes.
parent
1c889bf6
Changes
30
Hide whitespace changes
Inline
Side-by-side
Showing
30 changed files
with
39 additions
and
40 deletions
+39
-40
admin/charsets/cp51932.awk
admin/charsets/cp51932.awk
+1
-1
admin/notes/bzr
admin/notes/bzr
+1
-1
doc/lispref/files.texi
doc/lispref/files.texi
+1
-1
lib-src/etags.c
lib-src/etags.c
+1
-1
lisp/cedet/semantic/format.el
lisp/cedet/semantic/format.el
+1
-1
lisp/cedet/semantic/html.el
lisp/cedet/semantic/html.el
+1
-1
lisp/cedet/semantic/texi.el
lisp/cedet/semantic/texi.el
+1
-1
lisp/cedet/srecode/mode.el
lisp/cedet/srecode/mode.el
+1
-1
lisp/emacs-lisp/eieio-opt.el
lisp/emacs-lisp/eieio-opt.el
+1
-1
lisp/emacs-lisp/eieio.el
lisp/emacs-lisp/eieio.el
+1
-1
lisp/emulation/viper-cmd.el
lisp/emulation/viper-cmd.el
+1
-1
lisp/erc/erc-backend.el
lisp/erc/erc-backend.el
+1
-2
lisp/eshell/esh-var.el
lisp/eshell/esh-var.el
+1
-1
lisp/gnus/gnus-sum.el
lisp/gnus/gnus-sum.el
+1
-1
lisp/htmlfontify.el
lisp/htmlfontify.el
+2
-2
lisp/international/quail.el
lisp/international/quail.el
+6
-6
lisp/international/robin.el
lisp/international/robin.el
+1
-1
lisp/mh-e/mh-e.el
lisp/mh-e/mh-e.el
+1
-1
lisp/net/dbus.el
lisp/net/dbus.el
+1
-1
lisp/net/soap-client.el
lisp/net/soap-client.el
+1
-1
lisp/net/webjump.el
lisp/net/webjump.el
+1
-1
lisp/progmodes/cc-fonts.el
lisp/progmodes/cc-fonts.el
+1
-1
lisp/progmodes/ebnf2ps.el
lisp/progmodes/ebnf2ps.el
+1
-1
lisp/progmodes/modula2.el
lisp/progmodes/modula2.el
+1
-1
lisp/progmodes/ps-mode.el
lisp/progmodes/ps-mode.el
+1
-1
lisp/term.el
lisp/term.el
+1
-1
lisp/textmodes/conf-mode.el
lisp/textmodes/conf-mode.el
+1
-1
lisp/textmodes/ispell.el
lisp/textmodes/ispell.el
+1
-1
lisp/textmodes/sgml-mode.el
lisp/textmodes/sgml-mode.el
+1
-1
src/ChangeLog.7
src/ChangeLog.7
+4
-4
No files found.
admin/charsets/cp51932.awk
View file @
f6b1b0a8
...
...
@@ -20,7 +20,7 @@
# Commentary:
# Gener
e
ate a translation table for CP51932 (EUC-JP of MicroSoft Version).
# Generate a translation table for CP51932 (EUC-JP of MicroSoft Version).
# It maps invalid JISX0208 code points used by CP51932 to Unicode.
# 4th field of the input has these meanings:
# 0: JISX0208 characters.
...
...
admin/notes/bzr
View file @
f6b1b0a8
...
...
@@ -173,7 +173,7 @@ This restores file, but without its history (`bzr log file' will be
very short). This is because file gets re-added with a new file-id
(use `bzr file-id file' to see the id).
Instead
ing
of adding the file, try:
Instead of adding the file, try:
bzr revert -rN file; bzr commit
...
...
doc/lispref/files.texi
View file @
f6b1b0a8
...
...
@@ -2827,7 +2827,7 @@ If @code{file-remote-p} returns the same identifier for two different
filenames
,
that
means
they
are
stored
on
the
same
file
system
and
can
be
accessed
locally
with
respect
to
each
other
.
This
means
,
for
example
,
that
it
is
possible
to
start
a
remote
process
accessing
both
files
at
the
same
time
.
Implement
o
rs
of
file
handlers
need
to
ensure
files
at
the
same
time
.
Implement
e
rs
of
file
handlers
need
to
ensure
this
principle
is
valid
.
@
var
{
identification
}
specifies
which
part
of
the
identifier
shall
be
...
...
lib-src/etags.c
View file @
f6b1b0a8
...
...
@@ -6097,7 +6097,7 @@ readline (linebuffer *lbp, FILE *stream)
lineno
+=
1
;
/* increment global line number */
charno
+=
result
;
/* increment global char number */
/* Hono
u
r #line directives. */
/* Honor #line directives. */
if
(
!
no_line_directive
)
{
static
bool
discard_until_line_directive
;
...
...
lisp/cedet/semantic/format.el
View file @
f6b1b0a8
...
...
@@ -291,7 +291,7 @@ local definitions."
;; Try and find a trail of parents from PARENT
(
let
((
rlist
(
list
parent
))
)
;; IMPLE
LE
MENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;; IMPLEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(
reverse
rlist
)))
(
define-overloadable-function
semantic-format-tag-canonical-name
(
tag
&optional
parent
color
)
...
...
lisp/cedet/semantic/html.el
View file @
f6b1b0a8
...
...
@@ -61,7 +61,7 @@
(
define-mode-local-override
semantic-parse-region
html-mode
(
&rest
ignore
)
"Parse the current html buffer for semantic tags.
I
N
GNORE any arguments. Always parse the whole buffer.
IGNORE any arguments. Always parse the whole buffer.
Each tag returned is of the form:
(\"NAME\" section (:members CHILDREN))
or
...
...
lisp/cedet/semantic/texi.el
View file @
f6b1b0a8
...
...
@@ -421,7 +421,7 @@ Optional argument POINT is where to look for the environment."
texinfo-mode (context)
"
List
smart
completions
at
point.
Since
texinfo
is
not
a
programming
language
the
default
version
is
not
useful.
Insted,
look
at
the
current
symbol.
If
it
is
a
command
useful.
Inste
a
d,
look
at
the
current
symbol.
If
it
is
a
command
do
primitive
texinfo
built
ins.
If
not,
use
ispell
to
lookup
words
that
start
with
that
symbol.
"
(let ((prefix (car (oref context :prefix)))
...
...
lisp/cedet/srecode/mode.el
View file @
f6b1b0a8
...
...
@@ -366,7 +366,7 @@ programming modes."
(
define-key
srecode-prefix-map
oldkey
nil
)
)))
;; Update Keybings
;; Update Keybin
din
gs
(
let
((
oldbinding
(
lookup-key
srecode-prefix-map
binding
)))
;; During development, allow overrides.
...
...
lisp/emacs-lisp/eieio-opt.el
View file @
f6b1b0a8
...
...
@@ -92,7 +92,7 @@ Optional HEADERFCN should be called to insert a few bits of info first."
(
princ
"Class "
)
(
prin1
class
)
(
terpri
)
;; Inherit
e
nce tree information
;; Inherit
a
nce tree information
(
let
((
pl
(
class-parents
class
)))
(
when
pl
(
princ
" Inherits from "
)
...
...
lisp/emacs-lisp/eieio.el
View file @
f6b1b0a8
;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects
;;; or maybe Eric's Implementation of Emacs Int
r
epreted Objects
;;; or maybe Eric's Implementation of Emacs Inte
r
preted Objects
;; Copyright (C) 1995-1996, 1998-2011 Free Software Foundation, Inc.
...
...
lisp/emulation/viper-cmd.el
View file @
f6b1b0a8
...
...
@@ -1599,7 +1599,7 @@ as a Meta key and any number of multiple escapes are allowed."
;; call viper-execute-com to execute viper-exec-change, which eventually will
;; call viper-change to invoke the replace mode on the region.
;;
;; The var viper-d-com is set to (M-COM VAL COM REG INSETED-TEXT COMMAND-KEYS)
;; The var viper-d-com is set to (M-COM VAL COM REG INSE
R
TED-TEXT COMMAND-KEYS)
;; via a call to viper-set-destructive-command, for later use by viper-repeat.
(
defun
viper-execute-com
(
m-com
val
com
)
(
let
((
reg
viper-use-register
))
...
...
lisp/erc/erc-backend.el
View file @
f6b1b0a8
...
...
@@ -79,7 +79,7 @@
;;; TODO:
;; o Generali
s
e the display-line code so that we can use it to
;; o Generali
z
e the display-line code so that we can use it to
;; display the stuff we send, as well as the stuff we receive.
;; Then, move all display-related code into another backend-like
;; file, erc-display.el, say.
...
...
@@ -2000,4 +2000,3 @@ See `erc-display-error-notice'." nil
;; Local Variables:
;; indent-tabs-mode: nil
;; End:
lisp/eshell/esh-var.el
View file @
f6b1b0a8
...
...
@@ -344,7 +344,7 @@ This function is explicit for adding to `eshell-parse-argument-hook'."
(
pcomplete-here
))))
(
defun
eshell/env
(
&rest
args
)
"Implemention of `env' in Lisp."
"Implement
at
ion of `env' in Lisp."
(
eshell-init-print-buffer
)
(
eshell-eval-using-options
"env"
args
...
...
lisp/gnus/gnus-sum.el
View file @
f6b1b0a8
...
...
@@ -4727,7 +4727,7 @@ If LINE, insert the rebuilt thread starting on line LINE."
(car headers))))
(defun gnus-parent-headers (in-headers &optional generation)
"Return the headers of the GENERATION
e
th parent of HEADERS."
"Return the headers of the GENERATIONth parent of HEADERS."
(unless generation
(setq generation 1))
(let ((parent t)
...
...
lisp/htmlfontify.el
View file @
f6b1b0a8
...
...
@@ -432,8 +432,8 @@ and so on."
(
const
:tag
"Lucid Toolkit"
lucid
)
(
const
:tag
"Motif Toolkit"
motif
)))
(
class
(
choice
(
const
:tag
"Colo
u
r"
color
)
(
const
:tag
"Gr
e
yscale"
grayscale
)))
(
class
(
choice
(
const
:tag
"Color"
color
)
(
const
:tag
"Gr
a
yscale"
grayscale
)))
(
background
(
choice
(
const
:tag
"Dark"
dark
)
(
const
:tag
"Bright"
light
)))
))
...
...
lisp/international/quail.el
View file @
f6b1b0a8
...
...
@@ -43,7 +43,7 @@
;; CONVERSION-KEYS argument of the Quail package.
;; [There was an input method for Mule 2.3 called `Tamago' from the
;; Japanese `TAkusan MAtasete GOmenasai', or `Sorry for having you
;; Japanese `TAkusan MAtasete GOmen
-n
asai', or `Sorry for having you
;; wait so long'; this couldn't be included in Emacs 20. `Tamago' is
;; Japanese for `egg' (implicitly a hen's egg). Handa-san made a
;; smaller and simpler system; the smaller quail egg is also eaten in
...
...
@@ -1377,7 +1377,7 @@ Return the input string."
(set-buffer-modified-p modified-p)
(quail-show-guidance)
(let* ((prompt (if input-method-use-echo-area
(format "%s%s %s"
(format "%s%s %s"
(or input-method-previous-message "")
quail-current-str
quail-guidance-str)))
...
...
@@ -1443,7 +1443,7 @@ Return the input string."
(quail-setup-overlays nil)))
(quail-show-guidance)
(let* ((prompt (if input-method-use-echo-area
(format "%s%s%s %s"
(format "%s%s%s %s"
(or input-method-previous-message "")
quail-conversion-str
quail-current-str
...
...
@@ -2125,7 +2125,7 @@ minibuffer and the selected frame has no other windows)."
(- quail-guidance-translations-starting-column
7 (string-width str))
32))))
(setq str (format "%s(%02d/%s)"
(setq str (format "%s(%02d/%s)"
str (nth 3 indices)
(if (nth 4 indices)
(format "%02d" (nth 4 indices))
...
...
@@ -2135,7 +2135,7 @@ minibuffer and the selected frame has no other windows)."
(trans (aref (cdr quail-current-translations) idx)))
(or (stringp trans)
(setq trans (string trans)))
(setq str (format "%s %d.%s"
(setq str (format "%s %d.%s"
str
(if (= (- idx start) 9) 0
(1+ (- idx start)))
...
...
@@ -2787,7 +2787,7 @@ If CHAR is an ASCII character and can be input by typing itself, return t."
(cdr decode-map)))
(let ((key-head (aref decode-map char)))
(if (stringp key-head)
(setq key-list (quail-find-key1
(setq key-list (quail-find-key1
(quail-lookup-key key-head nil t)
key-head char nil))
(mapc #'(lambda (elt)
...
...
lisp/international/robin.el
View file @
f6b1b0a8
...
...
@@ -229,7 +229,7 @@
;; As stated in Murphy's law, it took longer than expected to develop the
;; very first version of Japanese input subsystem in NEmacs (Nihongo
;; Emacs). So the subsystem was named "TAMAGO", which is an acronym of
;; "TAkusan Matasete GOmennasai" (Sorry to have kept you waiting so
;; "TAkusan Matasete GOmen
-
nasai" (Sorry to have kept you waiting so
;; long). "Tamago" as a Japanese word means "egg", so the word "egg" was
;; also used for related filenames and function names.
...
...
lisp/mh-e/mh-e.el
View file @
f6b1b0a8
...
...
@@ -2447,7 +2447,7 @@ of citations entirely, choose \"None\"."
"Followup-To:"
; RFC 1036
"For-Approval:"
; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Comment:"
; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Hand
d
ling:"
; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Handling:"
; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Forwarded:"
; MH
"From "
; sendmail
"Generate-Delivery-Report:"
; RFC 2156
...
...
lisp/net/dbus.el
View file @
f6b1b0a8
...
...
@@ -145,7 +145,7 @@ association to the service from D-Bus."
(
service
(
car
value
))
(
entry
(
gethash
key
dbus-registered-objects-table
))
ret
)
;; key has the structure (BUS INTER
R
FACE MEMBER).
;; key has the structure (BUS INTERFACE MEMBER).
;; value has the structure (SERVICE PATH [HANDLER]).
;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...).
;; MEMBER is either a string (the handler), or a cons cell (a
...
...
lisp/net/soap-client.el
View file @
f6b1b0a8
...
...
@@ -32,7 +32,7 @@
;; `soap-invoke' method passing it the WSDL, the service name, the operation
;; you wish to invoke and any required parameters.
;;
;; Idealy, the service you want to access will have some documentation about
;; Ideal
l
y, the service you want to access will have some documentation about
;; the operations it supports. If it does not, you can try using
;; `soap-inspect' to browse the WSDL document and see the available operations
;; and their parameters.
...
...
lisp/net/webjump.el
View file @
f6b1b0a8
...
...
@@ -235,7 +235,7 @@
"www.faqs.org/faqs/"
)
(
"RTFM Usenet FAQs by Group"
.
"ftp://rtfm.mit.edu/pub/usenet-by-group/"
)
(
"RTFM Usenet FAQs by Hierachy"
.
(
"RTFM Usenet FAQs by Hiera
r
chy"
.
"ftp://rtfm.mit.edu/pub/usenet-by-hierarchy/"
)
(
"X Consortium Archive"
.
"ftp.x.org"
)
...
...
lisp/progmodes/cc-fonts.el
View file @
f6b1b0a8
...
...
@@ -317,7 +317,7 @@
(
match-beginning
,
(
car
highlight
))
(
match-end
,
(
car
highlight
))
,
(
elt
highlight
1
))))
;; highlight is an "ANCHORED HIGHLIGHER" of the form
;; highlight is an "ANCHORED HIGHLIGH
T
ER" of the form
;; (ANCHORED-MATCHER PRE-FORM POST-FORM SUBEXP-HIGHLIGHTERS...)
(
when
(
nth
3
highlight
)
(
error
"Match highlights currently not supported in %s"
...
...
lisp/progmodes/ebnf2ps.el
View file @
f6b1b0a8
...
...
@@ -4007,7 +4007,7 @@ See documentation for `ebnf-terminal-shape', `ebnf-non-terminal-shape' and
/#ebnf2ps#dict 230 dict def
#ebnf2ps#dict begin
% Initili
a
ze variables to avoid name-conflicting with document variables.
% Initi
a
lize variables to avoid name-conflicting with document variables.
% This is the case when using `bind' operator.
/-fillp- 0 def /h 0 def
/-ox- 0 def /half 0 def
...
...
lisp/progmodes/modula2.el
View file @
f6b1b0a8
...
...
@@ -466,7 +466,7 @@ followed by the first character of the construct.
'
(
m2-var
)
\n
_
\n
\n
'
(
m2-begin
)
'
(
m2-begin-comment
)
" Module "
str
" Initiali
s
ation Code "
" Module "
str
" Initiali
z
ation Code "
'
(
m2-end-comment
)
\n
\n
"END "
str
"."
>
\n
)
...
...
lisp/progmodes/ps-mode.el
View file @
f6b1b0a8
...
...
@@ -624,7 +624,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
(
defun
ps-mode-target-column
()
"To what column should text on current line be indented?
Identation is increased if the last token on the current line
I
n
dentation is increased if the last token on the current line
defines the beginning of a group. These tokens are: { [ <<"
(
save-excursion
(
beginning-of-line
)
...
...
lisp/term.el
View file @
f6b1b0a8
...
...
@@ -4249,7 +4249,7 @@ special identifiers such as COM1."
"History of serial ports used by `serial-read-name'."
)
(
defvar
serial-speed-history
;; Initiali
s
ed with reasonable values for newbies.
;; Initiali
z
ed with reasonable values for newbies.
(
list
"9600"
;; Given twice because 9600 b/s is the most common speed
"1200"
"2400"
"4800"
"9600"
"14400"
"19200"
"28800"
"38400"
"57600"
"115200"
)
...
...
lisp/textmodes/conf-mode.el
View file @
f6b1b0a8
...
...
@@ -417,7 +417,7 @@ See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
(
run-mode-hooks
'conf-mode-hook
)))
(
defun
conf-mode-initialize
(
comment
&optional
font-lock
)
"In
t
itializations for sub-modes of conf-mode.
"Initializations for sub-modes of conf-mode.
COMMENT initializes `comment-start' and `comment-start-skip'.
The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS."
(
set
(
make-local-variable
'comment-start
)
comment
)
...
...
lisp/textmodes/ispell.el
View file @
f6b1b0a8
...
...
@@ -2783,7 +2783,7 @@ By just answering RET you can find out what the current dictionary is."
(
mapcar
'list
(
ispell-valid-dictionary-list
)))
nil
t
)
current-prefix-arg
))
(
ispell-set-spellchecker-params
)
; Initilize variables and dicts alists
(
ispell-set-spellchecker-params
)
; Initi
a
lize variables and dicts alists
(
unless
arg
(
ispell-buffer-local-dict
'no-reload
))
(
if
(
equal
dict
"default"
)
(
setq
dict
nil
))
;; This relies on completing-read's bug of returning "" for no match
...
...
lisp/textmodes/sgml-mode.el
View file @
f6b1b0a8
...
...
@@ -1897,7 +1897,7 @@ This takes effect when first loading the library.")
(
"input"
.
"Form input field"
)
(
"ins"
.
"Inserted text"
)
(
"isindex"
.
"Input field for index search"
)
(
"kbd"
.
"Keybard example face"
)
(
"kbd"
.
"Keyb
o
ard example face"
)
(
"lang"
.
"Natural language"
)
(
"li"
.
"List item"
)
(
"link"
.
"Link relationship"
)
...
...
src/ChangeLog.7
View file @
f6b1b0a8
...
...
@@ -592,7 +592,7 @@
* coding.h (Qemacs_mule): Extern it.
* process.c (init_process): Initilize Vdefault_process_coding_system.
* process.c (init_process): Initi
a
lize Vdefault_process_coding_system.
1998-06-26 Kenichi Handa <handa@etl.go.jp>
...
...
@@ -972,7 +972,7 @@
1998-06-01 Ken'ichi Handa <handa@melange.gnu.org>
* coding.c (detect_coding_mask): Initilize local variable C.
* coding.c (detect_coding_mask): Initi
a
lize local variable C.
1998-06-01 Richard Stallman <rms@gnu.org>
...
...
@@ -6317,7 +6317,7 @@
(ENCODE_ISO_CHARACTER_DIMENSION2): Likewise.
(safe_terminal_coding): New variable.
(Fset_safe_terminal_coding_system_internal): New function.
(init_coding_once): Initilize safe_terminal_coding.
(init_coding_once): Initi
a
lize safe_terminal_coding.
(syms_of_coding): Declare set-safe-terminal-coding-system as a
Lisp function.
...
...
@@ -7399,7 +7399,7 @@
1997-06-18 Kenichi Handa <handa@etl.go.jp>
* coding.c (detect_coding_iso2022): Initilize mask correctly.
* coding.c (detect_coding_iso2022): Initi
a
lize mask correctly.
* fns.c (concat): Pay attention to multibyte characters when
TARGET_TYPE is Lisp_String.
...
...
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