diff options
| author | Miles Bader | 2006-02-14 05:54:12 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-02-14 05:54:12 +0000 |
| commit | 8ca0206d9420c56dc970535f35e71a28d601b205 (patch) | |
| tree | c759b5c3d10281861bd3c3772b38bebd625c2419 /src | |
| parent | 0b125475295ac24db12b28e67d349a0ec0020bd3 (diff) | |
| parent | dd60bebe07d9fc5a6954d306269553d09e715de2 (diff) | |
| download | emacs-8ca0206d9420c56dc970535f35e71a28d601b205.tar.gz emacs-8ca0206d9420c56dc970535f35e71a28d601b205.zip | |
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-15
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 66-84)
- Update from CVS
- rcirc: Add flexible response formatting; Add nick abbrevs
- Merge from gnus--rel--5.10
- Update from CVS: man/dired.texi (Tumme): More tumme documentation.
- Merge from erc--emacs--0
- Make ERC comply with the new copyright year guidelines.
- (rcirc-format-response-string): Fix small bugs
- Fix compiler error in erc-dcc.el.
* gnus--rel--5.10 (patch 29)
- Add sendmail.el and smptmail.el from Emacs tree to contrib/
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 11 | ||||
| -rw-r--r-- | src/ChangeLog | 23 | ||||
| -rw-r--r-- | src/cmds.c | 3 | ||||
| -rw-r--r-- | src/doc.c | 2 | ||||
| -rw-r--r-- | src/keyboard.c | 33 | ||||
| -rw-r--r-- | src/xterm.c | 3 |
6 files changed, 68 insertions, 7 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 3f5565aee40..408e2ab8b9b 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -548,7 +548,16 @@ end | |||
| 548 | define xwindow | 548 | define xwindow |
| 549 | xgetptr $ | 549 | xgetptr $ |
| 550 | print (struct window *) $ptr | 550 | print (struct window *) $ptr |
| 551 | printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top | 551 | set $window = (struct window *) $ptr |
| 552 | xgetint $window->total_cols | ||
| 553 | set $width=$int | ||
| 554 | xgetint $window->total_lines | ||
| 555 | set $height=$int | ||
| 556 | xgetint $window->left_col | ||
| 557 | set $left=$int | ||
| 558 | xgetint $window->top_line | ||
| 559 | set $top=$int | ||
| 560 | printf "%dx%d+%d+%d\n", $width, $height, $left, $top | ||
| 552 | end | 561 | end |
| 553 | document xwindow | 562 | document xwindow |
| 554 | Print $ as a window pointer, assuming it is an Emacs Lisp window value. | 563 | Print $ as a window pointer, assuming it is an Emacs Lisp window value. |
diff --git a/src/ChangeLog b/src/ChangeLog index 0f1dded77c7..12b0ff5b505 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,26 @@ | |||
| 1 | 2006-02-13 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * .gdbinit (xwindow): Update the code to show the window box. | ||
| 4 | |||
| 5 | 2006-02-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | ||
| 6 | |||
| 7 | * xterm.c (note_mouse_movement): Check for NULL FRAME_X_OUTPUT (frame). | ||
| 8 | |||
| 9 | 2006-02-12 Richard M. Stallman <rms@gnu.org> | ||
| 10 | |||
| 11 | * cmds.c (internal_self_insert): Handle weird auto-fill-function. | ||
| 12 | |||
| 13 | 2006-02-11 Eli Zaretskii <eliz@gnu.org> | ||
| 14 | |||
| 15 | * keyboard.c (Venable_disabled_menus_and_buttons): New variable. | ||
| 16 | (syms_of_keyboard): DEVFAR_LISP and initialize it. | ||
| 17 | (parse_tool_bar_item, parse_menu_item): If that variable is | ||
| 18 | non-nil, don't disable menu items and tool-bar buttons. | ||
| 19 | |||
| 20 | 2006-02-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 21 | |||
| 22 | * doc.c (Fsubstitute_command_keys): Doc fix. | ||
| 23 | |||
| 1 | 2006-02-10 Thien-Thi Nguyen <ttn@gnu.org> | 24 | 2006-02-10 Thien-Thi Nguyen <ttn@gnu.org> |
| 2 | 25 | ||
| 3 | * data.c (Findirect_function): Rewrite docstring. | 26 | * data.c (Findirect_function): Rewrite docstring. |
diff --git a/src/cmds.c b/src/cmds.c index e035ef7fd68..72d35b8cefd 100644 --- a/src/cmds.c +++ b/src/cmds.c | |||
| @@ -536,7 +536,8 @@ internal_self_insert (c, noautofill) | |||
| 536 | justification, if any, know where the end is going to be. */ | 536 | justification, if any, know where the end is going to be. */ |
| 537 | SET_PT_BOTH (PT - 1, PT_BYTE - 1); | 537 | SET_PT_BOTH (PT - 1, PT_BYTE - 1); |
| 538 | tem = call0 (current_buffer->auto_fill_function); | 538 | tem = call0 (current_buffer->auto_fill_function); |
| 539 | if (c == '\n') | 539 | /* Test PT < ZV in case the auto-fill-function is strange. */ |
| 540 | if (c == '\n' && PT < ZV) | ||
| 540 | SET_PT_BOTH (PT + 1, PT_BYTE + 1); | 541 | SET_PT_BOTH (PT + 1, PT_BYTE + 1); |
| 541 | if (!NILP (tem)) | 542 | if (!NILP (tem)) |
| 542 | hairy = 2; | 543 | hairy = 2; |
| @@ -739,7 +739,7 @@ Substrings of the form \\=\\[COMMAND] replaced by either: a keystroke | |||
| 739 | sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not | 739 | sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not |
| 740 | on any keys. | 740 | on any keys. |
| 741 | Substrings of the form \\=\\{MAPVAR} are replaced by summaries | 741 | Substrings of the form \\=\\{MAPVAR} are replaced by summaries |
| 742 | \(made by describe-bindings) of the value of MAPVAR, taken as a keymap. | 742 | \(made by `describe-bindings') of the value of MAPVAR, taken as a keymap. |
| 743 | Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR | 743 | Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR |
| 744 | as the keymap for future \\=\\[COMMAND] substrings. | 744 | as the keymap for future \\=\\[COMMAND] substrings. |
| 745 | \\=\\= quotes the following character and is discarded; | 745 | \\=\\= quotes the following character and is discarded; |
diff --git a/src/keyboard.c b/src/keyboard.c index 2081db6ae9d..84532871be5 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -649,6 +649,11 @@ static EMACS_TIME timer_idleness_start_time; | |||
| 649 | 649 | ||
| 650 | static EMACS_TIME timer_last_idleness_start_time; | 650 | static EMACS_TIME timer_last_idleness_start_time; |
| 651 | 651 | ||
| 652 | /* If non-nil, events produced by disabled menu items and tool-bar | ||
| 653 | buttons are not ignored. Help functions bind this to allow help on | ||
| 654 | those items and buttons. */ | ||
| 655 | Lisp_Object Venable_disabled_menus_and_buttons; | ||
| 656 | |||
| 652 | 657 | ||
| 653 | /* Global variable declarations. */ | 658 | /* Global variable declarations. */ |
| 654 | 659 | ||
| @@ -7270,7 +7275,9 @@ parse_menu_item (item, notreal, inmenubar) | |||
| 7270 | if (SYMBOLP (item)) | 7275 | if (SYMBOLP (item)) |
| 7271 | { | 7276 | { |
| 7272 | tem = Fget (item, Qmenu_enable); | 7277 | tem = Fget (item, Qmenu_enable); |
| 7273 | if (!NILP (tem)) | 7278 | if (!NILP (Venable_disabled_menus_and_buttons)) |
| 7279 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt; | ||
| 7280 | else if (!NILP (tem)) | ||
| 7274 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem; | 7281 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem; |
| 7275 | } | 7282 | } |
| 7276 | } | 7283 | } |
| @@ -7299,7 +7306,12 @@ parse_menu_item (item, notreal, inmenubar) | |||
| 7299 | item = XCDR (item); | 7306 | item = XCDR (item); |
| 7300 | 7307 | ||
| 7301 | if (EQ (tem, QCenable)) | 7308 | if (EQ (tem, QCenable)) |
| 7302 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = XCAR (item); | 7309 | { |
| 7310 | if (!NILP (Venable_disabled_menus_and_buttons)) | ||
| 7311 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt; | ||
| 7312 | else | ||
| 7313 | AREF (item_properties, ITEM_PROPERTY_ENABLE) = XCAR (item); | ||
| 7314 | } | ||
| 7303 | else if (EQ (tem, QCvisible) && !notreal) | 7315 | else if (EQ (tem, QCvisible) && !notreal) |
| 7304 | { | 7316 | { |
| 7305 | /* If got a visible property and that evaluates to nil | 7317 | /* If got a visible property and that evaluates to nil |
| @@ -7819,8 +7831,13 @@ parse_tool_bar_item (key, item) | |||
| 7819 | value = XCAR (XCDR (item)); | 7831 | value = XCAR (XCDR (item)); |
| 7820 | 7832 | ||
| 7821 | if (EQ (key, QCenable)) | 7833 | if (EQ (key, QCenable)) |
| 7822 | /* `:enable FORM'. */ | 7834 | { |
| 7823 | PROP (TOOL_BAR_ITEM_ENABLED_P) = value; | 7835 | /* `:enable FORM'. */ |
| 7836 | if (!NILP (Venable_disabled_menus_and_buttons)) | ||
| 7837 | PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt; | ||
| 7838 | else | ||
| 7839 | PROP (TOOL_BAR_ITEM_ENABLED_P) = value; | ||
| 7840 | } | ||
| 7824 | else if (EQ (key, QCvisible)) | 7841 | else if (EQ (key, QCvisible)) |
| 7825 | { | 7842 | { |
| 7826 | /* `:visible FORM'. If got a visible property and that | 7843 | /* `:visible FORM'. If got a visible property and that |
| @@ -11469,6 +11486,14 @@ If the value is not a number, such messages don't time out. */); | |||
| 11469 | The value of that variable is passed to `quit-flag' and later causes a | 11486 | The value of that variable is passed to `quit-flag' and later causes a |
| 11470 | peculiar kind of quitting. */); | 11487 | peculiar kind of quitting. */); |
| 11471 | Vthrow_on_input = Qnil; | 11488 | Vthrow_on_input = Qnil; |
| 11489 | |||
| 11490 | DEFVAR_LISP ("enable-disabled-menus-and-buttons", | ||
| 11491 | &Venable_disabled_menus_and_buttons, | ||
| 11492 | doc: /* If non-nil, don't ignore events produced by disabled menu items and tool-bar. | ||
| 11493 | |||
| 11494 | Help functions bind this to allow help on disabled menu items | ||
| 11495 | and tool-bar buttons. */); | ||
| 11496 | Venable_disabled_menus_and_buttons = Qnil; | ||
| 11472 | } | 11497 | } |
| 11473 | 11498 | ||
| 11474 | void | 11499 | void |
diff --git a/src/xterm.c b/src/xterm.c index 2eb92e8a532..1d67ab51f01 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -3598,6 +3598,9 @@ note_mouse_movement (frame, event) | |||
| 3598 | last_mouse_motion_event = *event; | 3598 | last_mouse_motion_event = *event; |
| 3599 | XSETFRAME (last_mouse_motion_frame, frame); | 3599 | XSETFRAME (last_mouse_motion_frame, frame); |
| 3600 | 3600 | ||
| 3601 | if (!FRAME_X_OUTPUT (frame)) | ||
| 3602 | return 0; | ||
| 3603 | |||
| 3601 | if (event->window != FRAME_X_WINDOW (frame)) | 3604 | if (event->window != FRAME_X_WINDOW (frame)) |
| 3602 | { | 3605 | { |
| 3603 | frame->mouse_moved = 1; | 3606 | frame->mouse_moved = 1; |