diff options
| author | Kenichi Handa | 2010-09-29 09:55:58 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2010-09-29 09:55:58 +0900 |
| commit | 9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79 (patch) | |
| tree | e4efb3b3174cb991030691a6ff61a2ee53555f07 | |
| parent | 18acb5ad4fcf3b8b00aacaca14cb5e0b24a854c4 (diff) | |
| parent | dec834684640a6495b39bf11e500d326b4ff193b (diff) | |
| download | emacs-9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79.tar.gz emacs-9fb7a510c91c6aad04d2d6ba8e8c0889d19e1d79.zip | |
merge emacs-23
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/Makefile.in | 4 | ||||
| -rw-r--r-- | lisp/dired.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 8 | ||||
| -rw-r--r-- | src/ChangeLog | 14 | ||||
| -rw-r--r-- | src/dbusbind.c | 4 | ||||
| -rw-r--r-- | src/keyboard.c | 12 |
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 @@ | |||
| 1 | 2010-09-27 Drew Adams <drew.adams@oracle.com> | ||
| 2 | |||
| 3 | * dired.el (dired-save-positions): Doc fix. (Bug#7119) | ||
| 4 | |||
| 5 | 2010-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 | |||
| 1 | 2010-09-27 Kenichi Handa <handa@m17n.org> | 12 | 2010-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." | |||
| 1177 | The positions have the form (BUFFER-POSITION WINDOW-POSITIONS). | 1177 | The positions have the form (BUFFER-POSITION WINDOW-POSITIONS). |
| 1178 | 1178 | ||
| 1179 | BUFFER-POSITION is the point position in the current dired buffer. | 1179 | BUFFER-POSITION is the point position in the current dired buffer. |
| 1180 | The buffer position have the form (BUFFER DIRED-FILENAME BUFFER-POINT). | 1180 | It has the form (BUFFER DIRED-FILENAME BUFFER-POINT). |
| 1181 | 1181 | ||
| 1182 | WINDOW-POSITIONS are current positions in all windows displaying | 1182 | WINDOW-POSITIONS are current positions in all windows displaying |
| 1183 | this dired buffer. The window positions have the form (WINDOW | 1183 | this 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 | ||
| 6 | 2010-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 | |||
| 15 | 2010-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 | |||
| 6 | 2010-09-26 Jan Djärv <jan.h.d@swipnet.se> | 20 | 2010-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 | |||
| 7051 | gobble_input (expected) | 7056 | gobble_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 | { |