aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorMiles Bader2006-12-16 01:29:26 +0000
committerMiles Bader2006-12-16 01:29:26 +0000
commit4bc5d7668ef47295810f28a14d67b4a9e12a341f (patch)
tree2e22bd79984f0772c43e294babc07c1508ce95ce /src/keymap.c
parentb44bfd5e9bf3a0e853bc0d4788e4c89a01a70d6a (diff)
parentc3342e8eb3eaf4560210fd030383a940640648f2 (diff)
downloademacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.tar.gz
emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.zip
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 545-562) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - erc-iswitchb: Temporarily enable iswitchb mode * gnus--rel--5.10 (patch 172-176) - Merge from emacs--devo--0 - Update from CVS - Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c29
1 files changed, 15 insertions, 14 deletions
diff --git a/src/keymap.c b/src/keymap.c
index f67cc109e87..176b6760e36 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1280,7 +1280,8 @@ buffer position instead of point are used. */)
1280 1280
1281DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, 1281DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
1282 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. 1282 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition.
1283nil means undefined. See doc of `define-key' for kinds of definitions. 1283A value of nil means undefined. See doc of `define-key'
1284for kinds of definitions.
1284 1285
1285A number as value means KEY is "too long"; 1286A number as value means KEY is "too long";
1286that is, characters or symbols in it except for the last one 1287that is, characters or symbols in it except for the last one
@@ -1655,13 +1656,13 @@ specified buffer position instead of point are used.
1655 are read using the keymaps of the buffer clicked on, not 1656 are read using the keymaps of the buffer clicked on, not
1656 the current buffer. So we may have to switch the buffer 1657 the current buffer. So we may have to switch the buffer
1657 here. */ 1658 here. */
1658 1659
1659 if (CONSP (position)) 1660 if (CONSP (position))
1660 { 1661 {
1661 Lisp_Object window; 1662 Lisp_Object window;
1662 1663
1663 window = POSN_WINDOW (position); 1664 window = POSN_WINDOW (position);
1664 1665
1665 if (WINDOWP (window) 1666 if (WINDOWP (window)
1666 && BUFFERP (XWINDOW (window)->buffer) 1667 && BUFFERP (XWINDOW (window)->buffer)
1667 && XBUFFER (XWINDOW (window)->buffer) != current_buffer) 1668 && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
@@ -1673,13 +1674,13 @@ specified buffer position instead of point are used.
1673 would not be a problem here, but it is easier to keep 1674 would not be a problem here, but it is easier to keep
1674 things the same. 1675 things the same.
1675 */ 1676 */
1676 1677
1677 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); 1678 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
1678 1679
1679 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); 1680 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
1680 } 1681 }
1681 } 1682 }
1682 1683
1683 if (! NILP (current_kboard->Voverriding_terminal_local_map)) 1684 if (! NILP (current_kboard->Voverriding_terminal_local_map))
1684 { 1685 {
1685 value = Flookup_key (current_kboard->Voverriding_terminal_local_map, 1686 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
@@ -1702,8 +1703,8 @@ specified buffer position instead of point are used.
1702 : MARKERP (position) ? marker_position (position) 1703 : MARKERP (position) ? marker_position (position)
1703 : PT; 1704 : PT;
1704 1705
1705 local_map = get_local_map (pt, current_buffer, Qlocal_map); 1706 local_map = get_local_map (pt, current_buffer, Qlocal_map);
1706 keymap = get_local_map (pt, current_buffer, Qkeymap); 1707 keymap = get_local_map (pt, current_buffer, Qkeymap);
1707 1708
1708 if (CONSP (position)) 1709 if (CONSP (position))
1709 { 1710 {
@@ -1711,7 +1712,7 @@ specified buffer position instead of point are used.
1711 1712
1712 /* For a mouse click, get the local text-property keymap 1713 /* For a mouse click, get the local text-property keymap
1713 of the place clicked on, rather than point. */ 1714 of the place clicked on, rather than point. */
1714 1715
1715 if (POSN_INBUFFER_P (position)) 1716 if (POSN_INBUFFER_P (position))
1716 { 1717 {
1717 Lisp_Object pos; 1718 Lisp_Object pos;
@@ -1722,7 +1723,7 @@ specified buffer position instead of point are used.
1722 { 1723 {
1723 local_map = get_local_map (XINT (pos), 1724 local_map = get_local_map (XINT (pos),
1724 current_buffer, Qlocal_map); 1725 current_buffer, Qlocal_map);
1725 1726
1726 keymap = get_local_map (XINT (pos), 1727 keymap = get_local_map (XINT (pos),
1727 current_buffer, Qkeymap); 1728 current_buffer, Qkeymap);
1728 } 1729 }
@@ -1733,12 +1734,12 @@ specified buffer position instead of point are used.
1733 string displayed via the `display' property, 1734 string displayed via the `display' property,
1734 consider `local-map' and `keymap' properties of 1735 consider `local-map' and `keymap' properties of
1735 that string. */ 1736 that string. */
1736 1737
1737 if (string = POSN_STRING (position), 1738 if (string = POSN_STRING (position),
1738 (CONSP (string) && STRINGP (XCAR (string)))) 1739 (CONSP (string) && STRINGP (XCAR (string))))
1739 { 1740 {
1740 Lisp_Object pos, map; 1741 Lisp_Object pos, map;
1741 1742
1742 pos = XCDR (string); 1743 pos = XCDR (string);
1743 string = XCAR (string); 1744 string = XCAR (string);
1744 if (INTEGERP (pos) 1745 if (INTEGERP (pos)
@@ -1754,7 +1755,7 @@ specified buffer position instead of point are used.
1754 keymap = map; 1755 keymap = map;
1755 } 1756 }
1756 } 1757 }
1757 1758
1758 } 1759 }
1759 1760
1760 if (! NILP (keymap)) 1761 if (! NILP (keymap))