aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorMiles Bader2006-02-14 05:54:12 +0000
committerMiles Bader2006-02-14 05:54:12 +0000
commit8ca0206d9420c56dc970535f35e71a28d601b205 (patch)
treec759b5c3d10281861bd3c3772b38bebd625c2419 /src
parent0b125475295ac24db12b28e67d349a0ec0020bd3 (diff)
parentdd60bebe07d9fc5a6954d306269553d09e715de2 (diff)
downloademacs-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/.gdbinit11
-rw-r--r--src/ChangeLog23
-rw-r--r--src/cmds.c3
-rw-r--r--src/doc.c2
-rw-r--r--src/keyboard.c33
-rw-r--r--src/xterm.c3
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
548define xwindow 548define 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
552end 561end
553document xwindow 562document xwindow
554Print $ as a window pointer, assuming it is an Emacs Lisp window value. 563Print $ 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 @@
12006-02-13 Richard M. Stallman <rms@gnu.org>
2
3 * .gdbinit (xwindow): Update the code to show the window box.
4
52006-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
92006-02-12 Richard M. Stallman <rms@gnu.org>
10
11 * cmds.c (internal_self_insert): Handle weird auto-fill-function.
12
132006-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
202006-02-11 Juanma Barranquero <lekktu@gmail.com>
21
22 * doc.c (Fsubstitute_command_keys): Doc fix.
23
12006-02-10 Thien-Thi Nguyen <ttn@gnu.org> 242006-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;
diff --git a/src/doc.c b/src/doc.c
index 19c03a7a71d..a69c3cf4382 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -739,7 +739,7 @@ Substrings of the form \\=\\[COMMAND] replaced by either: a keystroke
739sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not 739sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not
740on any keys. 740on any keys.
741Substrings of the form \\=\\{MAPVAR} are replaced by summaries 741Substrings 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.
743Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR 743Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR
744as the keymap for future \\=\\[COMMAND] substrings. 744as 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
650static EMACS_TIME timer_last_idleness_start_time; 650static 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. */
655Lisp_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. */);
11469The value of that variable is passed to `quit-flag' and later causes a 11486The value of that variable is passed to `quit-flag' and later causes a
11470peculiar kind of quitting. */); 11487peculiar 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
11494Help functions bind this to allow help on disabled menu items
11495and tool-bar buttons. */);
11496 Venable_disabled_menus_and_buttons = Qnil;
11472} 11497}
11473 11498
11474void 11499void
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;