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
e3ac1281
Commit
e3ac1281
authored
Jul 02, 2012
by
Paul Eggert
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Spelling fixes.
parent
3b3e4cac
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
22 additions
and
17 deletions
+22
-17
etc/NEWS
etc/NEWS
+2
-2
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/emacs-lisp/byte-opt.el
lisp/emacs-lisp/byte-opt.el
+1
-1
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/bytecomp.el
+3
-3
lisp/loadup.el
lisp/loadup.el
+3
-3
lisp/net/ange-ftp.el
lisp/net/ange-ftp.el
+4
-4
lisp/org/ChangeLog
lisp/org/ChangeLog
+1
-1
src/dosfns.c
src/dosfns.c
+1
-2
src/msdos.c
src/msdos.c
+1
-1
No files found.
etc/NEWS
View file @
e3ac1281
...
...
@@ -164,8 +164,8 @@ character when doing minibuffer filename prompts.
The variables `term-default-fg-color' and `term-default-bg-color' are
now deprecated in favor of the `term-face' face, that you can
customize. Also, it is now possible to cutomize how are displayed the
ANSI terminal colors and styles by cutomizing the corresponding
customize. Also, it is now possible to cu
s
tomize how are displayed the
ANSI terminal colors and styles by cu
s
tomizing the corresponding
`term-color-<COLOR>',
`term-color-underline' and `term-color-bold'
faces.
...
...
lisp/ChangeLog
View file @
e3ac1281
2012-07-02 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes.
* emacs-lisp/bytecomp.el (byte-compile--reify-function):
Rename from byte-compile--refiy-function. All uses changed.
2012-07-01 Chong Yidong <cyd@gnu.org>
* xml.el (xml--parse-buffer): New function. Move most of
...
...
lisp/emacs-lisp/byte-opt.el
View file @
e3ac1281
...
...
@@ -284,7 +284,7 @@
;; been preprocessed!
`
(
function
,
fn
)
(
byte-compile-preprocess
(
byte-compile--re
f
iy-function
fn
)))))
(
byte-compile--rei
f
y-function
fn
)))))
(
if
(
eq
(
car-safe
newfn
)
'function
)
(
byte-compile-unfold-lambda
`
(
,
(
cadr
newfn
)
,@
(
cdr
form
)))
(
byte-compile-log-warning
...
...
lisp/emacs-lisp/bytecomp.el
View file @
e3ac1281
...
...
@@ -2367,7 +2367,7 @@ not to take responsibility for the actual compilation of the code."
;;(byte-compile-set-symbol-position name)
(
byte-compile-warn
"probable `\"' without `\\' in doc string of %s"
name
))
(
if
(
not
(
listp
body
))
;; The precise definition requires evaluation to find out, so it
;; will only be known at runtime.
...
...
@@ -2451,7 +2451,7 @@ If QUOTED is non-nil, print with quoting; otherwise, print without quoting."
(
-
(
position-bytes
(
point
))
(
point-min
)
-1
)
(
goto-char
(
point-max
))))))
(
defun
byte-compile--re
f
iy-function
(
fun
)
(
defun
byte-compile--rei
f
y-function
(
fun
)
"Return an expression which will evaluate to a function value FUN.
FUN should be either a `lambda' value or a `closure' value."
(
pcase-let*
(((
or
(
and
`
(
lambda
,
args
.
,
body
)
(
let
env
nil
))
...
...
@@ -2488,7 +2488,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(
when
(
symbolp
form
)
(
unless
(
memq
(
car-safe
fun
)
'
(
closure
lambda
))
(
error
"Don't know how to compile %S"
fun
))
(
setq
fun
(
byte-compile--re
f
iy-function
fun
))
(
setq
fun
(
byte-compile--rei
f
y-function
fun
))
(
setq
lexical-binding
(
eq
(
car
fun
)
'closure
)))
(
unless
(
eq
(
car-safe
fun
)
'lambda
)
(
error
"Don't know how to compile %S"
fun
))
...
...
lisp/loadup.el
View file @
e3ac1281
...
...
@@ -256,12 +256,12 @@
(
load
"site-load"
t
)
;; ¡¡¡ Big Ugly Hack !!!
;; src/boostrap-emacs is mostly used to compile .el files, so it needs
;; src/boo
t
strap-emacs is mostly used to compile .el files, so it needs
;; macroexp, bytecomp, cconv, and byte-opt to be fast. Generally this is done
;; by compiling those files first, but this only makes a difference if those
;; files are not preloaded. As it so happens, macroexp.el tends to be
;; accidentally preloaded in src/boostrap-emacs because cl.el and cl-macs.el
;; require it. So lets unload it here, if needed, to make sure the
;; accidentally preloaded in src/boo
t
strap-emacs because cl.el and cl-macs.el
;; require it. So let
'
s unload it here, if needed, to make sure the
;; byte-compiled version is used.
(
if
(
or
(
not
(
fboundp
'macroexpand-all
))
(
byte-code-function-p
(
symbol-function
'macroexpand-all
)))
...
...
lisp/net/ange-ftp.el
View file @
e3ac1281
...
...
@@ -1201,7 +1201,7 @@ only return the directory part of FILE."
(
defun
ange-ftp-get-passwd
(
host
user
)
"Return the password for specified HOST and USER, asking user if necessary."
;; If `non-essential' is non-nil, don't ask for a password. It will
;; be ca
tched
in Tramp.
;; be ca
ught
in Tramp.
(
when
non-essential
(
throw
'non-essential
'non-essential
))
...
...
@@ -1781,7 +1781,7 @@ good, skip, fatal, or unknown."
(
defun
ange-ftp-gwp-start
(
host
user
name
args
)
"Login to the gateway machine and fire up an FTP process."
;; If `non-essential' is non-nil, don't reopen a new connection. It
;; will be ca
tched
in Tramp.
;; will be ca
ught
in Tramp.
(
when
non-essential
(
throw
'non-essential
'non-essential
))
(
let
(
;; It would be nice to make process-connection-type nil,
...
...
@@ -1916,7 +1916,7 @@ been queued with no result. CONT will still be called, however."
If HOST is only FTP-able through a gateway machine then spawn a shell
on the gateway machine to do the FTP instead."
;; If `non-essential' is non-nil, don't reopen a new connection. It
;; will be ca
tched
in Tramp.
;; will be ca
ught
in Tramp.
(
when
non-essential
(
throw
'non-essential
'non-essential
))
(
let*
((
use-gateway
(
ange-ftp-use-gateway-p
host
))
...
...
@@ -2138,7 +2138,7 @@ Create a new process if needed."
(
if
(
and
proc
(
memq
(
process-status
proc
)
'
(
run
open
)))
proc
;; If `non-essential' is non-nil, don't reopen a new connection. It
;; will be ca
tched
in Tramp.
;; will be ca
ught
in Tramp.
(
when
non-essential
(
throw
'non-essential
'non-essential
))
...
...
lisp/org/ChangeLog
View file @
e3ac1281
...
...
@@ -11671,7 +11671,7 @@
2010-11-11 Dan Davison <davison@stats.ox.ac.uk>
* org.el (org-src-fontify-natively): Set to nil by default.
Supply cutomize interface.
Supply cu
s
tomize interface.
2010-11-11 Bastien Guerry <bzg@gnu.org>
...
...
src/dosfns.c
View file @
e3ac1281
...
...
@@ -23,7 +23,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
/* The entire file is within this conditional */
#include <stdio.h>
/* getti
n
e and settime in dos.h clash with their namesakes from
/* getti
m
e and settime in dos.h clash with their namesakes from
gnulib, so we move out of our way the prototypes in dos.h. */
#define gettime dos_h_gettime_
#define settime dos_h_settime_
...
...
@@ -770,4 +770,3 @@ If zero, the decimal point key returns the country code specific value. */);
dos_decimal_point
=
0
;
}
#endif
/* MSDOS */
src/msdos.c
View file @
e3ac1281
...
...
@@ -31,7 +31,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
#include <time.h>
#include <sys/param.h>
#include <sys/time.h>
/* getti
n
e and settime in dos.h clash with their namesakes from
/* getti
m
e and settime in dos.h clash with their namesakes from
gnulib, so we move out of our way the prototypes in dos.h. */
#define gettime dos_h_gettime_
#define settime dos_h_settime_
...
...
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