aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2010-09-29 09:55:58 +0900
committerKenichi Handa2010-09-29 09:55:58 +0900
commit9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79 (patch)
treee4efb3b3174cb991030691a6ff61a2ee53555f07
parent18acb5ad4fcf3b8b00aacaca14cb5e0b24a854c4 (diff)
parentdec834684640a6495b39bf11e500d326b4ff193b (diff)
downloademacs-9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79.tar.gz
emacs-9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79.zip
merge emacs-23
-rw-r--r--lisp/ChangeLog11
-rw-r--r--lisp/Makefile.in4
-rw-r--r--lisp/dired.el2
-rw-r--r--lisp/emacs-lisp/byte-opt.el8
-rw-r--r--src/ChangeLog14
-rw-r--r--src/dbusbind.c4
-rw-r--r--src/keyboard.c12
7 files changed, 45 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0bbc1648dec..87520c2721b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
12010-09-27 Drew Adams <drew.adams@oracle.com>
2
3 * dired.el (dired-save-positions): Doc fix. (Bug#7119)
4
52010-09-27 Andreas Schwab <schwab@linux-m68k.org>
6
7 * Makefile.in (ELCFILES): Update.
8
9 * emacs-lisp/byte-opt.el (byte-optimize-form-code-walker): Avoid
10 infinite recursion on erroneous lambda form. (Bug#7114)
11
12010-09-27 Kenichi Handa <handa@m17n.org> 122010-09-27 Kenichi Handa <handa@m17n.org>
2 13
3 * tar-mode.el (tar-header-block-tokenize): Decode filenames in 14 * tar-mode.el (tar-header-block-tokenize): Decode filenames in
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index f9dc1710cc3..eaefbd7e734 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -311,11 +311,15 @@ ELCFILES = \
311 $(lisp)/cedet/cedet.elc \ 311 $(lisp)/cedet/cedet.elc \
312 $(lisp)/cedet/data-debug.elc \ 312 $(lisp)/cedet/data-debug.elc \
313 $(lisp)/cedet/ede.elc \ 313 $(lisp)/cedet/ede.elc \
314 $(lisp)/cedet/ede/auto.elc \
314 $(lisp)/cedet/ede/autoconf-edit.elc \ 315 $(lisp)/cedet/ede/autoconf-edit.elc \
316 $(lisp)/cedet/ede/base.elc \
315 $(lisp)/cedet/ede/cpp-root.elc \ 317 $(lisp)/cedet/ede/cpp-root.elc \
318 $(lisp)/cedet/ede/custom.elc \
316 $(lisp)/cedet/ede/dired.elc \ 319 $(lisp)/cedet/ede/dired.elc \
317 $(lisp)/cedet/ede/emacs.elc \ 320 $(lisp)/cedet/ede/emacs.elc \
318 $(lisp)/cedet/ede/files.elc \ 321 $(lisp)/cedet/ede/files.elc \
322 $(lisp)/cedet/ede/generic.elc \
319 $(lisp)/cedet/ede/linux.elc \ 323 $(lisp)/cedet/ede/linux.elc \
320 $(lisp)/cedet/ede/locate.elc \ 324 $(lisp)/cedet/ede/locate.elc \
321 $(lisp)/cedet/ede/make.elc \ 325 $(lisp)/cedet/ede/make.elc \
diff --git a/lisp/dired.el b/lisp/dired.el
index 4a23865dfca..bb0cc223281 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1177,7 +1177,7 @@ Preserves old cursor, marks/flags, hidden-p."
1177The positions have the form (BUFFER-POSITION WINDOW-POSITIONS). 1177The positions have the form (BUFFER-POSITION WINDOW-POSITIONS).
1178 1178
1179BUFFER-POSITION is the point position in the current dired buffer. 1179BUFFER-POSITION is the point position in the current dired buffer.
1180The buffer position have the form (BUFFER DIRED-FILENAME BUFFER-POINT). 1180It has the form (BUFFER DIRED-FILENAME BUFFER-POINT).
1181 1181
1182WINDOW-POSITIONS are current positions in all windows displaying 1182WINDOW-POSITIONS are current positions in all windows displaying
1183this dired buffer. The window positions have the form (WINDOW 1183this dired buffer. The window positions have the form (WINDOW
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index e461010a6ce..4950511ebe2 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -381,9 +381,11 @@
381 form)) 381 form))
382 ((or (byte-code-function-p fn) 382 ((or (byte-code-function-p fn)
383 (eq 'lambda (car-safe fn))) 383 (eq 'lambda (car-safe fn)))
384 (byte-optimize-form-code-walker 384 (let ((newform (byte-compile-unfold-lambda form)))
385 (byte-compile-unfold-lambda form) 385 (if (eq newform form)
386 for-effect)) 386 ;; Some error occured, avoid infinite recursion
387 form
388 (byte-optimize-form-code-walker newform for-effect))))
387 ((memq fn '(let let*)) 389 ((memq fn '(let let*))
388 ;; recursively enter the optimizer for the bindings and body 390 ;; recursively enter the optimizer for the bindings and body
389 ;; of a let or let*. This for depth-firstness: forms that 391 ;; of a let or let*. This for depth-firstness: forms that
diff --git a/src/ChangeLog b/src/ChangeLog
index 55636cc9f40..b756aebe8a5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,20 @@
3 * xfont.c (xfont_open): Fix setting of font->average_width from 3 * xfont.c (xfont_open): Fix setting of font->average_width from
4 :avgwidth property (Bug#7123). 4 :avgwidth property (Bug#7123).
5 5
62010-09-28 Michael Albinus <michael.albinus@gmx.de>
7
8 * dbusbind.c (syms_of_dbusbind): Use putenv instead of setenv, it
9 is more portable.
10
11 * keyboard.c (gobble_input): Move call of xd_read_queued_messages ...
12 (kbd_buffer_get_event): ... here. This is needed for cygwin, which
13 has not defined SIGIO.
14
152010-09-27 Michael Albinus <michael.albinus@gmx.de>
16
17 * dbusbind.c (syms_of_dbusbind): Set $DBUS_FATAL_WARNINGS to "0".
18 (Bug#7113)
19
62010-09-26 Jan Djärv <jan.h.d@swipnet.se> 202010-09-26 Jan Djärv <jan.h.d@swipnet.se>
7 21
8 * xgselect.c (xg_select): Clear file descriptors not set from 22 * xgselect.c (xg_select): Clear file descriptors not set from
diff --git a/src/dbusbind.c b/src/dbusbind.c
index f710741b591..f3a573d3bce 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -2130,8 +2130,12 @@ message arrives. */);
2130 doc: /* If non-nil, debug messages of D-Bus bindings are raised. */); 2130 doc: /* If non-nil, debug messages of D-Bus bindings are raised. */);
2131#ifdef DBUS_DEBUG 2131#ifdef DBUS_DEBUG
2132 Vdbus_debug = Qt; 2132 Vdbus_debug = Qt;
2133 /* We can also set environment DBUS_VERBOSE=1 in order to see more
2134 traces. */
2133#else 2135#else
2134 Vdbus_debug = Qnil; 2136 Vdbus_debug = Qnil;
2137 /* We do not want to abort. */
2138 putenv ("DBUS_FATAL_WARNINGS=0");
2135#endif 2139#endif
2136 2140
2137 Fprovide (intern_c_string ("dbusbind"), Qnil); 2141 Fprovide (intern_c_string ("dbusbind"), Qnil);
diff --git a/src/keyboard.c b/src/keyboard.c
index 056e379a44a..22c58985a56 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4106,6 +4106,11 @@ kbd_buffer_get_event (kbp, used_mouse_menu, end_time)
4106 /* One way or another, wait until input is available; then, if 4106 /* One way or another, wait until input is available; then, if
4107 interrupt handlers have not read it, read it now. */ 4107 interrupt handlers have not read it, read it now. */
4108 4108
4109#ifdef HAVE_DBUS
4110 /* Read D-Bus messages. */
4111 xd_read_queued_messages ();
4112#endif /* HAVE_DBUS */
4113
4109/* Note SIGIO has been undef'd if FIONREAD is missing. */ 4114/* Note SIGIO has been undef'd if FIONREAD is missing. */
4110#ifdef SIGIO 4115#ifdef SIGIO
4111 gobble_input (0); 4116 gobble_input (0);
@@ -4757,7 +4762,7 @@ timer_check (do_it_now)
4757{ 4762{
4758 EMACS_TIME nexttime; 4763 EMACS_TIME nexttime;
4759 4764
4760 do 4765 do
4761 { 4766 {
4762 nexttime = timer_check_2 (); 4767 nexttime = timer_check_2 ();
4763 } 4768 }
@@ -7051,11 +7056,6 @@ void
7051gobble_input (expected) 7056gobble_input (expected)
7052 int expected; 7057 int expected;
7053{ 7058{
7054#ifdef HAVE_DBUS
7055 /* Read D-Bus messages. */
7056 xd_read_queued_messages ();
7057#endif /* HAVE_DBUS */
7058
7059#ifdef SIGIO 7059#ifdef SIGIO
7060 if (interrupt_input) 7060 if (interrupt_input)
7061 { 7061 {